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

Examples, fix some system dependant issues, from Julio Jimenez B.

Browse Source 
git-svn-id: trunk@32176 -
This commit is contained in:
jesus 2011-09-04 18:07:54 +00:00
parent ee3a8b906f
commit cd51a553c4
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/imagelist/unit1.pas
View File

@ -70,8 +70,8 @@ end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AddFile(ExtractFilePath(ParamStrUTF8(0)) + 'images\edit-clear.png');
AddFile(ExtractFilePath(ParamStrUTF8(0)) + 'images\edit-find-replace.png');
AddFile(ExtractFilePath(ParamStrUTF8(0)) + SetDirSeparators('images\edit-clear.png'));
AddFile(ExtractFilePath(ParamStrUTF8(0)) + SetDirSeparators('images\edit-find-replace.png'));
end;
procedure TForm1.Button1Click(Sender: TObject);

2
examples/lazintfimage/mainunit1.pas
View File

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