paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 10:59:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Hide Options->OpenSSL on non windows systems.

Browse Source 
git-svn-id: trunk@61199 -
This commit is contained in:
balazs 2019-05-11 06:41:54 +00:00
parent 7906467427
commit 3fbcfaafe5
3 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/onlinepackagemanager/opkman_createrepositorypackagefrm.pas
View File

@ -686,7 +686,11 @@ end;
procedure TCreateRepositoryPackagesFrm.bOptionsClick(Sender: TObject); procedure TCreateRepositoryPackagesFrm.bOptionsClick(Sender: TObject);
begin begin
{$IFDEF MSWINDOWS}
MainFrm.ShowOptions(4);
{$ELSE}
MainFrm.ShowOptions(3); MainFrm.ShowOptions(3);
{$ENDIF}
end; end;
procedure TCreateRepositoryPackagesFrm.bCancelClick(Sender: TObject); procedure TCreateRepositoryPackagesFrm.bCancelClick(Sender: TObject);

4
components/onlinepackagemanager/opkman_optionsfrm.lfm
View File

@ -52,10 +52,10 @@ object OptionsFrm: TOptionsFrm
Height = 498 Height = 498
Top = 6 Top = 6
Width = 623 Width = 623
ActivePage = tsOpenSSL ActivePage = tsGeneral
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabIndex = 2 TabIndex = 0
TabOrder = 0 TabOrder = 0
object tsGeneral: TTabSheet object tsGeneral: TTabSheet
Caption = 'General' Caption = 'General'

5
components/onlinepackagemanager/opkman_optionsfrm.pas
View File

@ -540,6 +540,11 @@ begin
rbOpenSSL.Items.Add(rsOptions_rbOpenSSL_Item1); rbOpenSSL.Items.Add(rsOptions_rbOpenSSL_Item1);
rbOpenSSL.Items.Add(rsOptions_rbOpenSSL_Item2); rbOpenSSL.Items.Add(rsOptions_rbOpenSSL_Item2);
rbOpenSSL.ItemIndex := Options.OpenSSLDownloadType; rbOpenSSL.ItemIndex := Options.OpenSSLDownloadType;
{$IFDEF MSWINDOWS}
tsOpenSSL.TabVisible := True;
{$ELSE}
tsOpenSSL.TabVisible := False;
{$ENDIF}
tsFolders.Caption := rsOptions_tsFolders_Caption; tsFolders.Caption := rsOptions_tsFolders_Caption;
lbLocalRepositoryPackages.Caption := rsOptions_lbLocalRepositoryPackages_Caption; lbLocalRepositoryPackages.Caption := rsOptions_lbLocalRepositoryPackages_Caption;