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

examples/ResizeImageDemo: remove unit Windows from "uses".

Browse Source 
git-svn-id: trunk@56225 -
This commit is contained in:
wp 2017-10-29 12:08:33 +00:00
parent 897c3f20e0
commit e96879b669
3 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/ReSizeImageDemo/project1.lpi
View File

@ -1,21 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<Title Value="project1"/> <Title Value="project1"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
</i18n> </i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
</BuildModes> </BuildModes>

14
examples/ReSizeImageDemo/unit1.lfm
View File

@ -11,7 +11,7 @@ object Form1: TForm1
OnCreate = FormCreate OnCreate = FormCreate
OnResize = FormResize OnResize = FormResize
ShowHint = True ShowHint = True
LCLVersion = '1.5' LCLVersion = '1.9.0.0'
object Pnl1: TPanel object Pnl1: TPanel
Left = 0 Left = 0
Height = 63 Height = 63
@ -23,25 +23,25 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
object CheckBoxImage: TCheckBox object CheckBoxImage: TCheckBox
Left = 168 Left = 168
Height = 22 Height = 19
Top = 0 Top = 0
Width = 167 Width = 144
Caption = 'Redraw on Image resize' Caption = 'Redraw on Image resize'
TabOrder = 0 TabOrder = 0
end end
object CheckBoxPanel: TCheckBox object CheckBoxPanel: TCheckBox
Left = 168 Left = 168
Height = 22 Height = 19
Top = 16 Top = 16
Width = 160 Width = 140
Caption = 'Redraw on Panel resize' Caption = 'Redraw on Panel resize'
TabOrder = 1 TabOrder = 1
end end
object CheckBoxForm: TCheckBox object CheckBoxForm: TCheckBox
Left = 168 Left = 168
Height = 22 Height = 19
Top = 32 Top = 32
Width = 160 Width = 139
Caption = 'Redraw on Form resize' Caption = 'Redraw on Form resize'
TabOrder = 2 TabOrder = 2
end end

2
examples/ReSizeImageDemo/unit1.pas
View File

@ -13,7 +13,7 @@ unit Unit1;
interface interface
uses uses
{$ifdef Windows} Windows, {$Endif}SysUtils, Forms, Graphics, ExtCtrls, StdCtrls; SysUtils, Forms, Graphics, ExtCtrls, StdCtrls;
type type