mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 03:39:09 +02:00
added TDBGrid from Jesus
git-svn-id: trunk@4653 -
This commit is contained in:
mattias
parent
3f8540cfdd
commit
70d1404151
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -754,6 +754,7 @@ lcl/commctrl.pp svneol=native#text/pascal
|
||||
lcl/controls.pp svneol=native#text/pascal
|
||||
lcl/customtimer.pas svneol=native#text/pascal
|
||||
lcl/dbctrls.pp svneol=native#text/pascal
|
||||
lcl/dbgrids.pas svneol=native#text/pascal
|
||||
lcl/dialogs.pp svneol=native#text/pascal
|
||||
lcl/dirsel.lfm svneol=native#text/plain
|
||||
lcl/dirsel.lrs svneol=native#text/pascal
|
||||
|
||||
6
docs/FAQ
6
docs/FAQ
@ -89,12 +89,6 @@ The FPC source path can be set via:
|
||||
Environment -> General Options -> Files -> FPC source path
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
Does the LCL aims to be a free replacement of the Borland's propietary VCL
|
||||
under Win32?
|
||||
Yes, LGPL.
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
================================================================================
|
||||
|
||||
|
||||
@ -639,6 +639,21 @@ LazarusResources.Add('tdbedit','XPM',[
|
||||
+'.1.1.|.2.3.4.5.6.7.8.9.0.a.b.c.+ ",'#10'" & d.e.5 f.g.e.h.i.e.j.k.l.0 '
|
||||
+'q m.+ + + } "};'#10
|
||||
]);
|
||||
LazarusResources.Add('tdbgrid','XPM',[
|
||||
'/* XPM */'#10'static char * tdbgrid_xpm[] = {'#10'"23 23 6 1",'#10'" '#9'c N'
|
||||
+'one",'#10'".'#9'c #828282",'#10'"+'#9'c #FFFFFF",'#10'"@'#9'c #BFBFBF",'#10
|
||||
+'"#'#9'c #000000",'#10'"$'#9'c #969696",'#10'"................ ",'#10
|
||||
+'".++.++@++@++@++. ",'#10'".@@............. ",'#10'".++.++@++@++'
|
||||
+'@++. ",'#10'".@@.@@@@@@@@@@@. ",'#10'".++.++@++@++@++. ",'
|
||||
+#10'".@@.@@@@@@@@@@@. ",'#10'".++.++#################",'#10'".@@.@@#$$'
|
||||
+'$#$$$#$$$#$$$#",'#10'".++.++#$$$#$$$#$$$#$$$#",'#10'"......################'
|
||||
+'#",'#10'" #$$$#+++$+++$+++#",'#10'" #$$$#+++$+++$+++#",'#10'" '
|
||||
+' #####$$$$$$$$$$$#",'#10'" #$$$#+++$+++$+++#",'#10'" #$$$#+++$++'
|
||||
+'+$+++#",'#10'" #####$$$$$$$$$$$#",'#10'" #$$$#+++$+++$+++#",'#10
|
||||
+'" #$$$#+++$+++$+++#",'#10'" #####$$$$$$$$$$$#",'#10'" #$$$#+'
|
||||
+'++$+++$+++#",'#10'" #$$$#+++$+++$+++#",'#10'" #################"}'
|
||||
+';'#10
|
||||
]);
|
||||
LazarusResources.Add('tdbgroupbox','XPM',[
|
||||
'/* XPM */'#10'static char * tdbgroupbox_xpm[] = {'#10'"23 23 7 1",'#10'" '#9
|
||||
+'c None",'#10'".'#9'c #828282",'#10'"+'#9'c #FFFFFF",'#10'"@'#9'c #BFBFBF",'
|
||||
|
||||
@ -246,7 +246,7 @@ override REQUIRE_PACKAGESDIR+=$(LCLCOMPONENTDIR)
|
||||
override COMPILER_UNITDIR+=$(LCLUNITDIR)
|
||||
override TARGET_DIRS+=interfaces
|
||||
override TARGET_UNITS+=allunits
|
||||
override TARGET_IMPLICITUNITS+=arrow actnlist buttons calendar clipbrd clistbox comctrls commctrl controls dialogs dynamicarray dynhasharray extctrls extendedstrings filectrl forms graphics graphmath graphtype grids imglist interfacebase lazlinkedlist lclmemmanager lclintf lclstrconsts lcltype lmessages lresources maskedit menus messages registry spin stdctrls stringhashlist toolwin utrace vclglobals printers postscriptprinter intfgraphics dbctrls
|
||||
override TARGET_IMPLICITUNITS+=arrow actnlist buttons calendar clipbrd clistbox comctrls commctrl controls dialogs dynamicarray dynhasharray extctrls extendedstrings filectrl forms graphics graphmath graphtype grids imglist interfacebase lazlinkedlist lclmemmanager lclintf lclstrconsts lcltype lmessages lresources maskedit menus messages registry spin stdctrls stringhashlist toolwin utrace vclglobals printers postscriptprinter intfgraphics dbctrls dbgrids
|
||||
override TARGET_RSTS+=dialogs
|
||||
override CLEAN_FILES+=$(wildcard units/*$(OEXT)) $(wildcard units/*$(PPUEXT)) $(wildcard units/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
override INSTALL_BUILDUNIT=allunits
|
||||
|
||||
@ -16,7 +16,7 @@ implicitunits=arrow actnlist buttons calendar clipbrd clistbox comctrls \
|
||||
imglist interfacebase lazlinkedlist lclmemmanager lclintf lclstrconsts \
|
||||
lcltype lmessages lresources maskedit menus messages registry spin \
|
||||
stdctrls stringhashlist toolwin utrace vclglobals printers \
|
||||
postscriptprinter intfgraphics dbctrls
|
||||
postscriptprinter intfgraphics dbctrls dbgrids
|
||||
# and do not add allunits. It is just a dummy unit used for compiling.
|
||||
|
||||
rsts=dialogs
|
||||
|
||||
@ -39,7 +39,7 @@ uses
|
||||
Comctrls, Graphics, StdCtrls, Arrow, Controls, ImgList, Menus, Toolwin,
|
||||
Dialogs, Messages, Clistbox, ActnList, Grids, MaskEdit,
|
||||
Printers, PostScriptPrinter, CheckLst, PairSplitter, DirSel, ExtDlgs,
|
||||
DBCtrls;
|
||||
DBCtrls, DBGrids;
|
||||
|
||||
implementation
|
||||
|
||||
@ -48,6 +48,9 @@ end.
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.31 2003/09/20 09:16:07 mattias
|
||||
added TDBGrid from Jesus
|
||||
|
||||
Revision 1.30 2003/09/18 09:21:03 mattias
|
||||
renamed LCLLinux to LCLIntf
|
||||
|
||||
|
||||
859
lcl/dbgrids.pas
Normal file
859
lcl/dbgrids.pas
Normal file
@ -0,0 +1,859 @@
|
||||
{ $Id$}
|
||||
{
|
||||
/***************************************************************************
|
||||
DBGrids.pas
|
||||
-----------
|
||||
An interface to DB aware Controls
|
||||
Initial Revision : Sun Sep 14 2003
|
||||
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
{
|
||||
TDBGrid and TComponentDataLink for Lazarus
|
||||
Copyright (C) 2003 Jesus Reyes Aguilar.
|
||||
email: jesusrmx@yahoo.com.mx
|
||||
|
||||
todo: credit who created the TComponentDatalink idea (Johana ...)
|
||||
|
||||
}
|
||||
unit DBGrids;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
{.$define protodbgrid}
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, Graphics, SysUtils, LCLType, stdctrls, DB, LMessages, Grids,
|
||||
Controls;
|
||||
|
||||
Type
|
||||
TDataSetScrolledEvent = Procedure(DataSet: TDataSet; Distance: Integer) of Object;
|
||||
|
||||
Type
|
||||
TComponentDataLink=Class(TDatalink)
|
||||
private
|
||||
FDataSet: TDataSet;
|
||||
FDataSetName: String;
|
||||
FModified: Boolean;
|
||||
FOnDatasetChanged: TDatasetNotifyEvent;
|
||||
fOnDataSetClose: TDataSetNotifyEvent;
|
||||
fOnDataSetOpen: TDataSetNotifyEvent;
|
||||
FOnDataSetScrolled: TDataSetScrolledEvent;
|
||||
fOnInvalidDataSet: TDataSetNotifyEvent;
|
||||
fOnInvalidDataSource: TDataSetNotifyEvent;
|
||||
fOnNewDataSet: TDataSetNotifyEvent;
|
||||
FOnRecordChanged: TFieldNotifyEvent;
|
||||
function GetDataSetName: String;
|
||||
function GetFields(Index: Integer): TField;
|
||||
procedure SetDataSetName(const AValue: String);
|
||||
Protected
|
||||
procedure RecordChanged(Field: TField); override;
|
||||
Procedure DataSetChanged; Override;
|
||||
procedure ActiveChanged; override;
|
||||
procedure LayoutChanged; override;
|
||||
procedure DataSetScrolled(Distance: Integer); override;
|
||||
procedure FocusControl(Field: TFieldRef); override;
|
||||
// Testing Events
|
||||
procedure CheckBrowseMode; Override;
|
||||
procedure EditingChanged; Override;
|
||||
procedure UpdateData; Override;
|
||||
function MoveBy(Distance: Integer): Integer; Override;
|
||||
Public
|
||||
Procedure Modified;
|
||||
Property OnRecordChanged: TFieldNotifyEvent Read FOnRecordChanged Write FOnRecordChanged;
|
||||
Property OnDataSetChanged: TDatasetNotifyEvent Read FOnDatasetChanged Write FOnDataSetChanged;
|
||||
property OnNewDataSet: TDataSetNotifyEvent read fOnNewDataSet write fOnNewDataSet;
|
||||
property OnDataSetOpen: TDataSetNotifyEvent read fOnDataSetOpen write fOnDataSetOpen;
|
||||
property OnInvalidDataSet: TDataSetNotifyEvent read fOnInvalidDataSet write fOnInvalidDataSet;
|
||||
property OnInvalidDataSource: TDataSetNotifyEvent read fOnInvalidDataSource write fOnInvalidDataSource;
|
||||
property OnDataSetClose: TDataSetNotifyEvent read fOnDataSetClose write fOnDataSetClose;
|
||||
Property OnDataSetScrolled: TDataSetScrolledEvent Read FOnDataSetScrolled Write FOnDataSetScrolled;
|
||||
Property DataSetName:String Read GetDataSetName Write SetDataSetName;
|
||||
Property Fields[Index: Integer]: TField read GetFields;
|
||||
End;
|
||||
|
||||
|
||||
TCustomDbGrid=Class(TCustomGrid)
|
||||
Private
|
||||
FDataLink: TComponentDataLink;
|
||||
FKeepInBuffer: Boolean;
|
||||
FOnColEnter: TNotifyEvent;
|
||||
FOnColExit: TNotifyEvent;
|
||||
FReadOnly: Boolean;
|
||||
FColEnterPending: Boolean;
|
||||
FSelfScroll: Boolean;
|
||||
FLayoutChanging: Boolean;
|
||||
FVisualLock: Boolean;
|
||||
FNumRecords: Integer;
|
||||
function GetDataSource: TDataSource;
|
||||
Procedure OnRecordChanged(Field:TField);
|
||||
Procedure OnDataSetChanged(aDataSet: TDataSet);
|
||||
Procedure OnDataSetOpen(aDataSet: TDataSet);
|
||||
Procedure OnDataSetClose(aDataSet: TDataSet);
|
||||
Procedure OnInvalidDataSet(aDataSet: TDataSet);
|
||||
Procedure OnInvalidDataSource(aDataSet: TDataset);
|
||||
Procedure OnNewDataSet(aDataSet: TDataset);
|
||||
Procedure OnDataSetScrolled(aDataSet:TDataSet; Distance: Integer);
|
||||
procedure SetDataSource(const AValue: TDataSource);
|
||||
Procedure UpdateBufferCount;
|
||||
// Temporal
|
||||
Function DefaultFieldColWidth(FieldType: TFieldType): Integer;
|
||||
|
||||
Protected
|
||||
procedure LinkActive(Value: Boolean); virtual;
|
||||
Procedure LayoutChanged; Virtual;
|
||||
Property ReadOnly: Boolean Read FReadOnly Write FReadOnly;
|
||||
property DataSource: TDataSource read GetDataSource write SetDataSource;
|
||||
Procedure DrawByRows; Override;
|
||||
Procedure DrawRow(ARow: Integer); Override;
|
||||
Procedure DrawCell(aCol,aRow: Integer; aRect: TRect; aState:TGridDrawState); Override;
|
||||
|
||||
{$Ifdef protodbgrid}
|
||||
Function BeyondRowCount(Count: Integer):Boolean; Override;
|
||||
Function BelowFirstRow(Count: Integer):Boolean; Override;
|
||||
procedure UpdateGridScrollPosition(DCol,DRow: Integer; InvAll: Boolean); Override;
|
||||
{$endif protodbgrid}
|
||||
Procedure MoveSelection; Override;
|
||||
Procedure BeforeMoveSelection(Const DCol,DRow: Integer); Override;
|
||||
procedure HeaderClick(IsColumn: Boolean; index: Integer); Override;
|
||||
procedure KeyDown(var Key : Word; Shift : TShiftState); Override;
|
||||
|
||||
Procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
|
||||
function ScrollBarAutomatic(Which: TScrollStyle): boolean; override;
|
||||
{
|
||||
Procedure MouseMove(Shift: TShiftState; X,Y: Integer);Override;
|
||||
Procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
|
||||
}
|
||||
|
||||
Procedure VisualChange; Override;
|
||||
|
||||
Procedure WMHScroll(var Message : TLMHScroll); message LM_HScroll;
|
||||
Procedure WMVScroll(var Message : TLMVScroll); message LM_VScroll;
|
||||
|
||||
procedure UpdateActive;
|
||||
property OnColEnter: TNotifyEvent read FOnColEnter write FOnColEnter;
|
||||
property OnColExit: TNotifyEvent read FOnColExit write FOnColExit;
|
||||
Property KeepInBuffer: Boolean read FKeepInBuffer write FKeepInBuffer;
|
||||
Public
|
||||
Constructor Create(AOwner: TComponent); Override;
|
||||
Destructor Destroy; Override;
|
||||
End;
|
||||
|
||||
TdbGrid=Class(TCustomDbGrid)
|
||||
public
|
||||
property Canvas;
|
||||
//property SelectedRows;
|
||||
published
|
||||
|
||||
property Align;
|
||||
property Anchors;
|
||||
//property BiDiMode;
|
||||
//property BorderStyle;
|
||||
property Color;
|
||||
//property Columns stored False; //StoreColumns;
|
||||
//property Constraints;
|
||||
//property Ctl3D;
|
||||
property DataSource;
|
||||
property DefaultDrawing;
|
||||
//property DragCursor;
|
||||
//property DragKind;
|
||||
//property DragMode;
|
||||
property Enabled;
|
||||
property FixedColor;
|
||||
property Font;
|
||||
//property ImeMode;
|
||||
//property ImeName;
|
||||
//property Options;
|
||||
//property ParentBiDiMode;
|
||||
property ParentColor;
|
||||
//property ParentCtl3D;
|
||||
property ParentFont;
|
||||
//property ParentShowHint;
|
||||
property PopupMenu;
|
||||
property ReadOnly;
|
||||
property ShowHint;
|
||||
property TabOrder;
|
||||
property TabStop;
|
||||
//property TitleFont;
|
||||
property Visible;
|
||||
//property OnCellClick;
|
||||
property OnColEnter;
|
||||
property OnColExit;
|
||||
//property OnColumnMoved;
|
||||
//property OnDrawDataCell; { obsolete }
|
||||
//property OnDrawColumnCell;
|
||||
property OnDblClick;
|
||||
//property OnDragDrop;
|
||||
//property OnDragOver;
|
||||
//property OnEditButtonClick;
|
||||
//property OnEndDock;
|
||||
//property OnEndDrag;
|
||||
property OnEnter;
|
||||
property OnExit;
|
||||
property OnKeyDown;
|
||||
property OnKeyPress;
|
||||
property OnKeyUp;
|
||||
property OnMouseDown;
|
||||
property OnMouseMove;
|
||||
property OnMouseUp;
|
||||
//property OnStartDock;
|
||||
//property OnStartDrag;
|
||||
//property OnTitleClick;
|
||||
End;
|
||||
|
||||
Procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('Data Controls',[TDBGrid]);
|
||||
end;
|
||||
|
||||
|
||||
{ TCustomdbGrid }
|
||||
|
||||
procedure TCustomDbGrid.OnRecordChanged(Field: TField);
|
||||
begin
|
||||
{$IfDef dbgdbgrid}
|
||||
Write('(',name,') ','TCustomDBGrid.OnRecordChanged(Field=');
|
||||
If Field=nil Then WriteLn('nil)')
|
||||
Else WriteLn(Field.FieldName,')');
|
||||
{$Endif}
|
||||
end;
|
||||
|
||||
function TCustomDbGrid.GetDataSource: TDataSource;
|
||||
begin
|
||||
Result:= FDataLink.DataSource;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.OnDataSetChanged(aDataSet: TDataSet);
|
||||
begin
|
||||
{$Ifdef dbgdbgrid}
|
||||
Write('(',name,') ','TCustomDBDrid.OnDataSetChanged(aDataSet=');
|
||||
If aDataSet=nil Then WriteLn('nil)')
|
||||
Else WriteLn(aDataSet.Name,')');
|
||||
{$endif}
|
||||
UpdateActive;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.OnDataSetOpen(aDataSet: TDataSet);
|
||||
begin
|
||||
{$Ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ','TCustomDBGrid.OnDataSetOpen');
|
||||
{$endif}
|
||||
LinkActive(True);
|
||||
UpdateActive;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.OnDataSetClose(aDataSet: TDataSet);
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ','TCustomDBGrid.OnDataSetClose');
|
||||
{$endif}
|
||||
LinkActive(False);
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.OnInvalidDataSet(aDataSet: TDataSet);
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ','TCustomDBGrid.OnInvalidDataSet');
|
||||
{$endif}
|
||||
LinkActive(False);
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.OnInvalidDataSource(aDataSet: TDataset);
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ','TCustomDBGrid.OnInvalidDataSource');
|
||||
{$endif}
|
||||
LinkActive(False);
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.OnNewDataSet(aDataSet: TDataset);
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ','TCustomDBGrid.OnNewDataSet');
|
||||
{$endif}
|
||||
LinkActive(True);
|
||||
UpdateActive;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.OnDataSetScrolled(aDataset: TDataSet; Distance: Integer);
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn(ClassName, ' (',name,')', '.OnDataSetScrolled(',Distance,'), Invalidating');
|
||||
{$endif}
|
||||
UpdateActive;
|
||||
If Distance<>0 Then Invalidate;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.SetDataSource(const AValue: TDataSource);
|
||||
begin
|
||||
if AValue = FDatalink.Datasource then Exit;
|
||||
FDataLink.DataSource := AValue;
|
||||
UpdateActive;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.UpdateBufferCount;
|
||||
begin
|
||||
If FDataLink.Active Then begin
|
||||
//if FGCache.ValidGrid Then
|
||||
FDataLink.BufferCount:= ClientHeight div DefaultRowHeight - 1;
|
||||
//Else
|
||||
// FDataLink.BufferCount:=0;
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn(ClassName, ' (',name,')', ' FdataLink.BufferCount=',Fdatalink.BufferCount);
|
||||
{$endif}
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.WMHScroll(var Message: TLMHScroll);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.WMVScroll(var Message: TLMVScroll);
|
||||
Var
|
||||
Num: Integer;
|
||||
C, TL: Integer;
|
||||
begin
|
||||
Inherited;
|
||||
if Not GCache.ValidGrid Then Exit;
|
||||
WriteLn('VSCROLL: Code=',Message.ScrollCode,' Position=', Message.Pos);
|
||||
|
||||
exit;
|
||||
C:=Message.Pos+GCache.Fixedheight;
|
||||
Num:=(FNumRecords + FixedRows) * DefaultRowHeight;
|
||||
TL:= Num div C;
|
||||
GCache.TLRowOff:= C - TL*DefaultRowHeight;
|
||||
WriteLn('---- Offset=',C, ' ScrollTo=> TL=',TL, ' TLRowOFf=', GCache.TLRowOff);
|
||||
end;
|
||||
|
||||
|
||||
Function TCustomDbGrid.DefaultFieldColWidth(FieldType: TFieldType): Integer;
|
||||
begin
|
||||
Case FieldType of
|
||||
ftString: Result:=150;
|
||||
ftSmallInt..ftBoolean: Result:=60;
|
||||
Else Result:=DefaultColWidth;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.LinkActive(Value: Boolean);
|
||||
begin
|
||||
//BeginUpdate;
|
||||
FVisualLock:= Value; // If Not Active Call Inherited visualchange y Active dont call it
|
||||
If Not Value Then FDataLink.BufferCount:=0;
|
||||
Clear; // This will call VisualChange and Finally -> LayoutChanged
|
||||
//If Value Then LayoutChanged;
|
||||
//EndUpdate(uoFull);
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.LayoutChanged;
|
||||
var
|
||||
i: Integer;
|
||||
FDefs: TFieldDefs;
|
||||
begin
|
||||
If FDataLink.Active Then begin
|
||||
|
||||
FNumRecords:= FDataLink.DataSet.RecordCount;
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ','TCustomGrid.LayoutChanged INIT');
|
||||
WriteLn('DataLink.DataSet.recordcount: ',FNumRecords);
|
||||
{$endif}
|
||||
|
||||
FLayoutChanging:=True; // Avoid infinit loop
|
||||
FVisualLock:=True; // Avoid Calling Inherited visualchange
|
||||
UpdateBufferCount;
|
||||
ColCount:= FDataLink.DataSet.FieldCount + 1;
|
||||
RowCount:= FDataLink.RecordCount + 1;
|
||||
FixedRows:=1;
|
||||
FixedCols:=1;
|
||||
ColWidths[0]:=12;
|
||||
FDefs:=FDataLink.DataSet.FieldDefs;
|
||||
For i:=0 to FDefs.Count-1 do Begin
|
||||
//WriteLn('Field ',FDefs[i].Name, ' Size= ',FDefs[i].Size);
|
||||
ColWidths[i+1]:= DefaultFieldColWidth(FDefs[i].DataType);
|
||||
End;
|
||||
FVisualLock:=False;
|
||||
VisualChange; // Now Call Visual Change
|
||||
// Update Scrollbars
|
||||
|
||||
ScrollBarRange(SB_HORZ, true, GridWidth + 2);
|
||||
ScrollBarRange(SB_VERT, true, (FNumRecords + FixedRows) * DefaultRowHeight + 2);
|
||||
|
||||
//HorzScrollBar.Range:= GridWidth+2;
|
||||
//VertScrollBar.Range:= (FNumRecords + FixedRows) * DefaultRowHeight + 2;
|
||||
{
|
||||
For i:=1 to ColCount-1 do begin
|
||||
F:=FDataLink.Fields[i];
|
||||
If F<>nil Then Begin
|
||||
W:=F.DisplayWidth;
|
||||
If W<0 Then W:=0;
|
||||
If W=0 Then W:=F.GetDefaultwidth;
|
||||
WriteLn('Field ',F.FieldName,' DisplayWidth=', W);
|
||||
End;
|
||||
End;
|
||||
}
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ','TCustomGrid.LayoutChanged - DONE');
|
||||
{$endif}
|
||||
FLayoutChanging:=False;
|
||||
End;
|
||||
end;
|
||||
{$IfDef Protodbgrid}
|
||||
Function TCustomDbGrid.BeyondRowCount(Count: Integer): Boolean;
|
||||
Var
|
||||
i: integer;
|
||||
InMaxRow: Boolean;
|
||||
begin
|
||||
With FDataLink do begin
|
||||
Result:=Active;
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ',
|
||||
'BeyondRowCount Hitted here: Count=',Count,
|
||||
' FDataLink.Active=', Result,
|
||||
' FDataLink.EOF=',EOF);
|
||||
{$Endif}
|
||||
If Not result Then Exit;
|
||||
|
||||
If EOF And DataSet.CanModify And Not ReadOnly Then
|
||||
Dataset.Append
|
||||
Else
|
||||
If not EOF Then begin
|
||||
I:=MoveBy(Count);
|
||||
{$Ifdef dbgdbgrid}
|
||||
WriteLn('Scrolled by ',I);
|
||||
{$Endif}
|
||||
End;
|
||||
End;
|
||||
end;
|
||||
|
||||
Function TCustomDbGrid.BelowFirstRow(Count: Integer):Boolean;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
With FDataLink do Begin
|
||||
Result:=Active;
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('(',name,') ',
|
||||
'BelowFirstRow Hitted here: Count=',Count,
|
||||
' FDataLink.Active=', Result,
|
||||
' FDataLink.BOF=',BOF);
|
||||
{$Endif}
|
||||
If Result And Not BOF Then begin
|
||||
If KeepInBuffer And (ActiveRecord<>0) Then
|
||||
Result:=Inherited BelowFirstRow(Count)
|
||||
Else begin
|
||||
I:=MoveBy(-Count);
|
||||
{$Ifdef dbgdbgrid}
|
||||
WriteLn('Scrolled By ', I);
|
||||
{$Endif}
|
||||
End;
|
||||
End;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.UpdateGridScrollPosition(DCol, DRow: Integer; InvAll: Boolean);
|
||||
begin
|
||||
If DCol<>Col Then inherited;
|
||||
end;
|
||||
{$Endif Protodbgrid}
|
||||
|
||||
Procedure TCustomDbGrid.BeforeMoveSelection(Const DCol,DRow: Integer);
|
||||
begin
|
||||
Inherited BeforeMoveSelection(DCol, DRow);
|
||||
|
||||
FDatalink.UpdateData;
|
||||
If DCol<>Col Then begin
|
||||
// Its a Column Movement
|
||||
If assigned(OnColExit) Then OnColExit(Self);
|
||||
FColEnterPending:=True;
|
||||
End;
|
||||
{
|
||||
Exit;
|
||||
If (DRow<>Row) Then Begin
|
||||
// Its a Row Movement
|
||||
D:= DRow - Row;
|
||||
FDatalink.MoveBy(D);
|
||||
End;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.HeaderClick(IsColumn: Boolean; index: Integer);
|
||||
begin
|
||||
inherited HeaderClick(IsColumn, index);
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.KeyDown(var Key: Word; Shift: TShiftState);
|
||||
Procedure MoveBy(Delta: Integer);
|
||||
Begin
|
||||
FSelfScroll:=True;
|
||||
FDatalink.MoveBy(Delta);
|
||||
FSelfScroll:=False;
|
||||
end;
|
||||
begin
|
||||
// inherited KeyDown(Key, Shift); // Fully override old KeyDown handler
|
||||
Case Key of
|
||||
VK_DOWN: MoveBy(1);
|
||||
VK_UP: MoveBy(-1);
|
||||
VK_NEXT: MoveBy( VisibleRowCount );
|
||||
VK_PRIOR: MoveBy( -VisibleRowCount );
|
||||
else Inherited;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
Var
|
||||
Gz: TGridZone;
|
||||
P: TPoint;
|
||||
begin
|
||||
If csDesigning in componentState Then Exit;
|
||||
If Not GCache.ValidGrid Then Exit;
|
||||
|
||||
Gz:=MouseToGridZone(X,Y, False);
|
||||
Case Gz of
|
||||
gzFixedRows, gzFixedCols: inherited MouseDown(Button, Shift, X, Y);
|
||||
else
|
||||
Begin
|
||||
P:=MouseToCell(Point(X,Y));
|
||||
If P.Y=Row Then Inherited MouseDown(Button, Shift, X, Y)
|
||||
Else Begin
|
||||
BeginUpdate;
|
||||
FDatalink.MoveBy(P.Y - Row);
|
||||
Col:=P.X;
|
||||
EndUpdate(uoQuick);
|
||||
End;
|
||||
End;
|
||||
End;
|
||||
end;
|
||||
|
||||
function TCustomDbGrid.ScrollBarAutomatic(Which: TScrollStyle): boolean;
|
||||
begin
|
||||
if Which=ssHorizontal then
|
||||
Result:=True
|
||||
else
|
||||
Result:=inherited ScrollBarAutomatic(Which);
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.MoveSelection;
|
||||
begin
|
||||
inherited MoveSelection;
|
||||
If FColEnterPending And Assigned(OnColEnter) Then OnColEnter(Self);
|
||||
FColEnterPending:=False;
|
||||
UpdateActive;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.DrawByRows;
|
||||
Var
|
||||
CurActiveRecord: Integer;
|
||||
begin
|
||||
If FDataLink.ACtive Then Begin
|
||||
CurActiveRecord:=FDataLink.ActiveRecord;
|
||||
//PrimerRecord:=FDataLink.FirstRecord;
|
||||
End;
|
||||
Try
|
||||
inherited DrawByRows;
|
||||
Finally
|
||||
if FDataLink.Active Then FDataLink.ActiveRecord:=CurActiveRecord;
|
||||
End;
|
||||
end;
|
||||
// 33 31 21 29 80 90 4 3
|
||||
procedure TCustomDbGrid.DrawRow(ARow: Integer);
|
||||
begin
|
||||
If Arow>=FixedRows then FDataLink.ActiveRecord:=ARow-FixedRows;
|
||||
inherited DrawRow(ARow);
|
||||
end;
|
||||
|
||||
procedure DrawArrow(Canvas: TCanvas; R: TRect; Opt: TDataSetState);
|
||||
var
|
||||
dx,dy, x, y: Integer;
|
||||
begin
|
||||
Case Opt of
|
||||
dsBrowse:
|
||||
begin //
|
||||
Canvas.Brush.Color:=clBlack;
|
||||
Canvas.Pen.Color:=clBlack;
|
||||
Dx:=6;
|
||||
Dy:=6;
|
||||
y:= R.top+ (R.Bottom-R.Top) div 2;
|
||||
x:= R.Left+2;
|
||||
Canvas.Polygon([point(x,y-dy),point(x+dx,y),point(x, y+dy),point(x,y-dy)]);
|
||||
End;
|
||||
dsEdit:
|
||||
begin // Normal
|
||||
Canvas.Brush.Color:=clRed;
|
||||
Canvas.Pen.Color:=clRed;
|
||||
Dx:=6;
|
||||
Dy:=6;
|
||||
y:= R.top+ (R.Bottom-R.Top) div 2;
|
||||
x:= R.Left+2;
|
||||
Canvas.Polygon([point(x,y-dy),point(x+dx,y),point(x, y+dy),point(x,y-dy)]);
|
||||
End;
|
||||
dsInsert:
|
||||
begin // Normal
|
||||
Canvas.Brush.Color:=clGreen;
|
||||
Canvas.Pen.Color:=clGreen;
|
||||
Dx:=6;
|
||||
Dy:=6;
|
||||
y:= R.top+ (R.Bottom-R.Top) div 2;
|
||||
x:= R.Left+2;
|
||||
Canvas.Polygon([point(x,y-dy),point(x+dx,y),point(x, y+dy),point(x,y-dy)]);
|
||||
End;
|
||||
End;
|
||||
End;
|
||||
|
||||
procedure TCustomDbGrid.DrawCell(aCol, aRow: Integer; aRect: TRect;
|
||||
aState: TGridDrawState);
|
||||
Var
|
||||
F: TField;
|
||||
begin
|
||||
// Draw appropiated attributes
|
||||
inherited DrawCell(aCol, aRow, aRect, aState);
|
||||
|
||||
If Not FDataLink.Active then Exit;
|
||||
|
||||
// Draw text When needed
|
||||
If gdFixed in aState Then begin
|
||||
if (aRow=0)And(ACol>=FixedCols) Then begin
|
||||
// draw column headers
|
||||
F:=FDataLink.Fields[aCol-FixedCols];
|
||||
If F<>nil then Canvas.TextOut(Arect.Left+2,ARect.Top+2, F.FieldName);
|
||||
End Else
|
||||
If (aCol=0)And(aRow=Row) Then
|
||||
// draw row headers (selected/editing/* record)
|
||||
DrawArrow(Canvas, aRect, FDataLink.Dataset.State)
|
||||
End Else begin
|
||||
// Draw the other cells
|
||||
F:=FDataLink.Fields[Acol-FixedCols];
|
||||
If F<>nil then Canvas.TextOut(aRect.Left+2,ARect.Top+2, F.AsString);
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.UpdateActive;
|
||||
{
|
||||
var
|
||||
LastRow: Integer;
|
||||
lastEditor: TWinControl;
|
||||
WasVisible: Boolean;
|
||||
}
|
||||
begin
|
||||
With FDataLink do begin
|
||||
If Not GCache.ValidGrid then Exit;
|
||||
If DataSource=nil Then Exit;
|
||||
WriteLn('(',Name,') ActiveRecord=', ActiveRecord, ' FixedRows=',FixedRows, ' Row=', Row);
|
||||
Row:= FixedRows + ActiveRecord;
|
||||
{
|
||||
LastRow:=Row;
|
||||
LastEditor:= Editor;
|
||||
WasVisible:= (Lasteditor<>nil)And(LastEditor.Visible);
|
||||
FRow:=FixedRows + ActiveRecord;
|
||||
If LastRow<>FRow Then
|
||||
ProcessEditor(LastEditor,Col,LastRow,WasVisible);
|
||||
}
|
||||
End;
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
procedure TCustomDbGrid.VisualChange;
|
||||
begin
|
||||
If FDataLink=nil Then Exit;
|
||||
If not FVisualLock Then begin
|
||||
inherited VisualChange;
|
||||
End;
|
||||
If Not FLayoutChanging Then begin
|
||||
LayoutChanged;
|
||||
End;
|
||||
end;
|
||||
|
||||
constructor TCustomDbGrid.Create(AOwner: TComponent);
|
||||
begin
|
||||
DragDx:=5;
|
||||
inherited Create(AOwner);
|
||||
|
||||
FDataLink := TComponentDataLink.Create;//(Self);
|
||||
FDataLink.OnRecordChanged:=@OnRecordChanged;
|
||||
FDataLink.OnDatasetChanged:=@OnDataSetChanged;
|
||||
FDataLink.OnDataSetOpen:=@OnDataSetOpen;
|
||||
FDataLink.OnDataSetClose:=@OnDataSetClose;
|
||||
FDataLink.OnNewDataSet:=@OnNewDataSet;
|
||||
FDataLink.OnInvalidDataSet:=@OnInvalidDataset;
|
||||
FDataLink.OnInvalidDataSource:=@OnInvalidDataSource;
|
||||
FDataLink.OnDataSetScrolled:=@OnDataSetScrolled;
|
||||
FKeepInBuffer:=False;
|
||||
|
||||
FReadOnly:=True;
|
||||
Options:=Options + [goColSizing, goDrawFocusSelected];
|
||||
// What a dilema!, we need ssAutoHorizontal and ssVertical!!!
|
||||
ScrolLBars:=ssBoth;
|
||||
FVisualLock:=False;
|
||||
Clear;
|
||||
end;
|
||||
|
||||
destructor TCustomDbGrid.Destroy;
|
||||
begin
|
||||
FDataLink.OnDataSetChanged:=nil;
|
||||
FDataLink.OnRecordChanged:=nil;
|
||||
FDataLink.Free;
|
||||
Inherited Destroy;
|
||||
end;
|
||||
|
||||
{ TComponentDataLink }
|
||||
|
||||
function TComponentDataLink.GetFields(Index: Integer): TField;
|
||||
begin
|
||||
If (index>=0)And(index<DataSet.FieldCount) Then result:=DataSet.Fields[index];
|
||||
end;
|
||||
|
||||
function TComponentDataLink.GetDataSetName: String;
|
||||
begin
|
||||
Result:=FDataSetName;
|
||||
If DataSet<>nil Then Result:=DataSet.Name;
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.SetDataSetName(const AValue: String);
|
||||
begin
|
||||
If FDataSetName<>AValue then FDataSetName:=AValue;
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.RecordChanged(Field: TField);
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('TComponentDataLink.RecordChanged');
|
||||
{$endif}
|
||||
If Assigned(OnRecordChanged) Then OnRecordChanged(Field);
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.DataSetChanged;
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('TComponentDataLink.DataSetChanged');
|
||||
{$Endif}
|
||||
If Assigned(OnDataSetChanged) Then OnDataSetChanged(DataSet);
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.ActiveChanged;
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('TComponentDataLink.ActiveChanged');
|
||||
{$endif}
|
||||
if Active then begin
|
||||
fDataSet := DataSet;
|
||||
if DataSetName <> fDataSetName then begin
|
||||
fDataSetName := DataSetName;
|
||||
if Assigned(fOnNewDataSet) then fOnNewDataSet(DataSet);
|
||||
end else
|
||||
if Assigned(fOnDataSetOpen) then fOnDataSetOpen(DataSet);
|
||||
end else begin
|
||||
if (DataSource = nil)then begin
|
||||
if Assigned(fOnInvalidDataSource) then fOnInvalidDataSource(fDataSet);
|
||||
fDataSet := nil;
|
||||
fDataSetName := '[???]';
|
||||
end else begin
|
||||
if (DataSet=nil)or(csDestroying in DataSet.ComponentState) then begin
|
||||
if Assigned(fOnInvalidDataSet) then fOnInvalidDataSet(fDataSet);
|
||||
fDataSet := nil;
|
||||
fDataSetName := '[???]';
|
||||
end else begin
|
||||
if Assigned(fOnDataSetClose) then fOnDataSetClose(DataSet);
|
||||
if DataSet <> nil then FDataSetName := DataSetName;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.LayoutChanged;
|
||||
begin
|
||||
Inherited LayoutChanged;
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('TComponentDataLink.LayoutChanged');
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.DataSetScrolled(Distance: Integer);
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('TComponentDataLink.DataSetScrolled(',Distance,')');
|
||||
{$endif}
|
||||
if Assigned(OnDataSetScrolled) Then OnDataSetScrolled(DataSet, Distance);
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.FocusControl(Field: TFieldRef);
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn('TComponentDataLink.FocusControl');
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.CheckBrowseMode;
|
||||
begin
|
||||
(*
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn(ClassName,'.CheckBrowseMode');
|
||||
{$endif}
|
||||
*)
|
||||
inherited CheckBrowseMode;
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.EditingChanged;
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn(ClassName,'.EditingChanged');
|
||||
{$endif}
|
||||
inherited EditingChanged;
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.UpdateData;
|
||||
begin
|
||||
(*
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn(ClassName,'.UpdateData');
|
||||
{$endif}
|
||||
*)
|
||||
inherited UpdateData;
|
||||
end;
|
||||
|
||||
function TComponentDataLink.MoveBy(Distance: Integer): Integer;
|
||||
begin
|
||||
(*
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn(ClassName,'.MoveBy INIT: Distance=',Distance);
|
||||
{$endif}
|
||||
*)
|
||||
Result:=inherited MoveBy(Distance);
|
||||
(*
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn(ClassName,'.MoveBy END: Distance=',Distance);
|
||||
{$endif}
|
||||
*)
|
||||
end;
|
||||
|
||||
procedure TComponentDataLink.Modified;
|
||||
begin
|
||||
{$ifdef dbgdbgrid}
|
||||
WriteLn(ClassName,'.Modified');
|
||||
{$Endif}
|
||||
FModified:=True;
|
||||
end;
|
||||
end.
|
||||
|
||||
{
|
||||
the_log:
|
||||
|
||||
}
|
||||
@ -58,7 +58,10 @@ type
|
||||
|
||||
{ TPage }
|
||||
|
||||
TPageFlag = (pfAdded,pfRemoving);
|
||||
TPageFlag = (
|
||||
pfAdded, // page handle added to notebook handle
|
||||
pfRemoving
|
||||
);
|
||||
TPageFlags = set of TPageFlag;
|
||||
|
||||
TPage = class(TWinControl)
|
||||
@ -71,6 +74,7 @@ type
|
||||
procedure SetParent(AParent : TWinControl); override;
|
||||
property Flags: TPageFlags read FFlags write FFlags;
|
||||
procedure CMHitTest(var Message: TLMNCHITTEST); message CM_HITTEST;
|
||||
procedure DestroyHandle; override;
|
||||
public
|
||||
constructor Create(TheOwner: TComponent); override;
|
||||
procedure AdjustClientRect(var ARect: TRect); override;
|
||||
@ -160,7 +164,7 @@ type
|
||||
protected
|
||||
procedure CreateParams(var Params: TCreateParams);override;
|
||||
procedure CreateWnd; override;
|
||||
procedure DoCreateWnd;
|
||||
procedure DoCreateWnd; virtual;
|
||||
procedure Change; virtual;
|
||||
procedure Loaded; override;
|
||||
procedure ReadState(Reader: TAbstractReader); override;
|
||||
@ -775,6 +779,9 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.77 2003/09/20 09:16:07 mattias
|
||||
added TDBGrid from Jesus
|
||||
|
||||
Revision 1.76 2003/09/18 21:01:18 mattias
|
||||
started TDBImage
|
||||
|
||||
|
||||
2188
lcl/grids.pas
2188
lcl/grids.pas
File diff suppressed because it is too large
Load Diff
@ -124,6 +124,12 @@ begin
|
||||
' Message.Result=',Message.Result);}
|
||||
end;
|
||||
|
||||
procedure TPage.DestroyHandle;
|
||||
begin
|
||||
inherited DestroyHandle;
|
||||
Exclude(FFlags,pfAdded);
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------
|
||||
TPage AdjustClientRect
|
||||
Params: Rect
|
||||
@ -155,6 +161,9 @@ end;
|
||||
// included by extctrls.pp
|
||||
{
|
||||
$Log$
|
||||
Revision 1.20 2003/09/20 09:16:07 mattias
|
||||
added TDBGrid from Jesus
|
||||
|
||||
Revision 1.19 2003/09/17 15:26:41 mattias
|
||||
fixed removing TPage
|
||||
|
||||
|
||||
@ -883,6 +883,7 @@ begin
|
||||
AddFile('pairsplitter.pas','PairSplitter',pftUnit,[pffHasRegisterProc],cpBase);
|
||||
AddFile('extdlgs.pp','ExtDlgs',pftUnit,[pffHasRegisterProc],cpBase);
|
||||
AddFile('dbctrls.pp','DBCtrls',pftUnit,[pffHasRegisterProc],cpBase);
|
||||
AddFile('dbgrids.pas','DBGrids',pftUnit,[pffHasRegisterProc],cpBase);
|
||||
// increase priority by one, so that the LCL components are inserted to the
|
||||
// left in the palette
|
||||
for i:=0 to FileCount-1 do
|
||||
|
||||
@ -41,7 +41,7 @@ uses
|
||||
LazarusPackageIntf,
|
||||
Menus, Buttons, StdCtrls, ExtCtrls, ComCtrls, Forms, Grids, Controls,
|
||||
Dialogs, Spin, Arrow, Calendar, MaskEdit, CheckLst, PairSplitter, ExtDlgs,
|
||||
DBCtrls;
|
||||
DBCtrls, DBGrids;
|
||||
|
||||
procedure Register;
|
||||
|
||||
@ -66,6 +66,7 @@ begin
|
||||
RegisterUnit('PairSplitter',@PairSplitter.Register);
|
||||
RegisterUnit('ExtDlgs',@ExtDlgs.Register);
|
||||
RegisterUnit('DBCtrls',@DBCtrls.Register);
|
||||
RegisterUnit('DBGrids',@DBGrids.Register);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user