paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: More UI tweak.

Browse Source 
git-svn-id: trunk@55667 -
This commit is contained in:
balazs 2017-08-16 12:42:01 +00:00
parent 3109304e86
commit dbafc2dacb
3 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/onlinepackagemanager/frames/opkman_createrepositorypackagefr.lfm
View File

@ -372,23 +372,23 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnButtons
AnchorSideRight.Side = asrBottom
Left = 290
Left = 312
Height = 29
Top = 4
Width = 408
AutoSize = True
Width = 428
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 1
BevelOuter = bvNone
ClientHeight = 29
ClientWidth = 408
ClientWidth = 428
TabOrder = 1
object bCancel: TButton
Left = 327
Left = 325
Height = 27
Top = 1
Width = 80
Align = alRight
Align = alLeft
AutoSize = True
BorderSpacing.Around = 1
Caption = 'Cancel'
@ -401,11 +401,11 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
TabOrder = 4
end
object bCreate: TButton
Left = 165
Left = 163
Height = 27
Top = 1
Width = 80
Align = alRight
Align = alLeft
AutoSize = True
BorderSpacing.Around = 1
Caption = 'Create'
@ -418,11 +418,11 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
Visible = False
end
object bSubmit: TButton
Left = 246
Left = 244
Height = 27
Top = 1
Width = 80
Align = alRight
Align = alLeft
AutoSize = True
BorderSpacing.Around = 1
Caption = 'Submit'
@ -434,11 +434,11 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
TabOrder = 3
end
object bOptions: TButton
Left = 84
Left = 82
Height = 27
Top = 1
Width = 80
Align = alRight
Align = alLeft
AutoSize = True
BorderSpacing.Around = 1
Caption = 'Options'
@ -450,11 +450,11 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
TabOrder = 1
end
object bHelp: TButton
Left = 3
Left = 1
Height = 27
Top = 1
Width = 80
Align = alRight
Align = alLeft
AutoSize = True
BorderSpacing.Around = 1
Caption = 'Help'

6
components/onlinepackagemanager/opkman_createrepositorypackage.lfm
View File

@ -13,7 +13,6 @@ object CreateRepositoryPackagesFrm: TCreateRepositoryPackagesFrm
OnCreate = FormCreate
PopupMode = pmExplicit
Position = poOwnerFormCenter
LCLVersion = '1.9.0.0'
inline frCreateRep: TCreateRepositoryPackagefr
Height = 454
Width = 753
@ -68,7 +67,6 @@ object CreateRepositoryPackagesFrm: TCreateRepositoryPackagesFrm
end
inherited pnCategory: TPanel
Width = 506
ClientHeight = 185
ClientWidth = 502
inherited lbOF2: TLabel
Left = 477
@ -103,8 +101,10 @@ object CreateRepositoryPackagesFrm: TCreateRepositoryPackagesFrm
inherited pnButtons: TPanel
Top = 413
Width = 753
ClientHeight = 37
ClientWidth = 749
inherited pnB: TPanel
Left = 315
end
end
end
end

4
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -1307,8 +1307,8 @@ begin
end
else
begin
pnMain.Color := VisualTree.VST.Color;
pnMessage.Color := VisualTree.VST.Color;
pnMain.Color := VisualTree.VST.GetDefaultColor(dctBrush);
pnMessage.Color := VisualTree.VST.GetDefaultColor(dctBrush);
end;
end;