summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore1
-rw-r--r--raetsel.lpi62
-rw-r--r--raetsel.lpr12
-rw-r--r--raetsel.lps97
-rw-r--r--unit1.pas7
5 files changed, 131 insertions, 48 deletions
diff --git a/.gitignore b/.gitignore
index 09ebc93..f769ec7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -18,3 +18,4 @@ backup
*.bak
lib/*
raetsel
+raetsel-debug
diff --git a/raetsel.lpi b/raetsel.lpi
index 77e790c..b172cfa 100644
--- a/raetsel.lpi
+++ b/raetsel.lpi
@@ -13,7 +13,7 @@
<i18n>
<EnableI18N LFM="False"/>
</i18n>
- <BuildModes Count="2">
+ <BuildModes Count="4">
<Item1 Name="linux_64bits" Default="True"/>
<Item2 Name="win10_64bits">
<CompilerOptions>
@@ -39,6 +39,66 @@
</Linking>
</CompilerOptions>
</Item2>
+ <Item3 Name="linux_64bits-debug">
+ <CompilerOptions>
+ <Version Value="11"/>
+ <Target>
+ <Filename Value="raetsel-debug"/>
+ </Target>
+ <SearchPaths>
+ <IncludeFiles Value="$(ProjOutDir)"/>
+ <OtherUnitFiles Value="../units"/>
+ <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+ </SearchPaths>
+ <CodeGeneration>
+ <TargetCPU Value="x86_64"/>
+ <TargetOS Value="linux"/>
+ </CodeGeneration>
+ <Linking>
+ <Options>
+ <Win32>
+ <GraphicApplication Value="True"/>
+ </Win32>
+ </Options>
+ </Linking>
+ <Other>
+ <CustomOptions Value="-dDEBUG"/>
+ <OtherDefines Count="1">
+ <Define0 Value="DEBUG"/>
+ </OtherDefines>
+ </Other>
+ </CompilerOptions>
+ </Item3>
+ <Item4 Name="win10_64bits-debug">
+ <CompilerOptions>
+ <Version Value="11"/>
+ <Target>
+ <Filename Value="raetsel-debug"/>
+ </Target>
+ <SearchPaths>
+ <IncludeFiles Value="$(ProjOutDir)"/>
+ <OtherUnitFiles Value="../units"/>
+ <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+ </SearchPaths>
+ <CodeGeneration>
+ <TargetCPU Value="x86_64"/>
+ <TargetOS Value="win64"/>
+ </CodeGeneration>
+ <Linking>
+ <Options>
+ <Win32>
+ <GraphicApplication Value="True"/>
+ </Win32>
+ </Options>
+ </Linking>
+ <Other>
+ <CustomOptions Value="-dDEBUG"/>
+ <OtherDefines Count="1">
+ <Define0 Value="DEBUG"/>
+ </OtherDefines>
+ </Other>
+ </CompilerOptions>
+ </Item4>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
diff --git a/raetsel.lpr b/raetsel.lpr
index 672f9ca..720aa2b 100644
--- a/raetsel.lpr
+++ b/raetsel.lpr
@@ -12,9 +12,21 @@ uses
{$R *.res}
begin
+ {$IFDEF DEBUG}
+ writeln('Anfang');
+ {$ENDIF}
requireDerivedFormResource:=true;
application.initialize;
+ {$IFDEF DEBUG}
+ writeln('application.initialize;');
+ {$ENDIF}
application.createForm(tForm1, form1);
+ {$IFDEF DEBUG}
+ writeln('application.createForm(tForm1, form1);');
+ {$ENDIF}
application.run;
+ {$IFDEF DEBUG}
+ writeln('application.run;');
+ {$ENDIF}
end.
diff --git a/raetsel.lps b/raetsel.lps
index e0413a6..1b7bfc1 100644
--- a/raetsel.lps
+++ b/raetsel.lps
@@ -7,8 +7,9 @@
<Unit0>
<Filename Value="raetsel.lpr"/>
<IsPartOfProject Value="True"/>
+ <IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
- <CursorPos X="66" Y="13"/>
+ <CursorPos X="30" Y="19"/>
<UsageCount Value="62"/>
<Loaded Value="True"/>
</Unit0>
@@ -18,8 +19,8 @@
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
- <TopLine Value="19"/>
- <CursorPos X="43" Y="16"/>
+ <TopLine Value="43"/>
+ <CursorPos X="59" Y="55"/>
<UsageCount Value="62"/>
<Loaded Value="True"/>
</Unit1>
@@ -37,7 +38,6 @@
<Unit3>
<Filename Value="raetselunit.pas"/>
<IsPartOfProject Value="True"/>
- <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="812"/>
<CursorPos X="50" Y="844"/>
@@ -155,125 +155,128 @@
<UsageCount Value="10"/>
</Unit19>
</Units>
+ <OtherDefines Count="1">
+ <Define0 Value="DEBUG"/>
+ </OtherDefines>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
- <Filename Value="raetselunit.pas"/>
- <Caret Line="511" Column="82" TopLine="495"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="40" Column="19" TopLine="32"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
- <Caret Line="40" Column="19" TopLine="32"/>
+ <Caret Line="16" Column="41"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
- <Caret Line="16" Column="41"/>
+ <Caret Line="17" Column="42"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
- <Caret Line="17" Column="42"/>
+ <Caret Line="18" Column="39"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
- <Caret Line="18" Column="39"/>
+ <Caret Line="46" Column="44" TopLine="13"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
- <Caret Line="46" Column="44" TopLine="13"/>
+ <Caret Line="67" Column="45" TopLine="34"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
- <Caret Line="67" Column="45" TopLine="34"/>
+ <Caret Line="72" Column="42" TopLine="39"/>
</Position7>
<Position8>
- <Filename Value="unit1.pas"/>
- <Caret Line="72" Column="42" TopLine="39"/>
- </Position8>
- <Position9>
<Filename Value="raetselunit.pas"/>
<Caret Line="824" Column="55" TopLine="808"/>
- </Position9>
- <Position10>
+ </Position8>
+ <Position9>
<Filename Value="raetselunit.inc"/>
<Caret Line="766" Column="55" TopLine="758"/>
+ </Position9>
+ <Position10>
+ <Filename Value="raetselunit.pas"/>
+ <Caret Line="555" Column="43" TopLine="547"/>
</Position10>
<Position11>
<Filename Value="raetselunit.pas"/>
- <Caret Line="555" Column="43" TopLine="547"/>
+ <Caret Line="566" Column="21" TopLine="547"/>
</Position11>
<Position12>
- <Filename Value="raetselunit.pas"/>
- <Caret Line="566" Column="21" TopLine="547"/>
- </Position12>
- <Position13>
<Filename Value="raetsel.lpr"/>
<Caret Line="13" Column="66"/>
- </Position13>
- <Position14>
+ </Position12>
+ <Position13>
<Filename Value="unit1.pas"/>
<Caret Line="4" Column="57"/>
+ </Position13>
+ <Position14>
+ <Filename Value="raetselunit.inc"/>
+ <Caret Line="766" Column="55" TopLine="758"/>
</Position14>
<Position15>
<Filename Value="raetselunit.inc"/>
- <Caret Line="766" Column="55" TopLine="758"/>
</Position15>
<Position16>
<Filename Value="raetselunit.inc"/>
+ <Caret Line="738" Column="22" TopLine="706"/>
</Position16>
<Position17>
- <Filename Value="raetselunit.inc"/>
- <Caret Line="738" Column="22" TopLine="706"/>
- </Position17>
- <Position18>
<Filename Value="raetsel.lpr"/>
<Caret Line="13" Column="66"/>
+ </Position17>
+ <Position18>
+ <Filename Value="raetselunit.pas"/>
+ <Caret Line="563" Column="62" TopLine="525"/>
</Position18>
<Position19>
<Filename Value="raetselunit.pas"/>
- <Caret Line="563" Column="62" TopLine="525"/>
+ <Caret Line="169" Column="46" TopLine="152"/>
</Position19>
<Position20>
<Filename Value="raetselunit.pas"/>
- <Caret Line="169" Column="46" TopLine="152"/>
+ <Caret Line="170" Column="21" TopLine="152"/>
</Position20>
<Position21>
<Filename Value="raetselunit.pas"/>
- <Caret Line="170" Column="21" TopLine="152"/>
+ <Caret Line="2"/>
</Position21>
<Position22>
- <Filename Value="raetselunit.pas"/>
- <Caret Line="2"/>
- </Position22>
- <Position23>
<Filename Value="raetselunit.inc"/>
<Caret Line="714" Column="70" TopLine="706"/>
+ </Position22>
+ <Position23>
+ <Filename Value="raetselunit.pas"/>
+ <Caret Line="170" Column="21" TopLine="138"/>
</Position23>
<Position24>
<Filename Value="raetselunit.pas"/>
- <Caret Line="170" Column="21" TopLine="138"/>
+ <Caret Line="42" Column="38" TopLine="22"/>
</Position24>
<Position25>
<Filename Value="raetselunit.pas"/>
- <Caret Line="42" Column="38" TopLine="22"/>
+ <Caret Line="227" Column="39" TopLine="196"/>
</Position25>
<Position26>
<Filename Value="raetselunit.pas"/>
- <Caret Line="227" Column="39" TopLine="196"/>
+ <Caret Line="732" Column="46" TopLine="701"/>
</Position26>
<Position27>
- <Filename Value="raetselunit.pas"/>
- <Caret Line="732" Column="46" TopLine="701"/>
+ <Filename Value="raetselunit.inc"/>
+ <Caret Line="714" Column="61" TopLine="706"/>
</Position27>
<Position28>
<Filename Value="raetselunit.inc"/>
- <Caret Line="714" Column="61" TopLine="706"/>
+ <Caret Line="688" Column="63" TopLine="678"/>
</Position28>
<Position29>
- <Filename Value="raetselunit.inc"/>
- <Caret Line="688" Column="63" TopLine="678"/>
- </Position29>
- <Position30>
<Filename Value="raetselunit.pas"/>
<Caret Line="812" Column="66" TopLine="808"/>
+ </Position29>
+ <Position30>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="16" Column="43" TopLine="28"/>
</Position30>
</JumpHistory>
</ProjectSession>
diff --git a/unit1.pas b/unit1.pas
index 84cda28..cf26780 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -45,7 +45,13 @@ end;
procedure tForm1.formCreate(sender: tObject);
begin
+ {$IFDEF DEBUG}
+ writeln('procedure tForm1.formCreate(sender: tObject);');
+ {$ENDIF}
application.createForm(tForm2, form2);
+ {$IFDEF DEBUG}
+ writeln('application.createForm(tForm2, form2);');
+ {$ENDIF}
case form2.showmodal of
mrBuchstabenraetsel:
raetsel:=tBuchstabenRaetsel.create(form1);
@@ -54,6 +60,7 @@ begin
else begin
raetsel:=nil;
application.terminate;
+ exit;
end;
end;
raetsel.onSetCaption:=@onSetCaption;