david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
150 lines
3.2 KiB
ObjectPascal
150 lines
3.2 KiB
ObjectPascal
unit DLLMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
Grids, DBGrids, Db, MemDS, StdCtrls, ExtCtrls, DBCtrls, DBAccess,
|
|
MSAccess, Buttons;
|
|
|
|
type
|
|
TfmDllMain = class(TForm)
|
|
MSQuery: TMSQuery;
|
|
DBGrid: TDBGrid;
|
|
DataSource: TDataSource;
|
|
pnToolBar: TPanel;
|
|
Panel1: TPanel;
|
|
btOpen: TSpeedButton;
|
|
btClose: TSpeedButton;
|
|
DBNavigator: TDBNavigator;
|
|
procedure btOpenClick(Sender: TObject);
|
|
procedure btCloseClick(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
procedure AssignConnection(MSConnection: TMSConnection); cdecl;
|
|
procedure ShowForm; cdecl;
|
|
procedure HideForms; cdecl;
|
|
|
|
implementation
|
|
|
|
{$IFDEF CLR}
|
|
{$R *.nfm}
|
|
{$ENDIF}
|
|
{$IFDEF WIN32}
|
|
{$R *.dfm}
|
|
{$ENDIF}
|
|
{$IFDEF LINUX}
|
|
{$R *.xfm}
|
|
{$ENDIF}
|
|
|
|
{$IFNDEF VER130}
|
|
{$IFNDEF VER140}
|
|
{$IFNDEF CLR}
|
|
{$DEFINE XPMAN}
|
|
{$R WindowsXP.res}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
{$IFDEF XPMAN}
|
|
uses
|
|
UxTheme;
|
|
{$ENDIF}
|
|
|
|
var
|
|
ExternalMSConnection: TMSConnection;
|
|
FormList: TList;
|
|
FormCount: integer;
|
|
|
|
procedure AssignConnection(MSConnection: TMSConnection); cdecl;
|
|
begin
|
|
ExternalMSConnection:= MSConnection;
|
|
end;
|
|
|
|
procedure ShowForm; cdecl;
|
|
begin
|
|
with TfmDllMain.Create(Application) do begin
|
|
Inc(FormCount);
|
|
Caption:= IntToStr(FormCount) + '. ' + Caption;
|
|
MSQuery.Connection := ExternalMSConnection;
|
|
MSQuery.Active := True;
|
|
Show;
|
|
end;
|
|
end;
|
|
|
|
procedure HideForms; cdecl;
|
|
begin
|
|
while FormList.Count > 0 do begin
|
|
TForm(FormList[0]).Free;
|
|
FormList.Delete(0);
|
|
end;
|
|
end;
|
|
|
|
procedure TfmDllMain.FormShow(Sender: TObject);
|
|
begin
|
|
FormList.Add(Self);
|
|
end;
|
|
|
|
procedure TfmDllMain.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
FormList.Remove(Self);
|
|
Action := caFree;
|
|
end;
|
|
|
|
procedure TfmDllMain.btOpenClick(Sender: TObject);
|
|
begin
|
|
MSQuery.Open;
|
|
end;
|
|
|
|
procedure TfmDllMain.btCloseClick(Sender: TObject);
|
|
begin
|
|
MSQuery.Close;
|
|
end;
|
|
|
|
procedure TfmDllMain.FormCreate(Sender: TObject);
|
|
{$IFDEF XPMAN}
|
|
procedure UpdateStyle(Control: TWinControl);
|
|
var
|
|
Panel: TPanel;
|
|
i: integer;
|
|
begin
|
|
for i := 0 to Control.ControlCount - 1 do begin
|
|
if Control.Controls[i] is TSpeedButton then
|
|
TSpeedButton(Control.Controls[i]).Flat := False
|
|
else
|
|
if Control.Controls[i] is TDBNavigator then
|
|
TDBNavigator(Control.Controls[i]).Flat := False;
|
|
if Control.Controls[i] is TWinControl then begin
|
|
if (Control.Controls[i] is TPanel) then begin
|
|
Panel := TPanel(Control.Controls[i]);
|
|
Panel.ParentBackground := False;
|
|
Panel.Color := clBtnFace;
|
|
end;
|
|
UpdateStyle(TWinControl(Control.Controls[i]));
|
|
end;
|
|
end;
|
|
end;
|
|
{$ENDIF}
|
|
begin
|
|
{$IFDEF XPMAN}
|
|
if UseThemes then
|
|
UpdateStyle(Self);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
initialization
|
|
FormCount:= 0;
|
|
FormList:= TList.Create;
|
|
finalization
|
|
HideForms;
|
|
FormList.Free;
|
|
end.
|
|
|