pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix code

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1965 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-16 14:47:04 +00:00
parent b17333404a
commit 1bc00e858d
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/jujiboutils/examples/testmemdataset/jdbgridutils.pas
View File

@ -48,7 +48,7 @@ type
function isNull: boolean;
property format: string read getFormat write setFormat;
constructor Create;
destructor Destroy;
destructor Destroy; override;
function Editor(aGrid: TDBGrid): TStringCellEditor;
end;
@ -68,7 +68,7 @@ type
CellEditor: TStringCellEditor;
theGrid: TDBGrid;
constructor Create;
destructor Destroy;
destructor Destroy; override;
function Editor(aGrid: TDBGrid): TStringCellEditor;
end;
@ -93,7 +93,7 @@ type
theGrid: TDBGrid;
property decimales: integer read getDecimales write setDecimales;
constructor Create;
destructor Destroy;
destructor Destroy; override;
function Editor(aGrid: TDBGrid; aDecimals: integer = 2): TStringCellEditor;
end;
@ -219,6 +219,7 @@ end;
constructor TJDbGridDateCtrl.Create;
begin
inherited Create;
CellEditor := TStringCellEditor.Create(nil);
CellEditor.OnEnter := @myEditEnter;
CellEditor.OnKeyDown := @OnKeyDown;
@ -230,6 +231,7 @@ end;
destructor TJDbGridDateCtrl.Destroy;
begin
CellEditor.Free;
inherited Destroy;
end;
function TJDbGridDateCtrl.Editor(aGrid: TDBGrid): TStringCellEditor;
@ -350,6 +352,7 @@ end;
constructor TJDbGridCurrencyCtrl.Create;
begin
inherited Create;
CellEditor := TStringCellEditor.Create(nil);
CellEditor.OnEnter := @myEditOnEnter;
CellEditor.OnKeyDown := @OnKeyDown;
@ -360,6 +363,7 @@ end;
destructor TJDbGridCurrencyCtrl.Destroy;
begin
CellEditor.Free;
inherited Destroy;
end;
function TJDbGridCurrencyCtrl.Editor(aGrid: TDBGrid;
@ -457,6 +461,7 @@ end;
constructor TJDbGridIntegerCtrl.Create;
begin
inherited Create;
CellEditor := TStringCellEditor.Create(nil);
CellEditor.OnEnter := @myEditOnEnter;
CellEditor.OnKeyDown := @OnKeyDown;
@ -467,6 +472,7 @@ end;
destructor TJDbGridIntegerCtrl.Destroy;
begin
CellEditor.Free;
inherited Destroy;
end;
function TJDbGridIntegerCtrl.Editor(aGrid: TDBGrid): TStringCellEditor;