paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 21:19:07 +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 TabOrder = 1
end end
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 object lbDaysToShowNewPackages: TLabel
Left = 16 Left = 16
Height = 15 Height = 15
@ -197,6 +186,17 @@ object OptionsFrm: TOptionsFrm
Caption = 'Show newly added packages for(days):' Caption = 'Show newly added packages for(days):'
ParentColor = False ParentColor = False
end 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
end end
object tsProxy: TTabSheet object tsProxy: TTabSheet
@ -268,7 +268,7 @@ object OptionsFrm: TOptionsFrm
Text = 'username' Text = 'username'
end end
object lbPort: TLabel object lbPort: TLabel
Left = 318 Left = 317
Height = 15 Height = 15
Top = 3 Top = 3
Width = 22 Width = 22
@ -295,13 +295,13 @@ object OptionsFrm: TOptionsFrm
Text = 'password' Text = 'password'
end end
object seProxyPort: TSpinEdit object seProxyPort: TSpinEdit
Left = 318 Left = 319
Height = 23 Height = 24
Top = 22 Top = 22
Width = 76 Width = 75
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False AutoSize = False
MaxValue = 65535 BorderSpacing.Around = 1
MaxValue = 65635
TabOrder = 3 TabOrder = 3
end end
end end
@ -309,8 +309,8 @@ object OptionsFrm: TOptionsFrm
end end
object tsFolders: TTabSheet object tsFolders: TTabSheet
Caption = 'Folders' Caption = 'Folders'
ClientHeight = 286 ClientHeight = 297
ClientWidth = 519 ClientWidth = 517
object pnFolders: TPanel object pnFolders: TPanel
Left = 0 Left = 0
Height = 297 Height = 297
@ -400,8 +400,8 @@ object OptionsFrm: TOptionsFrm
end end
object tsProfiles: TTabSheet object tsProfiles: TTabSheet
Caption = 'Profiles' Caption = 'Profiles'
ClientHeight = 286 ClientHeight = 297
ClientWidth = 519 ClientWidth = 517
object pnProfiles: TPanel object pnProfiles: TPanel
Left = 0 Left = 0
Height = 297 Height = 297
@ -639,13 +639,6 @@ object OptionsFrm: TOptionsFrm
end end
end end
end end
object SpinEdit1: TSpinEdit
Left = 74
Height = 23
Top = 7
Width = 50
TabOrder = 2
end
object SDD: TSelectDirectoryDialog object SDD: TSelectDirectoryDialog
left = 448 left = 448
top = 112 top = 112

6
components/onlinepackagemanager/opkman_optionsfrm.pas
View File

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