Project migration to CodeTyphon 6.10

zbyna · Jun 21, 2017 · c3fcdfd · c3fcdfd
1 parent 191684c
commit c3fcdfd
Show file tree

Hide file tree

Showing 30 changed files with 20 additions and 23 deletions.
diff --git a/localizedforms.lfm → localizedforms.frm b/localizedforms.lfm → localizedforms.frm
diff --git a/localizedforms.pas b/localizedforms.pas
@@ -46,7 +46,7 @@ function GetLCIDFromLangCode(ALang: String): Integer;
 
 implementation
 
-{$R *.lfm}
+{$R *.frm}
 
 uses
 {$IFDEF MSWINDOWS}

diff --git a/project1.lpi → project1.ctpr b/project1.lpi → project1.ctpr
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="9"/>
+    <Version Value="10"/>
     <PathDelim Value="\"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
@@ -15,9 +15,6 @@
       <EnableI18N Value="True"/>
       <OutDir Value="languages"/>
     </i18n>
-    <VersionInfo>
-      <StringTable ProductVersion=""/>
-    </VersionInfo>
     <BuildModes Count="3">
       <Item1 Name="Default" Default="True"/>
       <Item2 Name="Debug">
@@ -104,7 +101,7 @@
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|frm|ppr|lrs|ctpr|ctpkg|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
@@ -180,7 +177,7 @@
         <PackageName Value="bs_Controls"/>
       </Item22>
       <Item23>
-        <PackageName Value="FCL"/>
+        <PackageName Value="adFCL"/>
       </Item23>
       <Item24>
         <PackageName Value="lz_sdf"/>
@@ -189,12 +186,12 @@
         <PackageName Value="lz_tpipro"/>
       </Item25>
       <Item26>
-        <PackageName Value="LCL"/>
+        <PackageName Value="adLCL"/>
       </Item26>
     </RequiredPackages>
     <Units Count="20">
       <Unit0>
-        <Filename Value="project1.lpr"/>
+        <Filename Value="project1.ppr"/>
         <IsPartOfProject Value="True"/>
       </Unit0>
       <Unit1>
@@ -206,7 +203,7 @@
         <UnitName Value="Unit1"/>
       </Unit1>
       <Unit2>
-        <Filename Value="unit1.lfm"/>
+        <Filename Value="unit1.frm"/>
         <IsPartOfProject Value="True"/>
       </Unit2>
       <Unit3>

diff --git a/project1.lpr → project1.ppr b/project1.lpr → project1.ppr
diff --git a/unHledej.lfm → unHledej.frm b/unHledej.lfm → unHledej.frm
diff --git a/unHledej.pas b/unHledej.pas
@@ -35,7 +35,7 @@   TfrmHledej = class(TLocalizedForm)
 
 implementation
 
-{$R *.lfm}
+{$R *.frm}
  uses unit1;  // chci pracovat s objekty z unit1 a nepotřebuju je v deklaraci
               // jde o proměnnou kliknuto
 { TfrmHledej }

diff --git a/unNotSraped.lfm → unNotSraped.frm b/unNotSraped.lfm → unNotSraped.frm
diff --git a/unNotSraped.pas b/unNotSraped.pas
@@ -31,7 +31,7 @@   TfrmNotScraped = class(TLocalizedForm)
 
 implementation
 
-{$R *.lfm}
+{$R *.frm}
 uses
     Unit8,                      // formScraper
     unit1,                      // resource strings

diff --git a/unUkazHistorii.lfm → unUkazHistorii.frm b/unUkazHistorii.lfm → unUkazHistorii.frm
diff --git a/unUkazHistorii.pas b/unUkazHistorii.pas
@@ -71,7 +71,7 @@   TfrmUkazHistorii = class(TLocalizedForm)
 
 implementation
 
-{$R *.lfm}
+{$R *.frm}
 
 uses
   unit1, // kvůli rsUndoBufferIt a rsRedoBufferIt  - strings for automatic translation

diff --git a/unit1.lfm → unit1.frm b/unit1.lfm → unit1.frm
diff --git a/unit1.pas b/unit1.pas
@@ -302,7 +302,7 @@   TForm1 = class(TLocalizedForm)
 
 implementation
 
-{$R *.lfm}
+{$R *.frm}
 uses unit8,unit9,Unit10,       { chci pracovat s objekty v unit8 tzn. scrapovat rok k filmu }
      unHledej;                 { chci pracovat s objekty v unit9 tzn. naplnit tabulkaVysledku}
 

diff --git a/unit10.lfm → unit10.frm b/unit10.lfm → unit10.frm
diff --git a/unit10.pas b/unit10.pas
@@ -40,7 +40,7 @@ implementation
   uses Unit1;
   var pomWidth: array[0..10] of integer;
       frmGlobalI:Byte;
-{$R *.lfm}
+{$R *.frm}
 
 { TFormUpravUmisteni }
 

diff --git a/unit2.lfm → unit2.frm b/unit2.lfm → unit2.frm
diff --git a/unit2.pas b/unit2.pas
@@ -34,7 +34,7 @@   TForm2 = class(TLocalizedForm)
 
 implementation
   uses unit1;
-{$R *.lfm}
+{$R *.frm}
 
 { TForm2 }
 

diff --git a/unit3.lfm → unit3.frm b/unit3.lfm → unit3.frm
diff --git a/unit3.pas b/unit3.pas
@@ -102,7 +102,7 @@   TTreeData = record
     Column0: String;
   end;
 
-{$R *.lfm}
+{$R *.frm}
 
 { TForm3 }
 

diff --git a/unit4.lfm → unit4.frm b/unit4.lfm → unit4.frm
diff --git a/unit4.pas b/unit4.pas
@@ -44,7 +44,7 @@ implementation
 
   uses unit1;
 
-{$R *.lfm}
+{$R *.frm}
 
 { TForm4 }
 

diff --git a/unit5.lfm → unit5.frm b/unit5.lfm → unit5.frm
diff --git a/unit5.pas b/unit5.pas
@@ -39,7 +39,7 @@   TForm5 = class(TLocalizedForm)
 implementation
  uses unit1,  { chci pracovat s objekty Form1 }
       unGlobalScraper; // a s objektem GlobalScraper
-{$R *.lfm}
+{$R *.frm}
 
 { TForm5 }
 

diff --git a/unit6.lfm → unit6.frm b/unit6.lfm → unit6.frm
diff --git a/unit6.pas b/unit6.pas
@@ -56,7 +56,7 @@ implementation
        unit1,   // v unit1 jsou resource stringy
        unGlobalScraper;  // je tam timer + kód na využití frmNotScraped (unNotScraped)
 
-{$R *.lfm}
+{$R *.frm}
 
 { TForm6 }
 

diff --git a/unit7.lfm → unit7.frm b/unit7.lfm → unit7.frm
diff --git a/unit7.pas b/unit7.pas
@@ -48,7 +48,7 @@ implementation
 uses unit1,       // resource string
      unit8;       // formScraper
 
-{$R *.lfm}
+{$R *.frm}
 
 { TFormNastaveni }
 

diff --git a/unit8.lfm → unit8.frm b/unit8.lfm → unit8.frm
diff --git a/unit8.pas b/unit8.pas
@@ -606,7 +606,7 @@ function SerialCsfd(PomNazev: string): string; // nahrazeno filmCsfd
 
 
 
-{$R *.lfm}
+{$R *.frm}
 
 { TFormScraper }
 

diff --git a/unit9.lfm → unit9.frm b/unit9.lfm → unit9.frm
diff --git a/unit9.pas b/unit9.pas
@@ -40,7 +40,7 @@ implementation
      unit1,                           // resource strings
      unGlobalScraper;                 // object globalScraper
 
-{$R *.lfm}
+{$R *.frm}
 
 { TFormScrapujVyber }
Original file line number	Diff line number	Diff line change
Expand Up		@@ -606,7 +606,7 @@ function SerialCsfd(PomNazev: string): string; // nahrazeno filmCsfd



		{$R *.lfm}
		{$R *.frm}

		{ TFormScraper }

Expand Down