paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 08:56:01 +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 AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnButtons AnchorSideRight.Control = pnButtons
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 290 Left = 312
Height = 29 Height = 29
Top = 4 Top = 4
Width = 408 Width = 428
AutoSize = True Anchors = [akTop, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 1 BorderSpacing.InnerBorder = 1
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 29 ClientHeight = 29
ClientWidth = 408 ClientWidth = 428
TabOrder = 1 TabOrder = 1
object bCancel: TButton object bCancel: TButton
Left = 327 Left = 325
Height = 27 Height = 27
Top = 1 Top = 1
Width = 80 Width = 80
Align = alRight Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 1 BorderSpacing.Around = 1
Caption = 'Cancel' Caption = 'Cancel'
@ -401,11 +401,11 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
TabOrder = 4 TabOrder = 4
end end
object bCreate: TButton object bCreate: TButton
Left = 165 Left = 163
Height = 27 Height = 27
Top = 1 Top = 1
Width = 80 Width = 80
Align = alRight Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 1 BorderSpacing.Around = 1
Caption = 'Create' Caption = 'Create'
@ -418,11 +418,11 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
Visible = False Visible = False
end end
object bSubmit: TButton object bSubmit: TButton
Left = 246 Left = 244
Height = 27 Height = 27
Top = 1 Top = 1
Width = 80 Width = 80
Align = alRight Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 1 BorderSpacing.Around = 1
Caption = 'Submit' Caption = 'Submit'
@ -434,11 +434,11 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
TabOrder = 3 TabOrder = 3
end end
object bOptions: TButton object bOptions: TButton
Left = 84 Left = 82
Height = 27 Height = 27
Top = 1 Top = 1
Width = 80 Width = 80
Align = alRight Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 1 BorderSpacing.Around = 1
Caption = 'Options' Caption = 'Options'
@ -450,11 +450,11 @@ object CreateRepositoryPackagefr: TCreateRepositoryPackagefr
TabOrder = 1 TabOrder = 1
end end
object bHelp: TButton object bHelp: TButton
Left = 3 Left = 1
Height = 27 Height = 27
Top = 1 Top = 1
Width = 80 Width = 80
Align = alRight Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 1 BorderSpacing.Around = 1
Caption = 'Help' Caption = 'Help'

6
components/onlinepackagemanager/opkman_createrepositorypackage.lfm
View File

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

4
components/onlinepackagemanager/opkman_mainfrm.pas
View File

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