forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

adjust option editor size for high DPI

This commit is contained in:
Basile Burg 2018-01-16 09:24:41 +01:00
parent 9a247f3815
commit 147b1da629
2 changed files with 45 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
src/ce_optionseditor.lfm
View File

@ -2,41 +2,40 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
Left = 594 Left = 594
Height = 493 Height = 493
Top = 257 Top = 257
Width = 559 Width = 575
BorderIcons = [biSystemMenu, biMinimize, biMaximize] BorderIcons = [biSystemMenu, biMinimize, biMaximize]
Caption = 'Options editor' Caption = 'Options editor'
ClientHeight = 493 ClientHeight = 493
ClientWidth = 559 ClientWidth = 575
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
inherited Back: TPanel inherited Back: TPanel
Height = 493 Height = 493
Width = 559 Width = 575
ClientHeight = 493 ClientHeight = 493
ClientWidth = 559 ClientWidth = 575
inherited Content: TPanel inherited Content: TPanel
Height = 457 Height = 457
Width = 559 Width = 575
ClientHeight = 457 ClientHeight = 457
ClientWidth = 559 ClientWidth = 575
object pnlBody: TPanel[0] object pnlBody: TPanel[0]
Left = 4 Left = 4
Height = 415 Height = 431
Top = 4 Top = 4
Width = 551 Width = 567
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 415 ClientHeight = 431
ClientWidth = 551 ClientWidth = 567
TabOrder = 0 TabOrder = 0
object selCat: TTreeView object selCat: TTreeView
Left = 0 Left = 0
Height = 415 Height = 431
Top = 0 Top = 0
Width = 150 Width = 182
Align = alLeft Align = alLeft
AutoExpand = True AutoExpand = True
DefaultItemHeight = 16
HideSelection = False HideSelection = False
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
@ -48,20 +47,20 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end end
object pnlEd: TPanel object pnlEd: TPanel
Left = 156 Left = 188
Height = 415 Height = 431
Top = 0 Top = 0
Width = 395 Width = 379
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 415 ClientHeight = 431
ClientWidth = 395 ClientWidth = 379
TabOrder = 1 TabOrder = 1
object inspector: TTIPropertyGrid object inspector: TTIPropertyGrid
Left = 0 Left = 0
Height = 415 Height = 431
Top = 0 Top = 0
Width = 395 Width = 379
Align = alClient Align = alClient
CheckboxForBoolean = False CheckboxForBoolean = False
DefaultValueFont.Color = clWindowText DefaultValueFont.Color = clWindowText
@ -76,49 +75,52 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
end end
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 150 Left = 182
Height = 415 Height = 431
Top = 0 Top = 0
Width = 6 Width = 6
end end
end end
object pnlFooter: TPanel[1] object pnlFooter: TPanel[1]
Left = 4 Left = 4
Height = 30 Height = 14
Top = 423 Top = 439
Width = 551 Width = 567
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 30 ClientHeight = 14
ClientWidth = 551 ClientWidth = 567
TabOrder = 1 TabOrder = 1
object btnCancel: TSpeedButton object btnCancel: TSpeedButton
Left = 484 Left = 548
Height = 24 Height = 4
Hint = 'cancel and revert the modifications of the category' Hint = 'cancel and revert the modifications of the category'
Top = 3 Top = 5
Width = 30 Width = 4
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Around = 2 BorderSpacing.Around = 4
OnClick = btnCancelClick OnClick = btnCancelClick
end end
object btnAccept: TSpeedButton object btnAccept: TSpeedButton
Left = 518 Left = 558
Height = 24 Height = 4
Hint = 'accept the modifications of the category' Hint = 'accept the modifications of the category'
Top = 3 Top = 5
Width = 30 Width = 4
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Around = 2 BorderSpacing.Around = 4
OnClick = btnAcceptClick OnClick = btnAcceptClick
end end
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Width = 551 Width = 567
end end
end end
inherited contextMenu: TPopupMenu inherited contextMenu: TPopupMenu

7
src/ce_optionseditor.pas
View File

@ -74,10 +74,13 @@ begin
inspector.CheckboxForBoolean := true; inspector.CheckboxForBoolean := true;
inspector.PropertyEditorHook.AddHandlerModified(@inspectorModified); inspector.PropertyEditorHook.AddHandlerModified(@inspectorModified);
inspector.DefaultItemHeight:= scaleY(22, 96); inspector.DefaultItemHeight:= scaleY(22, 96);
// selCat.Width := ScaleX(180, 96);
width := ScaleX(600, 96);
inspector.SplitterX := inspector.width div 2 + ScaleX(20, 96);
inspector.PreferredSplitterX := inspector.SplitterX;
AssignPng(btnCancel, 'CANCEL'); AssignPng(btnCancel, 'CANCEL');
AssignPng(btnAccept, 'ACCEPT'); AssignPng(btnAccept, 'ACCEPT');
//
EntitiesConnector.addSingleService(self); EntitiesConnector.addSingleService(self);
end; end;