From c3fcdfdf3ab74eb04aee499cc88bb47c129671ab Mon Sep 17 00:00:00 2001 From: zbyna Date: Mon, 12 Jun 2017 22:54:56 +0200 Subject: [PATCH] Project migration to CodeTyphon 6.10 --- localizedforms.lfm => localizedforms.frm | 0 localizedforms.pas | 2 +- project1.lpi => project1.ctpr | 15 ++++++--------- project1.lpr => project1.ppr | 0 unHledej.lfm => unHledej.frm | 0 unHledej.pas | 2 +- unNotSraped.lfm => unNotSraped.frm | 0 unNotSraped.pas | 2 +- unUkazHistorii.lfm => unUkazHistorii.frm | 0 unUkazHistorii.pas | 2 +- unit1.lfm => unit1.frm | 0 unit1.pas | 2 +- unit10.lfm => unit10.frm | 0 unit10.pas | 2 +- unit2.lfm => unit2.frm | 0 unit2.pas | 2 +- unit3.lfm => unit3.frm | 0 unit3.pas | 2 +- unit4.lfm => unit4.frm | 0 unit4.pas | 2 +- unit5.lfm => unit5.frm | 0 unit5.pas | 2 +- unit6.lfm => unit6.frm | 0 unit6.pas | 2 +- unit7.lfm => unit7.frm | 0 unit7.pas | 2 +- unit8.lfm => unit8.frm | 0 unit8.pas | 2 +- unit9.lfm => unit9.frm | 0 unit9.pas | 2 +- 30 files changed, 20 insertions(+), 23 deletions(-) rename localizedforms.lfm => localizedforms.frm (100%) rename project1.lpi => project1.ctpr (96%) rename project1.lpr => project1.ppr (100%) rename unHledej.lfm => unHledej.frm (100%) rename unNotSraped.lfm => unNotSraped.frm (100%) rename unUkazHistorii.lfm => unUkazHistorii.frm (100%) rename unit1.lfm => unit1.frm (100%) rename unit10.lfm => unit10.frm (100%) rename unit2.lfm => unit2.frm (100%) rename unit3.lfm => unit3.frm (100%) rename unit4.lfm => unit4.frm (100%) rename unit5.lfm => unit5.frm (100%) rename unit6.lfm => unit6.frm (100%) rename unit7.lfm => unit7.frm (100%) rename unit8.lfm => unit8.frm (100%) rename unit9.lfm => unit9.frm (100%) diff --git a/localizedforms.lfm b/localizedforms.frm similarity index 100% rename from localizedforms.lfm rename to localizedforms.frm diff --git a/localizedforms.pas b/localizedforms.pas index c5e8dcf..05e4c40 100644 --- 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 b/project1.ctpr similarity index 96% rename from project1.lpi rename to project1.ctpr index f83f829..4ec3136 100644 --- a/project1.lpi +++ b/project1.ctpr @@ -1,7 +1,7 @@ - + @@ -15,9 +15,6 @@ - - - @@ -104,7 +101,7 @@ - + @@ -180,7 +177,7 @@ - + @@ -189,12 +186,12 @@ - + - + @@ -206,7 +203,7 @@ - + diff --git a/project1.lpr b/project1.ppr similarity index 100% rename from project1.lpr rename to project1.ppr diff --git a/unHledej.lfm b/unHledej.frm similarity index 100% rename from unHledej.lfm rename to unHledej.frm diff --git a/unHledej.pas b/unHledej.pas index eecf67b..1b29ffb 100644 --- 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 b/unNotSraped.frm similarity index 100% rename from unNotSraped.lfm rename to unNotSraped.frm diff --git a/unNotSraped.pas b/unNotSraped.pas index 144a839..8cae285 100644 --- 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 b/unUkazHistorii.frm similarity index 100% rename from unUkazHistorii.lfm rename to unUkazHistorii.frm diff --git a/unUkazHistorii.pas b/unUkazHistorii.pas index 8e6dd7c..fdeacb8 100644 --- 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 b/unit1.frm similarity index 100% rename from unit1.lfm rename to unit1.frm diff --git a/unit1.pas b/unit1.pas index 9eb990f..7752fce 100644 --- 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 b/unit10.frm similarity index 100% rename from unit10.lfm rename to unit10.frm diff --git a/unit10.pas b/unit10.pas index 539e492..d443fd0 100644 --- 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 b/unit2.frm similarity index 100% rename from unit2.lfm rename to unit2.frm diff --git a/unit2.pas b/unit2.pas index f9ee19b..cb2a7b0 100644 --- 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 b/unit3.frm similarity index 100% rename from unit3.lfm rename to unit3.frm diff --git a/unit3.pas b/unit3.pas index 35b102c..9b0c95b 100644 --- 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 b/unit4.frm similarity index 100% rename from unit4.lfm rename to unit4.frm diff --git a/unit4.pas b/unit4.pas index 31c8a6e..4aa0490 100644 --- a/unit4.pas +++ b/unit4.pas @@ -44,7 +44,7 @@ implementation uses unit1; -{$R *.lfm} +{$R *.frm} { TForm4 } diff --git a/unit5.lfm b/unit5.frm similarity index 100% rename from unit5.lfm rename to unit5.frm diff --git a/unit5.pas b/unit5.pas index 9380a0a..e219a51 100644 --- 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 b/unit6.frm similarity index 100% rename from unit6.lfm rename to unit6.frm diff --git a/unit6.pas b/unit6.pas index 4a32bb9..682fa54 100644 --- 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 b/unit7.frm similarity index 100% rename from unit7.lfm rename to unit7.frm diff --git a/unit7.pas b/unit7.pas index 576206e..0506735 100644 --- 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 b/unit8.frm similarity index 100% rename from unit8.lfm rename to unit8.frm diff --git a/unit8.pas b/unit8.pas index e476b1f..a7602bd 100644 --- 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 b/unit9.frm similarity index 100% rename from unit9.lfm rename to unit9.frm diff --git a/unit9.pas b/unit9.pas index 3ce70c2..ad76846 100644 --- a/unit9.pas +++ b/unit9.pas @@ -40,7 +40,7 @@ implementation unit1, // resource strings unGlobalScraper; // object globalScraper -{$R *.lfm} +{$R *.frm} { TFormScrapujVyber }