paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add custom TJDBGridColumns and TJDBColumn. Thanks jesusrmx

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2025 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo 2011-09-27 20:24:53 +00:00
parent b620ebf276
commit adccfe558f
1 changed files with 72 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
components/jujiboutils/jujibo-utils/src/jdbgridcontrol.pas
View File

@ -5,11 +5,35 @@ unit JDBGridControl;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, DB, DBGrids,
Classes, SysUtils, LResources, Forms, Controls, Graphics, DB, Grids, DBGrids,
Dialogs, jdbgridutils;
type
{ TJDBColumn }
TJDBColumn = class(TColumn)
private
fDecimals: integer;
function getDecimals: integer;
procedure setDecimals(AValue: integer);
published
property Decimals: integer read getDecimals write setDecimals;
end;
{ TJDBGridColumns }
TJDBGridColumns = class(TDBGridColumns)
private
function GetColumn(Index: integer): TJDBColumn;
procedure SetColumn(Index: integer; AValue: TJDBColumn);
public
function add: TJDBColumn;
property Items[Index: integer]: TJDBColumn read GetColumn write SetColumn; default;
published
end;
{ TJDBGridControl }
TJDBGridControl = class(TDBGrid)
@ -20,11 +44,15 @@ type
integerDbGridControl: TJDbGridIntegerCtrl;
doubleDbGridControl: TJDbGridDoubleCtrl;
dateTimeDbGridControl: TJDbGridDateTimeCtrl;
function GetColumns: TJDBGridColumns;
procedure SetColumns(AValue: TJDBGridColumns);
protected
{ Protected declarations }
//procedure SelectEditor; override;
function CreateColumns: TGridColumns; override;
function GetDefaultEditor(Column: integer): TWinControl; override;
procedure UpdateData; override;
property Columns: TJDBGridColumns read GetColumns write SetColumns;
public
{ Public declarations }
constructor Create(TheOwner: TComponent); override;
@ -44,6 +72,34 @@ begin
RegisterComponents('Data Controls', [TJDBGridControl]);
end;
function TJDBColumn.getDecimals: integer;
begin
Result := fDecimals;
end;
procedure TJDBColumn.setDecimals(AValue: integer);
begin
if (AValue >= 0) and (AValue <= 10) then
fDecimals := AValue;
end;
{ TJDBGridColumns }
function TJDBGridColumns.GetColumn(Index: integer): TJDBColumn;
begin
Result := TJDBColumn(inherited Items[Index]);
end;
procedure TJDBGridColumns.SetColumn(Index: integer; AValue: TJDBColumn);
begin
Items[Index].Assign(AValue);
end;
function TJDBGridColumns.add: TJDBColumn;
begin
Result := TJDBColumn(inherited add);
end;
{ TJDBGridControl }
//procedure TJDBGridControl.SelectEditor;
@ -60,6 +116,21 @@ end;
// end;
//end;
function TJDBGridControl.GetColumns: TJDBGridColumns;
begin
Result := TJDBGridColumns(inherited Columns);
end;
procedure TJDBGridControl.SetColumns(AValue: TJDBGridColumns);
begin
inherited Columns := TDBGridColumns(AValue);
end;
function TJDBGridControl.CreateColumns: TGridColumns;
begin
Result := TJDBGridColumns.Create(Self, TJDBColumn);
end;
function TJDBGridControl.GetDefaultEditor(Column: integer): TWinControl;
var
//aColumn: TColumn;