mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 17:29:31 +02:00
LCL: Fix invalid typecast on TCustomDBGrid-based grids. Issue #33053, patch from Michal Gawrycki.
git-svn-id: trunk@57427 -
This commit is contained in:
parent
a377818801
commit
3070f417a7
@ -361,8 +361,8 @@ end;
|
|||||||
|
|
||||||
function TDBGridColumnsPropertyEditorForm.GetDataSet: TDataSet;
|
function TDBGridColumnsPropertyEditorForm.GetDataSet: TDataSet;
|
||||||
begin
|
begin
|
||||||
if (FOwnerPersistent as TDBGrid).DataSource=nil then Exit(nil);
|
if (FOwnerPersistent as TCustomDBGrid).DataSource=nil then Exit(nil);
|
||||||
Result:=TDBGrid(FOwnerPersistent).DataSource.DataSet;
|
Result:=TCustomDBGrid(FOwnerPersistent).DataSource.DataSet;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TDBGridColumnsPropertyEditorForm.SelectInObjectInspector;
|
procedure TDBGridColumnsPropertyEditorForm.SelectInObjectInspector;
|
||||||
|
@ -485,7 +485,6 @@ type
|
|||||||
property Columns: TDBGridColumns read GetColumns write SetColumns;
|
property Columns: TDBGridColumns read GetColumns write SetColumns;
|
||||||
property GridStatus: TDBGridStatus read FGridStatus write FGridStatus;
|
property GridStatus: TDBGridStatus read FGridStatus write FGridStatus;
|
||||||
property Datalink: TComponentDataLink read FDatalink;
|
property Datalink: TComponentDataLink read FDatalink;
|
||||||
property DataSource: TDataSource read GetDataSource write SetDataSource;
|
|
||||||
property Options: TDBGridOptions read FOptions write SetOptions default
|
property Options: TDBGridOptions read FOptions write SetOptions default
|
||||||
[dgColumnResize, dgColumnMove, dgTitles, dgIndicator, dgRowLines,
|
[dgColumnResize, dgColumnMove, dgTitles, dgIndicator, dgRowLines,
|
||||||
dgColLines, dgConfirmDelete, dgCancelOnExit, dgTabs, dgEditing,
|
dgColLines, dgConfirmDelete, dgCancelOnExit, dgTabs, dgEditing,
|
||||||
@ -534,6 +533,7 @@ type
|
|||||||
property SelectedFieldRect: TRect read GetSelectedFieldRect;
|
property SelectedFieldRect: TRect read GetSelectedFieldRect;
|
||||||
property LastColumn: TColumn read GetLastColumn;
|
property LastColumn: TColumn read GetLastColumn;
|
||||||
property FirstColumn: TColumn read GetFirstColumn;
|
property FirstColumn: TColumn read GetFirstColumn;
|
||||||
|
property DataSource: TDataSource read GetDataSource write SetDataSource;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TDBGrid=class(TCustomDBGrid)
|
TDBGrid=class(TCustomDBGrid)
|
||||||
|
Loading…
Reference in New Issue
Block a user