pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

colorpalette: Fix compilation of demos for Lazarus versions before 1.8 (LCLScaling)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5945 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-06-17 12:01:31 +00:00
parent b115d16c3e
commit 92f5e6214d
3 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/colorpalette/demo/GeneralDemo/project1.lpr
View File

@@ -7,13 +7,15 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Unit1, Forms, lazcolorpalette Unit1, Forms, lclversion, lazcolorpalette
{ you can add units after this }; { you can add units after this };
{$R *.res} {$R *.res}
begin begin
{$IF LCL_FULLVERSION >= 1080000}
Application.Scaled := True; Application.Scaled := True;
{$ENDIF}
RequireDerivedFormResource:=True; RequireDerivedFormResource:=True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TMainForm, MainForm);

9
components/colorpalette/demo/GeneralDemo/unit1.lfm
View File

@@ -39,11 +39,14 @@ object MainForm: TMainForm
WordWrap = True WordWrap = True
end end
object BtnEditColor: TButton object BtnEditColor: TButton
AnchorSideTop.Control = ColorSample
AnchorSideTop.Side = asrCenter
Left = 83 Left = 83
Height = 19 Height = 25
Hint = 'Edit current color' Hint = 'Edit current color'
Top = 13 Top = 15
Width = 64 Width = 46
AutoSize = True
Caption = 'Edit' Caption = 'Edit'
OnClick = BtnEditColorClick OnClick = BtnEditColorClick
TabOrder = 0 TabOrder = 0

4
components/colorpalette/demo/ToolbarDemo/project1.lpr
View File

@@ -7,13 +7,15 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, Unit1, lazcolorpalette Forms, Unit1, lclversion, lazcolorpalette
{ you can add units after this }; { you can add units after this };
{$R *.res} {$R *.res}
begin begin
{$IF LCL_FULLVERSION >= 1080000}
Application.Scaled := True; Application.Scaled := True;
{$ENDIF}
RequireDerivedFormResource:=True; RequireDerivedFormResource:=True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TMainForm, MainForm);