lazintfimage example: fixed loading a bitmap

git-svn-id: trunk@16256 -

examples/lazintfimage/fadein1.lpi

@@ -1,21 +1,22 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
+    <PathDelim Value="\"/>
-    <Version Value="5"/>
+    <Version Value="6"/>
     <General>
       <Flags>
         <SaveClosedFiles Value="False"/>
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
+      <IconPath Value=".\"/>
       <TargetFileExt Value=""/>
       <Title Value="Fade In - Example for TLazIntfImage"/>
-      <ActiveEditorIndexAtStart Value="1"/>
+      <ActiveEditorIndexAtStart Value="2"/>
     </General>
     <PublishOptions>
       <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
       <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@@ -23,7 +24,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -39,28 +40,30 @@
         <UnitName Value="FadeIn1"/>
         <CursorPos X="8" Y="11"/>
         <TopLine Value="1"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="1"/>
-        <UsageCount Value="20"/>
+        <UsageCount Value="65"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="mainunit1.pas"/>
         <ComponentName Value="Form1"/>
         <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <ResourceFilename Value="mainunit1.lrs"/>
         <UnitName Value="MainUnit1"/>
-        <CursorPos X="30" Y="234"/>
+        <CursorPos X="57" Y="52"/>
-        <TopLine Value="215"/>
+        <TopLine Value="212"/>
         <EditorIndex Value="0"/>
-        <UsageCount Value="20"/>
+        <UsageCount Value="65"/>
         <Loaded Value="True"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
+    <PathDelim Value="\"/>
     <SearchPaths>
-      <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
+      <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
     </SearchPaths>
     <CodeGeneration>
       <Generate Value="Faster"/>

examples/lazintfimage/mainunit1.lfm

@@ -3,22 +3,19 @@ object Form1: TForm1
   Height = 541
   Top = 163
   Width = 498
-  HorzScrollBar.Page = 497
-  VertScrollBar.Page = 540
   ActiveControl = Button1
   Caption = 'Fade in - Example for TLazIntfImage'
   ClientHeight = 541
   ClientWidth = 498
   OnCreate = Form1Create
   OnDestroy = Form1Destroy
-  PixelsPerInch = 96
+  LCLVersion = '0.9.25'
   object Button1: TButton
     Left = 85
     Height = 25
     Top = 466
     Width = 328
     Anchors = [akBottom]
-    
     Caption = 'Fade in'
     OnClick = Button1Click
     TabOrder = 0
@@ -29,7 +26,6 @@ object Form1: TForm1
     Top = 498
     Width = 324
     Anchors = [akBottom]
-    
     Caption = 'Rotate by >>'
     OnClick = Button2Click
     TabOrder = 1

examples/lazintfimage/mainunit1.lrs

@@ -1,16 +1,17 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TForm1','FORMDATA',[
   'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'#'#1#6'Height'#3#29#2#3'Top'#3#163#0#5'Wi'
-  +'dth'#3#242#1#18'HorzScrollBar.Page'#3#241#1#18'VertScrollBar.Page'#3#28#2#13
+  +'dth'#3#242#1#13'ActiveControl'#7#7'Button1'#7'Caption'#6'#Fade in - Example'
-  +'ActiveControl'#7#7'Button1'#7'Caption'#6'#Fade in - Example for TLazIntfIma'
+  +' for TLazIntfImage'#12'ClientHeight'#3#29#2#11'ClientWidth'#3#242#1#8'OnCre'
-  +'ge'#12'ClientHeight'#3#29#2#11'ClientWidth'#3#242#1#8'OnCreate'#7#11'Form1C'
+  +'ate'#7#11'Form1Create'#9'OnDestroy'#7#12'Form1Destroy'#10'LCLVersion'#6#6'0'
-  +'reate'#9'OnDestroy'#7#12'Form1Destroy'#13'PixelsPerInch'#2'`'#0#7'TButton'#7
+  +'.9.25'#0#7'TButton'#7'Button1'#4'Left'#2'U'#6'Height'#2#25#3'Top'#3#210#1#5
-  +'Button1'#4'Left'#2'U'#6'Height'#2#25#3'Top'#3#210#1#5'Width'#3'H'#1#7'Ancho'
+  +'Width'#3'H'#1#7'Anchors'#11#8'akBottom'#0#7'Caption'#6#7'Fade in'#7'OnClick'
-  +'rs'#11#8'akBottom'#0#7'Caption'#6#7'Fade in'#7'OnClick'#7#12'Button1Click'#8
+  +#7#12'Button1Click'#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#2'W'#6
-  +'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#2'W'#6'Height'#2#25#3'Top'#3
+  +'Height'#2#25#3'Top'#3#242#1#5'Width'#3'D'#1#7'Anchors'#11#8'akBottom'#0#7'C'
-  +#242#1#5'Width'#3'D'#1#7'Anchors'#11#8'akBottom'#0#7'Caption'#6#12'Rotate by'
+  +'aption'#6#12'Rotate by >>'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#1#0#0
-  +' >>'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#1#0#0#5'TEdit'#5'Edit1'#22
+  +#5'TEdit'#5'Edit1'#22'AnchorSideLeft.Control'#7#7'Button2'#21'AnchorSideTop.'
-  +'AnchorSideLeft.Control'#7#7'Button2'#21'AnchorSideTop.Control'#7#7'Button2'
+  +'Control'#7#7'Button2'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'a'#6
-  +#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'a'#6'Height'#2#23#3'Top'#3
+  +'Height'#2#23#3'Top'#3#243#1#5'Width'#2' '#18'BorderSpacing.Left'#2#5#20'Bor'
-  +#243#1#5'Width'#2' '#18'BorderSpacing.Left'#2#5#20'BorderSpacing.Around'#2#5
+  +'derSpacing.Around'#2#5#8'TabOrder'#2#2#4'Text'#6#2'90'#0#0#0
-  +#8'TabOrder'#2#2#4'Text'#6#2'90'#0#0#0
 ]);

examples/lazintfimage/mainunit1.pas

@@ -49,7 +49,7 @@ end;
 procedure TForm1.Form1Create(Sender: TObject);
 begin
   SampleBitmapABitmap:=TBitmap.Create;
-  SampleBitmapABitmap.LoadFromFile('../../images/lazarus.xpm');
+  SampleBitmapABitmap.LoadFromFile('..\..\images\lazarusform.bmp');
 end;
 
 procedure TForm1.Form1Destroy(Sender: TObject);