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

IDE: less hints

Browse Source 
git-svn-id: trunk@53870 -
This commit is contained in:
mattias 2017-01-03 15:56:34 +00:00
parent 207f8493e1
commit b26395674d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/useunitdlg.pas
View File

@ -59,7 +59,7 @@ type
ARect: TRect; State: TOwnerDrawState);
procedure UnitsListBoxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure UnitsListBoxMeasureItem(Control: TWinControl; Index: Integer;
procedure UnitsListBoxMeasureItem({%H-}Control: TWinControl; {%H-}Index: Integer;
var AHeight: Integer);
private
UnitImgInd: Integer;

2
ide/viewunit_dlg.pp
View File

@ -117,7 +117,7 @@ type
procedure ListboxDrawItem({%H-}Control: TWinControl; Index: Integer;
ARect: TRect; {%H-}State: TOwnerDrawState);
procedure ListboxKeyPress(Sender: TObject; var Key: char);
procedure ListboxMeasureItem(Control: TWinControl; Index: Integer;
procedure ListboxMeasureItem({%H-}Control: TWinControl; {%H-}Index: Integer;
var AHeight: Integer);
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure SortAlphabeticallySpeedButtonClick(Sender: TObject);