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

fix wrong sizing of the about box on windows, use autosizing

This commit is contained in:
Basile Burg 2018-03-05 06:40:09 +01:00
parent cbc5987b9a
commit 230562fdb4
2 changed files with 27 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/ce_infos.lfm
View File

@ -1,40 +1,42 @@
inherited CEInfoWidget: TCEInfoWidget inherited CEInfoWidget: TCEInfoWidget
Left = 713 Left = 713
Height = 496 Height = 147
Top = 245 Top = 245
Width = 411 Width = 296
AutoSize = True
BorderIcons = [biSystemMenu, biMinimize, biMaximize] BorderIcons = [biSystemMenu, biMinimize, biMaximize]
Caption = 'About' Caption = 'About'
ClientHeight = 496 ClientHeight = 147
ClientWidth = 411 ClientWidth = 296
inherited Back: TPanel inherited Back: TPanel
Height = 496 Height = 147
Width = 411 Width = 296
AutoSize = True AutoSize = True
ClientHeight = 496 ClientHeight = 147
ClientWidth = 411 ClientWidth = 296
inherited Content: TPanel inherited Content: TPanel
Height = 460 Height = 111
Width = 411 Top = 36
ClientHeight = 460 Width = 296
ClientWidth = 411 ClientHeight = 111
ClientWidth = 296
object GroupBox1: TGroupBox[0] object GroupBox1: TGroupBox[0]
Left = 4 Left = 4
Height = 36 Height = 37
Top = 4 Top = 4
Width = 403 Width = 288
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'about' Caption = 'about'
ClientHeight = 17 ClientHeight = 17
ClientWidth = 399 ClientWidth = 284
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 1 Height = 1
Top = 8 Top = 8
Width = 383 Width = 268
Align = alClient Align = alClient
Alignment = taCenter Alignment = taCenter
BorderSpacing.Around = 8 BorderSpacing.Around = 8
@ -47,21 +49,21 @@ inherited CEInfoWidget: TCEInfoWidget
end end
object GroupBox2: TGroupBox[1] object GroupBox2: TGroupBox[1]
Left = 4 Left = 4
Height = 412 Height = 62
Top = 44 Top = 45
Width = 403 Width = 288
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'tools status' Caption = 'tools status'
ClientHeight = 393 ClientHeight = 42
ClientWidth = 399 ClientWidth = 284
TabOrder = 1 TabOrder = 1
object boxTools: TScrollBox object boxTools: TScrollBox
Left = 4 Left = 4
Height = 385 Height = 34
Top = 4 Top = 4
Width = 391 Width = 276
HorzScrollBar.Page = 1 HorzScrollBar.Page = 1
VertScrollBar.Page = 1 VertScrollBar.Page = 1
Align = alClient Align = alClient
@ -73,7 +75,7 @@ inherited CEInfoWidget: TCEInfoWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Width = 403 Width = 288
end end
end end
end end

3
src/ce_infos.pas
View File

@ -250,8 +250,7 @@ begin
'mandatory, the reference D compiler'); 'mandatory, the reference D compiler');
itm.Parent := boxTools; itm.Parent := boxTools;
itm.ReAlign; itm.ReAlign;
//
Height := boxTools.ControlCount * ScaleY(30, 96) + GroupBox1.Height + ScaleY(20, 96);
Realign; Realign;
end; end;