From cd51a553c439745e67e46f89139979bef10e7f4a Mon Sep 17 00:00:00 2001 From: jesus Date: Sun, 4 Sep 2011 18:07:54 +0000 Subject: [PATCH] Examples, fix some system dependant issues, from Julio Jimenez B. git-svn-id: trunk@32176 - --- examples/imagelist/unit1.pas | 4 ++-- examples/lazintfimage/mainunit1.pas | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/imagelist/unit1.pas b/examples/imagelist/unit1.pas index 437b6cc811..dc02b2fb5d 100644 --- a/examples/imagelist/unit1.pas +++ b/examples/imagelist/unit1.pas @@ -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); diff --git a/examples/lazintfimage/mainunit1.pas b/examples/lazintfimage/mainunit1.pas index bf3e2a3c56..cee762a2c1 100644 --- a/examples/lazintfimage/mainunit1.pas +++ b/examples/lazintfimage/mainunit1.pas @@ -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);