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

examples: fix checkbox example

Browse Source 
git-svn-id: trunk@29135 -
This commit is contained in:
paul 2011-01-20 09:27:16 +00:00
parent 49445bf7fd
commit 6d649ede3b
2 changed files with 32 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
examples/checkbox.lpi
View File

@ -1,17 +1,19 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
@ -35,20 +37,28 @@
<Filename Value="checkbox.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="CheckBox"/>
<CursorPos X="19" Y="30"/>
<TopLine Value="1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="226"/>
<CursorPos X="20" Y="243"/>
<UsageCount Value="20"/>
<Bookmarks Count="1">
<Item0 X="4" Y="245" ID="1"/>
</Bookmarks>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="9"/>
<PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>

14
examples/checkbox.pp
View File

@ -32,6 +32,8 @@
program CheckBox;
{$mode objfpc}{$H+}
// program uses WriteLn
{$apptype console}
uses
Interfaces, Classes, Stdctrls, Forms, Buttons, Menus, Comctrls,
@ -166,7 +168,8 @@ End;
{------------------------------------------------------------------------------}
procedure TForm1.LoadMainMenu;
var
BtnGlyph: TPortableNetworkGraphic;
begin
OnDestroy := @FormKill;
@ -234,7 +237,14 @@ begin
Button11.Width:= 45;
Button11.Height:= 55;
Button11.Flat:= true;
Button11.Glyph.LoadFromFile('../images/btn_newform.xpm');
BtnGlyph := TPortableNetworkGraphic.Create;
try
BtnGlyph.LoadFromFile('../images/items/item_form.png');
Button11.Glyph.Assign(BtnGlyph);
finally
BtnGlyph.Free;
end;
// Button11.Spacing:= -1;
// Button11.Margin:= 4;
Button11.Visible:= true;