paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-21 21:31:36 +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"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>

14
examples/ReSizeImageDemo/unit1.lfm
View File

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

2
examples/ReSizeImageDemo/unit1.pas
View File

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