From 5b1fa774f44e68e2d6ac971a27470f6e6c1822ac Mon Sep 17 00:00:00 2001 From: blaszijk Date: Thu, 9 Feb 2012 18:27:35 +0000 Subject: [PATCH] fixed path delimiter git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2281 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/draw_test/unit1.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/applications/draw_test/unit1.pas b/applications/draw_test/unit1.pas index 43f14dac0..76a926b08 100644 --- a/applications/draw_test/unit1.pas +++ b/applications/draw_test/unit1.pas @@ -69,17 +69,17 @@ procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin - FileCache50 := TFileCache.Create('.\images50.cache'); - FileCache100 := TFileCache.Create('.\images100.cache'); + FileCache50 := TFileCache.Create('./images50.cache'); + FileCache100 := TFileCache.Create('./images100.cache'); png := TPortableNetworkGraphic.Create; //load all images to the caches for i := 1 to 23 do begin - png.LoadFromFile(Format('.\images\%.4d.png', [i])); + png.LoadFromFile(Format('./images/%.4d.png', [i])); FileCache100.Add(i, png); - png.LoadFromFile(Format('.\images_50\%.4d.png', [i])); + png.LoadFromFile(Format('./images_50/%.4d.png', [i])); FileCache50.Add(i, png); end;