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

LCL: fix character case

Browse Source 
git-svn-id: trunk@62504 -
This commit is contained in:
ondrej 2020-01-07 09:32:42 +00:00
parent eb25ab2a98
commit 543dbab72b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/forms.pp
View File

@ -435,8 +435,8 @@ type
);
TCloseEvent = procedure(Sender: TObject; var CloseAction: TCloseAction) of object;
TCloseQueryEvent = procedure(Sender : TObject; var CanClose : boolean) of object;
TDropFilesEvent = procedure (Sender: TObject; const FileNames: Array of String) of object;
TCloseQueryEvent = procedure(Sender : TObject; var CanClose: Boolean) of object;
TDropFilesEvent = procedure (Sender: TObject; const FileNames: array of string) of object;
THelpEvent = function(Command: Word; Data: PtrInt; var CallHelp: Boolean): Boolean of object;
TShortCutEvent = procedure (var Msg: TLMKey; var Handled: Boolean) of object;
TModalDialogFinished = procedure (Sender: TObject; AResult: Integer) of object;