From 0c95b368917103630a488b38f526202094d2dc53 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 20 Apr 2018 22:32:31 +0000 Subject: [PATCH] jvcllaz: Remove hard-coded backslash from JvTabBar demo git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6332 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/jvcllaz/examples/JvTabBar/main.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/jvcllaz/examples/JvTabBar/main.pas b/components/jvcllaz/examples/JvTabBar/main.pas index 4142c4321..633411f1d 100644 --- a/components/jvcllaz/examples/JvTabBar/main.pas +++ b/components/jvcllaz/examples/JvTabBar/main.pas @@ -96,9 +96,9 @@ end; procedure TForm1.FormCreate(Sender: TObject); begin - OpenDialog1.InitialDir := '..\examples\JvTabBar'; - LoadFile('..\examples\JvTabBar\main.pas'); - LoadFile('..\examples\JvTabBar\main.lfm'); + OpenDialog1.InitialDir := '..' + PathDelim + 'examples' + PathDelim + 'JvTabBar'; + LoadFile(OpenDialog1.InitialDir + PathDelim + 'main.pas'); + LoadFile(OpenDialog1.InitialDir + PathDelim + 'main.lfm'); end; procedure TForm1.FormDestroy(Sender: TObject);