paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 00:38:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: imagelist - use FPC resources

Browse Source 
git-svn-id: trunk@26896 -
This commit is contained in:
paul 2010-07-29 09:16:12 +00:00
parent 8fd1403f95
commit 97163a1b59
6 changed files with 65 additions and 106 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -3123,8 +3123,8 @@ examples/imagelist/images/edit-clear.png -text svneol=unset#image/png
examples/imagelist/images/edit-find-replace.png -text svneol=unset#image/png
examples/imagelist/project1.lpi svneol=native#text/plain
examples/imagelist/project1.lpr svneol=native#text/plain
examples/imagelist/project1.res -text
examples/imagelist/unit1.lfm svneol=native#text/plain
examples/imagelist/unit1.lrs svneol=native#text/pascal
examples/imagelist/unit1.pas svneol=native#text/pascal
examples/imgviewer/file.bmp -text svneol=native#image/bmp
examples/imgviewer/file.xpm -text svneol=native#image/x-xpixmap

103
examples/imagelist/project1.lpi
View File

@ -1,18 +1,20 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="6"/>
<Version Value="8"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
<UseXPManifest Value="True"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
@ -36,155 +38,167 @@
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<CursorPos X="22" Y="9"/>
<TopLine Value="1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="29"/>
<CursorPos X="47" Y="55"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../lcl/graphics.pp"/>
<UnitName Value="Graphics"/>
<CursorPos X="1" Y="1497"/>
<WindowIndex Value="0"/>
<TopLine Value="1476"/>
<EditorIndex Value="1"/>
<CursorPos X="1" Y="1497"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="21" Column="20" TopLine="15"/>
<Caret Line="19" Column="20" TopLine="15"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="20" Column="20" TopLine="15"/>
<Caret Line="18" Column="28" TopLine="15"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="19" Column="20" TopLine="15"/>
<Caret Line="17" Column="26" TopLine="15"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="18" Column="28" TopLine="15"/>
<Caret Line="18" Column="26" TopLine="15"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="17" Column="26" TopLine="15"/>
<Caret Line="19" Column="26" TopLine="15"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="18" Column="26" TopLine="15"/>
<Caret Line="30" Column="71" TopLine="29"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="19" Column="26" TopLine="15"/>
<Caret Line="78" Column="3" TopLine="64"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="30" Column="71" TopLine="29"/>
<Caret Line="62" Column="1" TopLine="60"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="78" Column="3" TopLine="64"/>
<Caret Line="60" Column="1" TopLine="44"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="62" Column="1" TopLine="60"/>
<Caret Line="28" Column="5" TopLine="22"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="60" Column="1" TopLine="44"/>
<Caret Line="88" Column="14" TopLine="60"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="28" Column="5" TopLine="22"/>
<Caret Line="27" Column="30" TopLine="26"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="88" Column="14" TopLine="60"/>
<Caret Line="26" Column="24" TopLine="26"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="27" Column="30" TopLine="26"/>
<Caret Line="27" Column="44" TopLine="9"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="26" Column="24" TopLine="26"/>
<Caret Line="67" Column="35" TopLine="37"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="27" Column="44" TopLine="9"/>
<Caret Line="89" Column="30" TopLine="73"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="67" Column="35" TopLine="37"/>
<Caret Line="46" Column="56" TopLine="33"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="89" Column="30" TopLine="73"/>
<Caret Line="131" Column="5" TopLine="91"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="46" Column="56" TopLine="33"/>
<Caret Line="87" Column="8" TopLine="78"/>
</Position19>
<Position20>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="5" TopLine="91"/>
<Caret Line="67" Column="1" TopLine="66"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="87" Column="8" TopLine="78"/>
<Caret Line="121" Column="28" TopLine="91"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="67" Column="1" TopLine="66"/>
<Caret Line="120" Column="1" TopLine="91"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="121" Column="28" TopLine="91"/>
<Caret Line="118" Column="1" TopLine="93"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="120" Column="1" TopLine="91"/>
<Caret Line="119" Column="1" TopLine="93"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="118" Column="1" TopLine="93"/>
<Caret Line="121" Column="1" TopLine="93"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="119" Column="1" TopLine="93"/>
<Caret Line="118" Column="1" TopLine="93"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="121" Column="1" TopLine="93"/>
<Caret Line="113" Column="48" TopLine="93"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="118" Column="1" TopLine="93"/>
<Caret Line="57" Column="43" TopLine="38"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="113" Column="48" TopLine="93"/>
<Caret Line="9" Column="22" TopLine="16"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="57" Column="43" TopLine="38"/>
<Caret Line="130" Column="1" TopLine="104"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="9"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -193,6 +207,9 @@
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

2
examples/imagelist/project1.lpr
View File

@ -10,6 +10,8 @@ uses
Forms
{ you can add units after this }, Unit1;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

BIN
examples/imagelist/project1.res Normal file
View File

Binary file not shown.

59
examples/imagelist/unit1.lrs
View File

@ -1,59 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#9#1#6'Height'#3'N'#1#3'Top'#3#150#0#5'Wid'
+'th'#3#13#3#18'HorzScrollBar.Page'#3#12#3#18'VertScrollBar.Page'#3'M'#1#13'A'
+'ctiveControl'#7#8'ListBox1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3'N'#1#11
+'ClientWidth'#3#13#3#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenC'
+'enter'#10'LCLVersion'#6#6'0.9.25'#0#8'TListBox'#8'ListBox1'#22'AnchorSideLe'
+'ft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'Anch'
+'orSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox5'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#20#6'Height'#2'x'#3'Top'#3
+#166#0#5'Width'#3#228#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Bor'
+'derSpacing.Top'#2#10#17'OnSelectionChange'#7#23'ListBox1SelectionChange'#8
+'TabOrder'#2#0#0#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#20#6'Height'#3#146#0#3
+'Top'#2#10#5'Width'#3#132#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#20#17'Bor'
+'derSpacing.Top'#2#10#7'Caption'#6#6'Normal'#12'ClientHeight'#3#128#0#11'Cli'
+'entWidth'#3#128#0#5'Color'#7#7'clWhite'#11'ParentColor'#8#8'TabOrder'#2#1#0
+#6'TImage'#6'Image1'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#3#128#0
+#5'Width'#3#128#0#6'Center'#9#11'Transparent'#8#0#0#0#9'TGroupBox'#9'GroupBo'
+'x2'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#19'AnchorSideLeft.Side'#7#9'a'
+'srBottom'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#3#172#0#6'Height'#3
+#146#0#3'Top'#2#10#5'Width'#3#132#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#20
+#17'BorderSpacing.Top'#2#10#7'Caption'#6#8'Disabled'#12'ClientHeight'#3#128#0
+#11'ClientWidth'#3#128#0#5'Color'#7#7'clWhite'#11'ParentColor'#8#8'TabOrder'
+#2#2#0#6'TImage'#6'Image2'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#3
+#128#0#5'Width'#3#128#0#6'Center'#9#11'Transparent'#8#0#0#0#9'TGroupBox'#9'G'
+'roupBox3'#22'AnchorSideLeft.Control'#7#9'GroupBox2'#19'AnchorSideLeft.Side'
+#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#3'D'#1#6'Height'
+#3#146#0#3'Top'#2#10#5'Width'#3#132#0#8'AutoSize'#9#18'BorderSpacing.Left'#2
+#20#17'BorderSpacing.Top'#2#10#7'Caption'#6#11'Highlighted'#12'ClientHeight'
+#3#128#0#11'ClientWidth'#3#128#0#5'Color'#7#7'clWhite'#11'ParentColor'#8#8'T'
+'abOrder'#2#3#0#6'TImage'#6'Image3'#18'AnchorSideTop.Side'#7#9'asrBottom'#6
+'Height'#3#128#0#5'Width'#3#128#0#6'Center'#9#11'Transparent'#8#0#0#0#9'TGro'
+'upBox'#9'GroupBox4'#22'AnchorSideLeft.Control'#7#9'GroupBox3'#19'AnchorSide'
+'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#3#220
+#1#6'Height'#3#146#0#3'Top'#2#10#5'Width'#3#132#0#8'AutoSize'#9#18'BorderSpa'
+'cing.Left'#2#20#17'BorderSpacing.Top'#2#10#7'Caption'#6#8'Shadowed'#12'Clie'
+'ntHeight'#3#128#0#11'ClientWidth'#3#128#0#5'Color'#7#7'clWhite'#11'ParentCo'
+'lor'#8#8'TabOrder'#2#4#0#6'TImage'#6'Image4'#18'AnchorSideTop.Side'#7#9'asr'
+'Bottom'#6'Height'#3#128#0#5'Width'#3#128#0#6'Center'#9#11'Transparent'#8#0#0
+#0#7'TButton'#7'Button1'#21'AnchorSideTop.Control'#7#8'ListBox1'#18'AnchorSi'
+'deTop.Side'#7#9'asrBottom'#4'Left'#2#20#6'Height'#2#25#3'Top'#3'('#1#5'Widt'
+'h'#2'K'#17'BorderSpacing.Top'#2#10#7'Caption'#6#7'Add ...'#7'OnClick'#7#12
+'Button1Click'#8'TabOrder'#2#5#0#0#9'TGroupBox'#9'GroupBox5'#22'AnchorSideLe'
+'ft.Control'#7#9'GroupBox4'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Anchor'
+'SideTop.Control'#7#5'Owner'#4'Left'#3't'#2#6'Height'#3#146#0#3'Top'#2#10#5
+'Width'#3#132#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#20#17'BorderSpacing.T'
+'op'#2#10#7'Caption'#6#5'1 Bit'#12'ClientHeight'#3#128#0#11'ClientWidth'#3
+#128#0#5'Color'#7#7'clWhite'#11'ParentColor'#8#8'TabOrder'#2#6#0#6'TImage'#6
+'Image5'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#3#128#0#5'Width'#3
+#128#0#6'Center'#9#11'Transparent'#8#0#0#0#10'TImageList'#10'ImageList1'#6'H'
+'eight'#3#128#0#5'Width'#3#128#0#4'left'#3#128#1#3'top'#3#192#0#0#0#18'TOpen'
+'PictureDialog'#18'OpenPictureDialog1'#6'Filter'#6#255'Graphic (*.ico;*.ppm;'
+'*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|Ic'
+'on (*.ico)|*.ico|Portable PixMap (*.ppm)|*.ppm|Portable GrayMap (*.pgm)|*.p'
+'gm|Portable BitMap (*.pbm)|*.pbm|Portable Network Graphic (*.png)|*.png|Pix'
+'map (*.xp'#4'left'#3#160#1#3'top'#3#192#0#0#0#0
]);

5
examples/imagelist/unit1.pas
View File

@ -44,6 +44,8 @@ var
implementation
{$R *.lfm}
{ TForm1 }
function LoadBitmapFromFile(AFileName: String): TCustomBitmap;
@ -127,8 +129,5 @@ begin
bmp.Free;
end;
initialization
{$I unit1.lrs}
end.