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

IDE: viewunit_dlg, inc height of item by 2px if itemheight <= ideimages16

Browse Source 
git-svn-id: trunk@53824 -
This commit is contained in:
zeljko 2017-01-01 11:45:54 +00:00
parent 3f8a24ce5b
commit 29e4421f5a
2 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/viewunit_dlg.lfm
View File

@ -19,8 +19,8 @@ object ViewUnitDialog: TViewUnitDialog
LCLVersion = '1.7' LCLVersion = '1.7'
object Listbox: TListBox object Listbox: TListBox
Left = 6 Left = 6
Height = 267 Height = 272
Top = 44 Top = 41
Width = 366 Width = 366
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -29,14 +29,15 @@ object ViewUnitDialog: TViewUnitDialog
OnDblClick = OKButtonClick OnDblClick = OKButtonClick
OnDrawItem = ListboxDrawItem OnDrawItem = ListboxDrawItem
OnKeyPress = ListboxKeyPress OnKeyPress = ListboxKeyPress
OnMeasureItem = ListboxMeasureItem
PopupMenu = popListBox PopupMenu = popListBox
Style = lbOwnerDrawFixed Style = lbOwnerDrawFixed
TabOrder = 1 TabOrder = 1
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 37 Height = 35
Top = 343 Top = 345
Width = 366 Width = 366
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -55,19 +56,19 @@ object ViewUnitDialog: TViewUnitDialog
end end
object BtnPanel: TPanel object BtnPanel: TPanel
Left = 6 Left = 6
Height = 32 Height = 29
Top = 6 Top = 6
Width = 366 Width = 366
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 32 ClientHeight = 29
ClientWidth = 366 ClientWidth = 366
TabOrder = 0 TabOrder = 0
object SortAlphabeticallySpeedButton: TSpeedButton object SortAlphabeticallySpeedButton: TSpeedButton
Left = 0 Left = 0
Height = 32 Height = 29
Top = 0 Top = 0
Width = 25 Width = 25
Align = alLeft Align = alLeft
@ -81,7 +82,7 @@ object ViewUnitDialog: TViewUnitDialog
end end
object FilterEdit: TListFilterEdit object FilterEdit: TListFilterEdit
Left = 31 Left = 31
Height = 32 Height = 29
Top = 0 Top = 0
Width = 335 Width = 335
ButtonWidth = 23 ButtonWidth = 23
@ -97,7 +98,7 @@ object ViewUnitDialog: TViewUnitDialog
object ProgressBar1: TProgressBar object ProgressBar1: TProgressBar
Left = 6 Left = 6
Height = 20 Height = 20
Top = 317 Top = 319
Width = 366 Width = 366
Align = alBottom Align = alBottom
BorderSpacing.Left = 6 BorderSpacing.Left = 6

9
ide/viewunit_dlg.pp
View File

@ -117,6 +117,8 @@ type
procedure ListboxDrawItem({%H-}Control: TWinControl; Index: Integer; procedure ListboxDrawItem({%H-}Control: TWinControl; Index: Integer;
ARect: TRect; {%H-}State: TOwnerDrawState); ARect: TRect; {%H-}State: TOwnerDrawState);
procedure ListboxKeyPress(Sender: TObject; var Key: char); procedure ListboxKeyPress(Sender: TObject; var Key: char);
procedure ListboxMeasureItem(Control: TWinControl; Index: Integer;
var AHeight: Integer);
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean); procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure SortAlphabeticallySpeedButtonClick(Sender: TObject); procedure SortAlphabeticallySpeedButtonClick(Sender: TObject);
procedure OKButtonClick(Sender :TObject); procedure OKButtonClick(Sender :TObject);
@ -485,6 +487,13 @@ begin
OKButtonClick(nil); OKButtonClick(nil);
end; end;
procedure TViewUnitDialog.ListboxMeasureItem(Control: TWinControl;
Index: Integer; var AHeight: Integer);
begin
if AHeight <= IDEImages.Images_16.Height then
AHeight := IDEImages.Images_16.Height + 2;
end;
procedure TViewUnitDialog.MultiselectCheckBoxClick(Sender :TObject); procedure TViewUnitDialog.MultiselectCheckBoxClick(Sender :TObject);
begin begin
ListBox.Multiselect := mniMultiSelect.Checked; ListBox.Multiselect := mniMultiSelect.Checked;