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

IDE: useunitdlg, make item height 2px bigger than 16px ide images.

Browse Source 
git-svn-id: trunk@53823 -
This commit is contained in:
zeljko 2017-01-01 11:32:28 +00:00
parent cb2c44b6a0
commit 3f8a24ce5b
2 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/useunitdlg.lfm
View File

@ -16,8 +16,8 @@ object UseUnitDialog: TUseUnitDialog
LCLVersion = '1.7' LCLVersion = '1.7'
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 26 Height = 27
Top = 390 Top = 389
Width = 351 Width = 351
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -42,7 +42,7 @@ object UseUnitDialog: TUseUnitDialog
AnchorSideBottom.Control = ButtonPanel1 AnchorSideBottom.Control = ButtonPanel1
Left = 6 Left = 6
Height = 49 Height = 49
Top = 335 Top = 334
Width = 351 Width = 351
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
AutoFill = True AutoFill = True
@ -57,7 +57,7 @@ object UseUnitDialog: TUseUnitDialog
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 29 ClientHeight = 22
ClientWidth = 347 ClientWidth = 347
Columns = 2 Columns = 2
ItemIndex = 0 ItemIndex = 0
@ -75,7 +75,7 @@ object UseUnitDialog: TUseUnitDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = AllUnitsCheckBox AnchorSideBottom.Control = AllUnitsCheckBox
Left = 6 Left = 6
Height = 272 Height = 270
Top = 32 Top = 32
Width = 351 Width = 351
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -84,7 +84,7 @@ object UseUnitDialog: TUseUnitDialog
OnDblClick = UnitsListBoxDblClick OnDblClick = UnitsListBoxDblClick
OnDrawItem = UnitsListBoxDrawItem OnDrawItem = UnitsListBoxDrawItem
OnKeyDown = UnitsListBoxKeyDown OnKeyDown = UnitsListBoxKeyDown
ScrollWidth = 349 OnMeasureItem = UnitsListBoxMeasureItem
Style = lbOwnerDrawFixed Style = lbOwnerDrawFixed
TabOrder = 1 TabOrder = 1
end end
@ -92,9 +92,9 @@ object UseUnitDialog: TUseUnitDialog
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = SectionRadioGroup AnchorSideBottom.Control = SectionRadioGroup
Left = 12 Left = 12
Height = 19 Height = 20
Top = 310 Top = 308
Width = 93 Width = 115
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -106,7 +106,7 @@ object UseUnitDialog: TUseUnitDialog
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 6 Left = 6
Height = 23 Height = 29
Top = 6 Top = 6
Width = 351 Width = 351
OnAfterFilter = FilterEditAfterFilter OnAfterFilter = FilterEditAfterFilter

9
ide/useunitdlg.pas
View File

@ -59,6 +59,8 @@ type
ARect: TRect; State: TOwnerDrawState); ARect: TRect; State: TOwnerDrawState);
procedure UnitsListBoxKeyDown(Sender: TObject; var Key: Word; procedure UnitsListBoxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
procedure UnitsListBoxMeasureItem(Control: TWinControl; Index: Integer;
var AHeight: Integer);
private private
UnitImgInd: Integer; UnitImgInd: Integer;
FMainUsedUnits: TStringList; FMainUsedUnits: TStringList;
@ -287,6 +289,13 @@ begin
Key:=VK_UNKNOWN; Key:=VK_UNKNOWN;
end; end;
procedure TUseUnitDialog.UnitsListBoxMeasureItem(Control: TWinControl;
Index: Integer; var AHeight: Integer);
begin
if (AHeight <= IDEImages.Images_16.Height) then
AHeight := IDEImages.Images_16.Height + 2;
end;
procedure TUseUnitDialog.AddImplUsedUnits; procedure TUseUnitDialog.AddImplUsedUnits;
var var
i, j: Integer; i, j: Integer;