paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/Grids: Re-add the OnUserCheckboxImage event (see r60571 #730fb31994+60578), patch by Zoran Vučenović, issue #35097.

Browse Source 
git-svn-id: trunk@60579 -
This commit is contained in:
wp 2019-03-04 11:25:24 +00:00
parent 094543b6cb
commit 50ae3c2e46
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/dbgrids.pas
View File

@ -670,6 +670,7 @@ type
property OnStartDrag;
property OnTitleClick;
property OnUserCheckboxBitmap;
property OnUserCheckboxImage;
property OnUserCheckboxState;
property OnUTF8KeyPress;
end;

12
lcl/grids.pas
View File

@ -368,6 +368,12 @@ type
const CheckedState: TCheckboxState;
var ABitmap: TBitmap) of object;
TUserCheckBoxImageEvent =
procedure(Sender: TObject; const aCol, aRow: Integer;
const CheckedState: TCheckBoxState;
var ImageList: TCustomImageList;
var ImageIndex: TImageIndex) of object;
TValidateEntryEvent =
procedure(sender: TObject; aCol, aRow: Integer;
const OldValue: string; var NewValue: String) of object;
@ -728,6 +734,7 @@ type
FRangeSelectMode: TRangeSelectMode;
FSelections: TGridRectArray;
FOnUserCheckboxBitmap: TUserCheckboxBitmapEvent;
FOnUserCheckboxImage: TUserCheckBoxImageEvent;
FSortOrder: TSortOrder;
FSortColumn: Integer;
FSortLCLImages: TLCLGlyphs;
@ -1247,6 +1254,7 @@ type
property OnSelectEditor: TSelectEditorEvent read FOnSelectEditor write FOnSelectEditor;
property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;
property OnUserCheckboxBitmap: TUserCheckboxBitmapEvent read FOnUserCheckboxBitmap write FOnUserCheckboxBitmap;
property OnUserCheckboxImage: TUserCheckBoxImageEvent read FOnUserCheckboxImage write FOnUserCheckboxImage;
property OnValidateEntry: TValidateEntryEvent read FOnValidateEntry write FOnValidateEntry;
// Bidi functions
function FlipRect(ARect: TRect): TRect;
@ -1629,6 +1637,7 @@ type
property OnStartDrag;
property OnTopleftChanged;
property OnUserCheckboxBitmap;
property OnUserCheckboxImage;
property OnUTF8KeyPress;
property OnValidateEntry;
end;
@ -1869,6 +1878,7 @@ type
property OnStartDrag;
property OnTopLeftChanged;
property OnUserCheckboxBitmap;
property OnUserCheckboxImage;
property OnUTF8KeyPress;
property OnValidateEntry;
end;
@ -5521,6 +5531,8 @@ procedure TCustomGrid.GetImageForCheckBox(const aCol, aRow: Integer;
begin
if Assigned(OnUserCheckboxBitmap) then
OnUserCheckboxBitmap(Self, aCol, aRow, CheckBoxView, Bitmap);
if (Bitmap = nil) and Assigned(OnUserCheckBoxImage) then
OnUserCheckboxImage(Self, aCol, aRow, CheckBoxView, ImageList, ImageIndex);
end;
procedure TCustomGrid.AdjustInnerCellRect(var ARect: TRect);