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

Opkman: Small cosmetic changes, reported by @AlexeyT.

Browse Source 
git-svn-id: trunk@54102 -
This commit is contained in:
balazs 2017-02-06 10:58:57 +00:00
parent 6b1e076b8b
commit 872edd4a68
2 changed files with 26 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
components/onlinepackagemanager/opkman_optionsfrm.lfm
View File

@ -178,17 +178,6 @@ object OptionsFrm: TOptionsFrm
TabOrder = 1
end
end
object spDaysToShowNewPackages: TSpinEdit
Left = 224
Height = 23
Top = 224
Width = 76
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
MaxValue = 365
TabOrder = 4
Value = 31
end
object lbDaysToShowNewPackages: TLabel
Left = 16
Height = 15
@ -197,6 +186,17 @@ object OptionsFrm: TOptionsFrm
Caption = 'Show newly added packages for(days):'
ParentColor = False
end
object spDaysToShowNewPackages: TSpinEdit
Left = 228
Height = 24
Top = 224
Width = 76
AutoSize = False
BorderSpacing.Around = 1
MaxValue = 365
TabOrder = 4
Value = 31
end
end
end
object tsProxy: TTabSheet
@ -268,7 +268,7 @@ object OptionsFrm: TOptionsFrm
Text = 'username'
end
object lbPort: TLabel
Left = 318
Left = 317
Height = 15
Top = 3
Width = 22
@ -295,13 +295,13 @@ object OptionsFrm: TOptionsFrm
Text = 'password'
end
object seProxyPort: TSpinEdit
Left = 318
Height = 23
Left = 319
Height = 24
Top = 22
Width = 76
Anchors = [akTop, akLeft, akRight, akBottom]
Width = 75
AutoSize = False
MaxValue = 65535
BorderSpacing.Around = 1
MaxValue = 65635
TabOrder = 3
end
end
@ -309,8 +309,8 @@ object OptionsFrm: TOptionsFrm
end
object tsFolders: TTabSheet
Caption = 'Folders'
ClientHeight = 286
ClientWidth = 519
ClientHeight = 297
ClientWidth = 517
object pnFolders: TPanel
Left = 0
Height = 297
@ -400,8 +400,8 @@ object OptionsFrm: TOptionsFrm
end
object tsProfiles: TTabSheet
Caption = 'Profiles'
ClientHeight = 286
ClientWidth = 519
ClientHeight = 297
ClientWidth = 517
object pnProfiles: TPanel
Left = 0
Height = 297
@ -639,13 +639,6 @@ object OptionsFrm: TOptionsFrm
end
end
end
object SpinEdit1: TSpinEdit
Left = 74
Height = 23
Top = 7
Width = 50
TabOrder = 2
end
object SDD: TSelectDirectoryDialog
left = 448
top = 112

6
components/onlinepackagemanager/opkman_optionsfrm.pas
View File

@ -95,7 +95,6 @@ type
SDD: TSelectDirectoryDialog;
seProxyPort: TSpinEdit;
spDaysToShowNewPackages: TSpinEdit;
SpinEdit1: TSpinEdit;
tsFolders: TTabSheet;
tsProfiles: TTabSheet;
tsGeneral: TTabSheet;
@ -411,6 +410,9 @@ begin
lbLastUpdate.Caption := rsOptions_lbLastUpdate_Caption + FormatDateTime('YYYY.MM.DD hh:mm:ss', Options.LastUpdate);
lbDaysToShowNewPackages.Caption := rsOptions_lbDaysToShowNewPackages_Caption;
spDaysToShowNewPackages.Value := Options.DaysToShowNewPackages;
spDaysToShowNewPackages.Height := cbCheckForUpdates.Height;
spDaysToShowNewPackages.Top := lbDaysToShowNewPackages.Top - ((spDaysToShowNewPackages.Height - lbDaysToShowNewPackages.Height) div 2);
spDaysToShowNewPackages.Left := lbDaysToShowNewPackages.Left + lbDaysToShowNewPackages.Canvas.GetTextWidth(lbDaysToShowNewPackages.Caption) + 10;
tsProxy.Caption := rsOptions_tsProxy_Caption;
cbProxy.Caption := rsOptions_cbProxy_Caption;
@ -423,6 +425,8 @@ begin
gbProxySettings.Enabled := Options.ProxyEnabled;
edProxyServer.Text := Options.ProxyServer;
seProxyPort.Value := Options.ProxyPort;
seProxyPort.Height := edProxyServer.Height;
seProxyPort.Top := edProxyServer.Top;
edProxyUser.Text := Options.ProxyUser;
edProxyPassword.Text := Options.ProxyPassword;