OnGuard: Fix compilation back to Laz 1.4.4/FPC 2.6.4 (oldest one tested). Move TOgModifierProperty in unit ogreg.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8718 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-19 22:58:04 +00:00
parent 2fa960756a
commit 8a04d28a5a
6 changed files with 147 additions and 162 deletions

View File

@ -1,14 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<Scaled Value="True"/>
<MainUnit Value="0"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
@ -20,16 +19,9 @@
</PublishOptions>
<RunParams>
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -45,7 +37,8 @@
<Filename Value="codegen.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="CodeGen"/>
<CursorPos X="73" Y="15"/>
<IsVisibleTab Value="True"/>
<CursorPos X="27" Y="9"/>
<UsageCount Value="28"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -124,9 +117,8 @@
</Unit9>
<Unit10>
<Filename Value="..\..\source\onguard.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="5"/>
<TopLine Value="922"/>
<TopLine Value="913"/>
<CursorPos X="6" Y="940"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
@ -244,7 +236,7 @@
<Loaded Value="True"/>
</Unit25>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="..\..\source\qonguard2.pas"/>
<Caret Line="504" Column="3" TopLine="500"/>
@ -266,104 +258,100 @@
</Position5>
<Position6>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="152" Column="16" TopLine="165"/>
<Caret Line="69" Column="9" TopLine="50"/>
</Position6>
<Position7>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="69" Column="9" TopLine="50"/>
<Caret Line="86" Column="11" TopLine="55"/>
</Position7>
<Position8>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="86" Column="11" TopLine="55"/>
<Caret Line="97" Column="9" TopLine="78"/>
</Position8>
<Position9>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="97" Column="9" TopLine="78"/>
<Caret Line="152" Column="9" TopLine="133"/>
</Position9>
<Position10>
<Filename Value="..\..\source\ogfirst.pas"/>
<Caret Line="152" Column="9" TopLine="133"/>
<Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="675" Column="24" TopLine="643"/>
</Position10>
<Position11>
<Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="675" Column="24" TopLine="643"/>
<Caret Line="262" Column="9" TopLine="243"/>
</Position11>
<Position12>
<Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="262" Column="9" TopLine="243"/>
<Caret Line="377" Column="9" TopLine="358"/>
</Position12>
<Position13>
<Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="377" Column="9" TopLine="358"/>
<Caret Line="532" Column="9" TopLine="513"/>
</Position13>
<Position14>
<Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="532" Column="9" TopLine="513"/>
<Caret Line="663" Column="9" TopLine="644"/>
</Position14>
<Position15>
<Filename Value="..\..\source\ogproexe.pas"/>
<Caret Line="663" Column="9" TopLine="644"/>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="482" Column="18" TopLine="456"/>
</Position15>
<Position16>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="482" Column="18" TopLine="456"/>
<Caret Line="100" Column="9" TopLine="81"/>
</Position16>
<Position17>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="100" Column="9" TopLine="81"/>
<Caret Line="142" Column="9" TopLine="123"/>
</Position17>
<Position18>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="142" Column="9" TopLine="123"/>
<Caret Line="190" Column="9" TopLine="172"/>
</Position18>
<Position19>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="190" Column="9" TopLine="172"/>
<Caret Line="228" Column="9" TopLine="209"/>
</Position19>
<Position20>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="228" Column="9" TopLine="209"/>
<Caret Line="482" Column="9" TopLine="456"/>
</Position20>
<Position21>
<Filename Value="..\..\source\ogsrmgr.pas"/>
<Caret Line="482" Column="9" TopLine="456"/>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="55" Column="9" TopLine="36"/>
</Position21>
<Position22>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="545" Column="18" TopLine="690"/>
<Caret Line="77" Column="11" TopLine="58"/>
</Position22>
<Position23>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="55" Column="9" TopLine="36"/>
<Caret Line="304" Column="19" TopLine="288"/>
</Position23>
<Position24>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="77" Column="11" TopLine="58"/>
<Caret Line="548" Column="9" TopLine="529"/>
</Position24>
<Position25>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="304" Column="19" TopLine="288"/>
<Caret Line="847" Column="18" TopLine="831"/>
</Position25>
<Position26>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="548" Column="9" TopLine="529"/>
<Caret Line="1159" Column="18" TopLine="1143"/>
</Position26>
<Position27>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="847" Column="18" TopLine="831"/>
<Caret Line="1271" Column="6" TopLine="1247"/>
</Position27>
<Position28>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="1159" Column="18" TopLine="1143"/>
</Position28>
<Position29>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="1271" Column="6" TopLine="1247"/>
</Position29>
<Position30>
<Filename Value="..\..\source\onguard.inc"/>
<Caret Line="50" Column="19" TopLine="31"/>
</Position30>
</Position28>
<Position29>
<Filename Value="codegen.lpr"/>
<Caret Line="15" Column="73"/>
</Position29>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

View File

@ -6,6 +6,7 @@ program CodeGen;
uses
Interfaces,
LCLVersion,
Forms,
CodeGenU in 'CODEGENU.pas' {CodeGenFrm}, tponguard;
@ -13,7 +14,9 @@ uses
{$R *.res}
begin
{$IF LCL_FullVersion >= 3000000}
Application.Scaled:=True;
{$ENDIF}
Application.Title:='';
Application.Initialize;
Application.CreateForm(TCodeGenFrm, CodeGenFrm);