paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 20:00:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Grids: capitalize Sender. Patch by Alexey Torgashin. Issue #39849.

Browse Source
This commit is contained in:
Bart 2022-08-10 23:00:28 +02:00
parent 6ac600c33d
commit 8abffea77a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/grids.pas
View File

@ -365,7 +365,7 @@ type
var Editor: TWinControl) of object; var Editor: TWinControl) of object;
TOnPrepareCanvasEvent = TOnPrepareCanvasEvent =
procedure(sender: TObject; aCol, aRow: Integer; procedure(Sender: TObject; aCol, aRow: Integer;
aState: TGridDrawState) of object; aState: TGridDrawState) of object;
TUserCheckBoxBitmapEvent = TUserCheckBoxBitmapEvent =
@ -380,13 +380,13 @@ type
var ImageIndex: TImageIndex) of object; var ImageIndex: TImageIndex) of object;
TValidateEntryEvent = TValidateEntryEvent =
procedure(sender: TObject; aCol, aRow: Integer; procedure(Sender: TObject; aCol, aRow: Integer;
const OldValue: string; var NewValue: String) of object; const OldValue: string; var NewValue: String) of object;
TToggledCheckboxEvent = procedure(sender: TObject; aCol, aRow: Integer; TToggledCheckboxEvent = procedure(Sender: TObject; aCol, aRow: Integer;
aState: TCheckboxState) of object; aState: TCheckboxState) of object;
THeaderSizingEvent = procedure(sender: TObject; const IsColumn: boolean; THeaderSizingEvent = procedure(Sender: TObject; const IsColumn: boolean;
const aIndex, aSize: Integer) of object; const aIndex, aSize: Integer) of object;
TCellProcessEvent = procedure(Sender: TObject; aCol, aRow: Integer; TCellProcessEvent = procedure(Sender: TObject; aCol, aRow: Integer;
@ -1009,9 +1009,9 @@ type
procedure DoEditorShow; virtual; procedure DoEditorShow; virtual;
procedure DoExit; override; procedure DoExit; override;
procedure DoEnter; override; procedure DoEnter; override;
procedure DoLoadColumn(sender: TCustomGrid; aColumn: TGridColumn; aColIndex: Integer; procedure DoLoadColumn(Sender: TCustomGrid; aColumn: TGridColumn; aColIndex: Integer;
aCfg: TXMLConfig; aVersion: Integer; aPath: string); virtual; aCfg: TXMLConfig; aVersion: Integer; aPath: string); virtual;
procedure DoSaveColumn(sender: TCustomGrid; aColumn: TGridColumn; aColIndex: Integer; procedure DoSaveColumn(Sender: TCustomGrid; aColumn: TGridColumn; aColIndex: Integer;
aCfg: TXMLConfig; aVersion: Integer; aPath: string); virtual; aCfg: TXMLConfig; aVersion: Integer; aPath: string); virtual;
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override; function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
@ -7484,14 +7484,14 @@ begin
{$IfDef dbgGrid}DebugLnExit('DoEnter - END');{$Endif} {$IfDef dbgGrid}DebugLnExit('DoEnter - END');{$Endif}
end; end;
procedure TCustomGrid.DoLoadColumn(sender: TCustomGrid; aColumn: TGridColumn; procedure TCustomGrid.DoLoadColumn(Sender: TCustomGrid; aColumn: TGridColumn;
aColIndex: Integer; aCfg: TXMLConfig; aVersion: Integer; aPath: string); aColIndex: Integer; aCfg: TXMLConfig; aVersion: Integer; aPath: string);
begin begin
if Assigned(FOnLoadColumn) then if Assigned(FOnLoadColumn) then
FOnLoadColumn(Self, aColumn, aColIndex, aCfg, aVersion, aPath); FOnLoadColumn(Self, aColumn, aColIndex, aCfg, aVersion, aPath);
end; end;
procedure TCustomGrid.DoSaveColumn(sender: TCustomGrid; aColumn: TGridColumn; procedure TCustomGrid.DoSaveColumn(Sender: TCustomGrid; aColumn: TGridColumn;
aColIndex: Integer; aCfg: TXMLConfig; aVersion: Integer; aPath: string); aColIndex: Integer; aCfg: TXMLConfig; aVersion: Integer; aPath: string);
begin begin
if Assigned(FOnSaveColumn) then if Assigned(FOnSaveColumn) then