pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Remove hard-coded backslash from JvTabBar demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6332 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-20 22:32:31 +00:00
parent 1c601ade43
commit 0c95b36891
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jvcllaz/examples/JvTabBar/main.pas
View File

@ -96,9 +96,9 @@ end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
OpenDialog1.InitialDir := '..\examples\JvTabBar'; OpenDialog1.InitialDir := '..' + PathDelim + 'examples' + PathDelim + 'JvTabBar';
LoadFile('..\examples\JvTabBar\main.pas'); LoadFile(OpenDialog1.InitialDir + PathDelim + 'main.pas');
LoadFile('..\examples\JvTabBar\main.lfm'); LoadFile(OpenDialog1.InitialDir + PathDelim + 'main.lfm');
end; end;
procedure TForm1.FormDestroy(Sender: TObject); procedure TForm1.FormDestroy(Sender: TObject);