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

OPM: Make package compile with Laz 1.6

Browse Source 
git-svn-id: trunk@53552 -
This commit is contained in:
wp 2016-12-03 11:47:36 +00:00
parent 5a8aaa1089
commit 9faa2f55fe
5 changed files with 76 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/onlinepackagemanager/opkman_categoriesfrm.lfm
View File

@ -2,11 +2,11 @@ object CategoriesFrm: TCategoriesFrm
Left = 520 Left = 520
Height = 383 Height = 383
Top = 265 Top = 265
Width = 343 Width = 345
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'CategoriesFrm' Caption = 'CategoriesFrm'
ClientHeight = 383 ClientHeight = 383
ClientWidth = 343 ClientWidth = 345
KeyPreview = True KeyPreview = True
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
@ -19,14 +19,14 @@ object CategoriesFrm: TCategoriesFrm
Left = 0 Left = 0
Height = 41 Height = 41
Top = 342 Top = 342
Width = 343 Width = 345
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 41 ClientHeight = 41
ClientWidth = 343 ClientWidth = 345
TabOrder = 0 TabOrder = 0
object bOk: TButton object bOk: TButton
Left = 181 Left = 183
Height = 26 Height = 26
Top = 8 Top = 8
Width = 75 Width = 75
@ -37,7 +37,7 @@ object CategoriesFrm: TCategoriesFrm
TabOrder = 1 TabOrder = 1
end end
object bCancel: TButton object bCancel: TButton
Left = 258 Left = 260
Height = 26 Height = 26
Top = 8 Top = 8
Width = 75 Width = 75
@ -51,17 +51,17 @@ object CategoriesFrm: TCategoriesFrm
Left = 0 Left = 0
Height = 47 Height = 47
Top = 0 Top = 0
Width = 343 Width = 345
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 47 ClientHeight = 47
ClientWidth = 343 ClientWidth = 345
TabOrder = 1 TabOrder = 1
object lbMessage: TLabel object lbMessage: TLabel
Left = 11 Left = 11
Height = 15 Height = 15
Top = 11 Top = 11
Width = 321 Width = 323
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'lbMessage' Caption = 'lbMessage'
ParentColor = False ParentColor = False

72
components/onlinepackagemanager/opkman_createrepositorypackage.lfm
View File

@ -2,11 +2,11 @@ object CreateRepositoryPackagesFrm: TCreateRepositoryPackagesFrm
Left = 585 Left = 585
Height = 475 Height = 475
Top = 250 Top = 250
Width = 820 Width = 819
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'CreateRepositoryPackagesFrm' Caption = 'CreateRepositoryPackagesFrm'
ClientHeight = 475 ClientHeight = 475
ClientWidth = 820 ClientWidth = 819
Color = clBtnFace Color = clBtnFace
Constraints.MinHeight = 450 Constraints.MinHeight = 450
Constraints.MinWidth = 650 Constraints.MinWidth = 650
@ -17,82 +17,83 @@ object CreateRepositoryPackagesFrm: TCreateRepositoryPackagesFrm
LCLVersion = '1.7' LCLVersion = '1.7'
inline frCreateRep: TCreateRepositoryPackagefr inline frCreateRep: TCreateRepositoryPackagefr
Height = 475 Height = 475
Width = 820 Width = 819
Align = alClient Align = alClient
ClientHeight = 475 ClientHeight = 475
ClientWidth = 820 ClientWidth = 819
inherited pnMessage: TPanel inherited pnMessage: TPanel
Height = 369 Height = 369
Width = 558 Width = 557
end end
inherited pnPackages: TPanel inherited pnPackages: TPanel
Height = 369 Height = 369
end end
inherited pnBrowse: TPanel inherited pnBrowse: TPanel
Width = 820 Width = 819
ClientWidth = 820 ClientWidth = 819
inherited Bevel1: TBevel inherited Bevel1: TBevel
Width = 820 Width = 819
end end
end end
inherited pnData: TPanel inherited pnData: TPanel
Height = 369 Height = 369
Width = 558 Width = 557
ClientHeight = 369 ClientHeight = 369
ClientWidth = 558 ClientWidth = 557
inherited pnPackageData: TPanel inherited pnPackageData: TPanel
Height = 177 Height = 177
Width = 558 Width = 557
ClientHeight = 173 ClientHeight = 173
ClientWidth = 554 ClientWidth = 553
inherited edSupportedWidgetset: TEdit inherited edSupportedWidgetset: TEdit
Width = 356 Width = 355
end end
inherited edLazCompatibility: TEdit inherited edLazCompatibility: TEdit
Width = 357
end
inherited edFPCCompatibility: TEdit
Width = 356 Width = 356
end end
inherited edFPCCompatibility: TEdit
Width = 355
end
inherited lbOF1: TLabel inherited lbOF1: TLabel
Left = 529 Left = 528
end end
inherited lbOF3: TLabel inherited lbOF3: TLabel
Left = 529 Left = 528
end end
inherited lbOF4: TLabel inherited lbOF4: TLabel
Left = 529 Left = 528
end end
end end
inherited spMain1: TSplitter inherited spMain1: TSplitter
Width = 558 Width = 557
end end
inherited pnCategory: TPanel inherited pnCategory: TPanel
Width = 558 Width = 557
ClientWidth = 554 ClientHeight = 185
ClientWidth = 553
inherited lbOF2: TLabel inherited lbOF2: TLabel
Left = 529 Left = 528
end end
inherited edHomePageURL: TEdit inherited edHomePageURL: TEdit
Width = 356 Width = 355
end end
inherited edDownloadURL: TEdit inherited edDownloadURL: TEdit
Width = 356 Width = 355
end end
inherited edSVNURL: TEdit inherited edSVNURL: TEdit
Width = 356 Width = 355
end end
inherited edDisplayName: TEdit inherited edDisplayName: TEdit
Width = 356 Width = 355
end end
inherited pnCategories: TPanel inherited pnCategories: TPanel
Width = 356 Width = 355
ClientWidth = 356 ClientWidth = 355
inherited spCategories: TSpeedButton inherited spCategories: TSpeedButton
Left = 326 Left = 325
end end
inherited edCategories: TEdit inherited edCategories: TEdit
Width = 326 Width = 325
end end
end end
end end
@ -102,13 +103,14 @@ object CreateRepositoryPackagesFrm: TCreateRepositoryPackagesFrm
end end
inherited pnButtons: TPanel inherited pnButtons: TPanel
Top = 434 Top = 434
Width = 820 Width = 819
ClientWidth = 816 ClientHeight = 37
ClientWidth = 815
inherited bCreate: TButton inherited bCreate: TButton
Left = 654 Left = 653
end end
inherited bCancel: TButton inherited bCancel: TButton
Left = 731 Left = 730
end end
end end
end end

27
components/onlinepackagemanager/opkman_mainfrm.lfm
View File

@ -2,14 +2,13 @@ object MainFrm: TMainFrm
Left = 463 Left = 463
Height = 600 Height = 600
Top = 164 Top = 164
Width = 800 Width = 801
Caption = 'Online Package Manager' Caption = 'Online Package Manager'
ClientHeight = 600 ClientHeight = 600
ClientWidth = 800 ClientWidth = 801
Color = clBtnFace Color = clBtnFace
Constraints.MinHeight = 400 Constraints.MinHeight = 400
Constraints.MinWidth = 600 Constraints.MinWidth = 600
DesignTimeDPI = 96
KeyPreview = True KeyPreview = True
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
@ -21,11 +20,11 @@ object MainFrm: TMainFrm
Left = 0 Left = 0
Height = 530 Height = 530
Top = 0 Top = 0
Width = 800 Width = 801
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 530 ClientHeight = 530
ClientWidth = 800 ClientWidth = 801
TabOrder = 0 TabOrder = 0
OnResize = pnMainResize OnResize = pnMainResize
object pnMessage: TPanel object pnMessage: TPanel
@ -50,18 +49,18 @@ object MainFrm: TMainFrm
Left = 0 Left = 0
Height = 60 Height = 60
Top = 0 Top = 0
Width = 800 Width = 801
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 60 ClientHeight = 60
ClientWidth = 800 ClientWidth = 801
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False
TabOrder = 0 TabOrder = 0
OnResize = pnTopResize OnResize = pnTopResize
object spExpand: TSpeedButton object spExpand: TSpeedButton
Tag = 1 Tag = 1
Left = 752 Left = 753
Height = 20 Height = 20
Top = 13 Top = 13
Width = 21 Width = 21
@ -126,7 +125,7 @@ object MainFrm: TMainFrm
end end
object spCollapse: TSpeedButton object spCollapse: TSpeedButton
Tag = 2 Tag = 2
Left = 774 Left = 775
Height = 20 Height = 20
Top = 13 Top = 13
Width = 21 Width = 21
@ -371,7 +370,7 @@ object MainFrm: TMainFrm
Left = 0 Left = 0
Height = 470 Height = 470
Top = 60 Top = 60
Width = 800 Width = 801
Align = alClient Align = alClient
Color = clBtnFace Color = clBtnFace
PopupMenu = pmMemo PopupMenu = pmMemo
@ -385,10 +384,10 @@ object MainFrm: TMainFrm
Left = 0 Left = 0
Height = 70 Height = 70
Top = 530 Top = 530
Width = 800 Width = 801
Align = alBottom Align = alBottom
ClientHeight = 70 ClientHeight = 70
ClientWidth = 800 ClientWidth = 801
TabOrder = 1 TabOrder = 1
OnResize = pnToolBarResize OnResize = pnToolBarResize
object tbButtons: TToolBar object tbButtons: TToolBar
@ -408,7 +407,7 @@ object MainFrm: TMainFrm
TabOrder = 0 TabOrder = 0
Transparent = True Transparent = True
object tbOptions: TToolButton object tbOptions: TToolButton
Left = 431 Left = 433
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = 'Options' Caption = 'Options'
@ -466,7 +465,7 @@ object MainFrm: TMainFrm
ImageIndex = 5 ImageIndex = 5
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
Style = tbsButtonDrop Style = tbsDropDown
end end
object tbUpdate: TToolButton object tbUpdate: TToolButton
Left = 211 Left = 211

6
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -123,7 +123,8 @@ var
implementation implementation
uses opkman_serializablepackages, opkman_visualtree, opkman_const, opkman_common, uses LCLVersion,
opkman_serializablepackages, opkman_visualtree, opkman_const, opkman_common,
opkman_progressfrm, opkman_zipper, opkman_packagelistfrm, opkman_options, opkman_progressfrm, opkman_zipper, opkman_packagelistfrm, opkman_options,
opkman_optionsfrm, opkman_createrepositorypackage, opkman_updates; opkman_optionsfrm, opkman_createrepositorypackage, opkman_updates;
{$R *.lfm} {$R *.lfm}
@ -146,6 +147,9 @@ begin
InstallPackageList := TObjectList.Create(True); InstallPackageList := TObjectList.Create(True);
FHintTimeOut := Application.HintHidePause; FHintTimeOut := Application.HintHidePause;
Application.HintHidePause := 1000000; Application.HintHidePause := 1000000;
{$IF LCL_FULLVERSION >= 1070000}
tbCreate.Style := tbsButtonDrop;
{$ENDIF}
end; end;
procedure TMainFrm.FormDestroy(Sender: TObject); procedure TMainFrm.FormDestroy(Sender: TObject);

24
components/onlinepackagemanager/opkman_progressfrm.lfm
View File

@ -2,11 +2,11 @@ object ProgressFrm: TProgressFrm
Left = 534 Left = 534
Height = 284 Height = 284
Top = 243 Top = 243
Width = 504 Width = 502
BorderIcons = [] BorderIcons = []
Caption = 'Downloading packages' Caption = 'Downloading packages'
ClientHeight = 284 ClientHeight = 284
ClientWidth = 504 ClientWidth = 502
Color = clBtnFace Color = clBtnFace
Constraints.MinHeight = 240 Constraints.MinHeight = 240
Constraints.MinWidth = 450 Constraints.MinWidth = 450
@ -24,11 +24,11 @@ object ProgressFrm: TProgressFrm
Left = 0 Left = 0
Height = 41 Height = 41
Top = 243 Top = 243
Width = 504 Width = 502
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 41 ClientHeight = 41
ClientWidth = 504 ClientWidth = 502
TabOrder = 0 TabOrder = 0
object bCancel: TButton object bCancel: TButton
Left = 192 Left = 192
@ -55,18 +55,18 @@ object ProgressFrm: TProgressFrm
Left = 0 Left = 0
Height = 243 Height = 243
Top = 0 Top = 0
Width = 499 Width = 497
Align = alClient Align = alClient
BorderSpacing.Right = 5 BorderSpacing.Right = 5
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 243 ClientHeight = 243
ClientWidth = 499 ClientWidth = 497
TabOrder = 1 TabOrder = 1
object lbPackageData: TLabel object lbPackageData: TLabel
Left = 88 Left = 88
Height = 1 Height = 1
Top = 12 Top = 12
Width = 406 Width = 404
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ParentColor = False ParentColor = False
end end
@ -74,7 +74,7 @@ object ProgressFrm: TProgressFrm
Left = 88 Left = 88
Height = 15 Height = 15
Top = 34 Top = 34
Width = 406 Width = 404
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'Calculating. Please wait...' Caption = 'Calculating. Please wait...'
ParentColor = False ParentColor = False
@ -83,7 +83,7 @@ object ProgressFrm: TProgressFrm
Left = 88 Left = 88
Height = 1 Height = 1
Top = 78 Top = 78
Width = 406 Width = 404
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ParentColor = False ParentColor = False
end end
@ -91,7 +91,7 @@ object ProgressFrm: TProgressFrm
Left = 88 Left = 88
Height = 1 Height = 1
Top = 56 Top = 56
Width = 406 Width = 404
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ParentColor = False ParentColor = False
end end
@ -131,7 +131,7 @@ object ProgressFrm: TProgressFrm
Left = 16 Left = 16
Height = 20 Height = 20
Top = 164 Top = 164
Width = 475 Width = 473
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
TabOrder = 0 TabOrder = 0
end end
@ -139,7 +139,7 @@ object ProgressFrm: TProgressFrm
Left = 16 Left = 16
Height = 20 Height = 20
Top = 208 Top = 208
Width = 475 Width = 473
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
TabOrder = 1 TabOrder = 1
end end