Skip to content

Commit

Permalink
fix: lazarus comp
Browse files Browse the repository at this point in the history
  • Loading branch information
turborim committed Sep 15, 2023
1 parent fb6be64 commit 60cc047
Show file tree
Hide file tree
Showing 225 changed files with 561 additions and 561 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/audio/audio_module_playing/audio_module_playing.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/audio/audio_module_playing/audio_module_playing.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/audio/audio_music_stream/audio_music_stream.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/audio/audio_music_stream/audio_music_stream.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/audio/audio_raw_stream/audio_raw_stream.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/audio/audio_raw_stream/audio_raw_stream.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/audio/audio_sound_loading/audio_sound_loading.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/audio/audio_sound_loading/audio_sound_loading.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/audio/audio_stream_effects/audio_stream_effects.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/audio/audio_stream_effects/audio_stream_effects.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/core/core_2d_camera/core_2d_camera.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/core/core_2d_camera/core_2d_camera.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/core/core_3d_camera_free/core_3d_camera_free.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/core/core_3d_camera_free/core_3d_camera_free.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/core/core_3d_camera_mode/core_3d_camera_mode.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/core/core_3d_camera_mode/core_3d_camera_mode.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/core/core_3d_picking/core_3d_picking.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/core/core_3d_picking/core_3d_picking.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/core/core_basic_window/core_basic_window.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
7 changes: 2 additions & 5 deletions examples/core/core_basic_window/core_basic_window.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,8 @@

begin
try
{$IFDEF UNIX}
// Another "greatness" of UNIX, the current directory can be "/" or other trash,
// when App opened from Finder, etc. This breaks load resources. 10/10.
SetCurrentDir(ExtractFilePath(ParamStr(0)));
{$ENDIF}
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
Expand Down
3 changes: 3 additions & 0 deletions examples/core/core_custom_logging/core_custom_logging.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,9 @@ uses

begin
try
// set current directory to exe path
SetCurrentDir(ExtractFilePath(ParamStr(0)));

Main();
except
on E: Exception do
Expand Down
Loading

0 comments on commit 60cc047

Please sign in to comment.