Lazarus For Delphi Users/sk: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | Tento článok je pre tých, ktorí sú zainteresovaní v Lazarus a už poznajú Delphi. Popisuje rozdiely medzi týmito dvomi prostrediami. | |
| 2 | 2 | ||
| 3 | 3 | ## Delphi -\> Lazarus | |
| 4 | 4 | ||
| 5 | 5 | Lazarus je Rapid Application Development (RAD) nástroj ako Delphi. To znamená, že prichádza s knižnicou vizuálnych komponentov a IDE. Knižnica komponentov Lazarus (LCL) sa veľmi podobá Delphi VCL. Väčšina jednotiek, tried a vlastností má rovnaké meno a funkciu, čím je prechod jednoduchý. Ale Lazarus nie je 'open source Delphi klon', tak neočakávajte 100% kompatibilitu. | |
| 6 | 6 | ||
| 7 | 7 | ### Najväčšie rozdiely | |
| 8 | 8 | ||
| 9 | 9 | Lazarus je úplný open source, je napísaný bez závislosti na platforme a používa silný prekladač FreePascal (FPC). FPC beží na viac ako 15 platformách, ale nie všetky balíčky a knižnice sú prenesené, tak Lazarus práve beží pod Linux, Free/Open/NetBSD, Mac OS X a win32. | |
| 10 | 10 | ||
| 11 | 11 | Lazarus zatiaľ nie je kompletný, ako aj tento text. Stále hľadáme nových vývojárov, porterov, pisateľov dokumentácie, ... . | |
| 12 | 12 | ||
| 13 | 13 | ### Prvá vec pri pokuse o konverziu projektu z Delphi | |
| 14 | 14 | ||
| 15 | 15 | Spustite Lazarus, choďte do **Tools** a potom **Convert Delphi Project to Lazarus Project**. Toto síce nespraví úplne všetko, je to však najlepší spôsob ako začať. Všimnite si, že pomôcky na konverziu sú v Lazaruse jednosmerné, a neobsahujú spätnú konverziu do Delphi. Na tento účel môžete použiť [XDev Toolkit](http://wiki.lazarus.freepascal.org/XDev_Toolkit). | |
| 16 | 16 | ||
| 17 | 17 | ### Podpora Unicode | |
| 18 | 18 | ||
| 19 | 19 | Delphi až do verzie 2007 nepodporovalo Unicode, a používalo štandardné ANSI kódovanie Windows. Od verzie 2008 Delphi podporuje Unicode prostredníctvom stringov UTF-16. | |
| 20 | 20 | ||
| 21 | 21 | Lazarus však na druhej strane od začiatku podporuje Unicode, a to prostredníctvom stringov UTF-8. Viac informácií: [[LCL Unicode Support]]. | |
| 22 | 22 | ||
| 23 | 23 | ## Delphi IDE -\> Lazarus IDE | |
| 24 | 24 | ||
| 25 | 25 | ### Projekty | |
| 26 | 26 | ||
| 27 | 27 | Základným súborom aplikácie Delphi je súbor .dpr. Základným súborom projektu Lazarus je súbor .lpi (Lazarus Project Information). Súbor .dpr je základný zdrojový kód programu a Delphi IDE v ňom uchováva niektoré informácie o direktívach prekladača a jednotkách. Aplikácia Lazarus má tiež súbor .lpr, ktorý je súborom so základným zdrojovým kódom, ale všetky ostatné informácie sú uchovávané v súbore .lpi. Teda, dôležitým súborom je súbor .lpi. | |
| 28 | 28 | ||
| 29 | 29 | Napríklad: | |
| 30 | 30 | ||
| 31 | 31 | Delphi ukladá cesty k unitám do súboru .dpr. Napr.: unit1 in 'path/Unit1.pas'. Tieto 'in' cesty sú špecifické pre Delphi a Lazarus IDE ich ignoruje. Nepoužívajte ich - namiesto nich použite nastavenie kompilátora. | |
| 32 | 32 | ||
| 33 | 33 | Delphi ukladá nastavenie kompilátora do súbora .dpr., napr. {\$APPTYPE CONSOLE}. Tieto nastavenia sú tiež ignorované Lazarus IDE. Nepoužívajte ich - namiesto nich použite nastavenie kompilátora (Compiler Options). | |
| 34 | 34 | ||
| 35 | 35 | Jedno dôležité pravidlo: **Vždy existuje projekt!!!** Jediný spôsob ako zatvoriť projekt je skončiť Lazarus alebo otvoriť iný projekt. To je preto, že projekt Lazarus je tiež "session". To znamená, že aktuálne nastavenia editora sú uchovávané v súbore .lpi a sú obnovené, keď otvoríte projekt. Napríklad: ladíte aplikáciu, nastavíte veľa ladiacich bodov a záložiek. Môžete projekt uložiť a zatvoriť Lazarus alebo otvoriť iný, ale keď znova otvoríte pôvodný, dokonca i na inom počítači, všetky vaše ladiace body, záložky, otvorené súbory, pozície kurzora, histórie skokov, ... sú obnovené. | |
| 36 | 36 | ||
| 37 | 37 | ### Editor zdrojového kódu | |
| 38 | 38 | ||
| 39 | 39 | (Source Editor) Takmer všetky klávesy a klávesové skratky môžu byť nastavené v Tools -\> Options -\> Editor -\> Key Mappings | |
| 40 | 40 | ||
| 41 | 41 | IDE Lazarus má veľa nástrojov pre zdrojový kód. Mnohé z nich sú veľmi podobné tým v Delphi. Ale je tu jeden veľký rozdiel: Lazarus nepoužíva prekladač na získanie informácií o kóde, ale analyzuje priamo zdrojový kód, čo má veľa výhod: | |
| 42 | 42 | ||
| 43 | 43 | ||
| 44 | 44 | Editor zdrojového kódu pracuje s komentármi. V Delphi sú komentáre len medzerou v kóde, funkcie kódu tu nepracujú a pri automatickom vložení kódu, sú vaše komentáre posunuté. Pod Lazarus môžete hľadať deklarácie dokonca v kóde komentára. Aj keď toto nie je úplne spoľahlivé, často to pracuje. A keď vložíte nový kód, používa IDE nejakú heuristiku na uchovanie komentára a kódu spolu. Napríklad: nebude rozdelený riadok "c: char; // comment". | |
| 45 | 45 | ||
| 46 | 46 | Dokončovanie kódu Delphi (Ctrl+Space) je pod Lazarus nazvané **Identifier Completion**. Termín Lazarus **Code Completion** je funkcia, ktorá kombinuje **Automatic Class Completion** (rovnaká ako v Delphi), **Local Variable Completion** a **Event Assignment Completion**. Tieto všetky sú vyvolané pomocou Ctrl+Shift+C a IDE určuje podľa pozície kurzora, ktorá funkcia bude použitá. | |
| 47 | 47 | ||
| 48 | 48 | #### Dokončovanie lokálnych premenných | |
| 49 | 49 | ||
| 50 | 50 | (Local Variable Completion) Predstavte si, že ste práve vytvorili novú metódu a napísali príkaz "i:=3;" | |
| 51 | 51 | ||
| 52 | 52 | ``` pascal | |
| 53 | 53 | procedure | |
| 54 | 54 | TForm1.DoSomething; | |
| 55 | 55 | begin | |
| 56 | 56 | i := 3; | |
| 57 | 57 | end; | |
| 58 | 58 | ``` | |
| 59 | 59 | ||
| 60 | 60 | Umiestnite kurzor nad identifikátor "i" a stlačte Ctrl+Shift+C, čím získate: | |
| 61 | 61 | ||
| 62 | 62 | ``` pascal | |
| 63 | 63 | procedure | |
| 64 | 64 | TForm1.DoSomething; | |
| 65 | 65 | var | |
| 66 | 66 | i: Integer; | |
| 67 | 67 | begin | |
| 68 | 68 | i:= 3; | |
| 69 | 69 | end; | |
| 70 | 70 | ``` | |
| 71 | 71 | ||
| 72 | 72 | #### Dokončovanie priradenia udalostí | |
| 73 | 73 | ||
| 74 | 74 | (Event Assignment Completion) Príjemná funkcia Inšpektora objektov je automatické vytváranie metód. To isté môžete urobiť v editore zdrojového kódu. Napríklad: | |
| 75 | 75 | ||
| 76 | 76 | ||
| 77 | 77 | Button1.OnClick:= | |
| 78 | 78 | ||
| 79 | 79 | Umiestnite kurzor za operátor priradenia ":=" a stlačte Ctrl+Shift+C. | |
| 80 | 80 | ||
| 81 | 81 | #### Príklad doplňovania volaných procedúr | |
| 82 | 82 | ||
| 83 | 83 | Predstavte si, že ste práve napísali príkaz 'DoSomething(Width);' | |
| 84 | 84 | ||
| 85 | 85 | ``` pascal | |
| 86 | 86 | procedure SomeProcedure; | |
| 87 | 87 | var | |
| 88 | 88 | Width: integer; | |
| 89 | 89 | begin | |
| 90 | 90 | Width:=3; | |
| 91 | 91 | DoSomething(Width); | |
| 92 | 92 | end; | |
| 93 | 93 | ``` | |
| 94 | 94 | ||
| 95 | 95 | Umiestnite kurzor na identifikátor DoSomething a stlačte Ctrl-Shift-C. Dostanete: | |
| 96 | 96 | ||
| 97 | 97 | ``` pascal | |
| 98 | 98 | procedure DoSomething(aWidth: LongInt); | |
| 99 | 99 | begin | |
| 100 | 100 | ||
| 101 | 101 | end; | |
| 102 | 102 | ||
| 103 | 103 | procedure SomeProcedure; | |
| 104 | 104 | var | |
| 105 | 105 | Width: integer; | |
| 106 | 106 | begin | |
| 107 | 107 | Width:=3; | |
| 108 | 108 | DoSomething(Width); | |
| 109 | 109 | end; | |
| 110 | 110 | ``` | |
| 111 | 111 | ||
| 112 | 112 | #### Dokončovanie slov | |
| 113 | 113 | ||
| 114 | 114 | (Word Completion Ctrl+W) Táto funkcia je odstupná po stlačení Ctrl+W. Pracuje podobne ako "Identifier Completion", ale nepracuje len s identifikátormi Pascalu, ale so všetkými slovami. Dovolí vám vybrať zo všetkých slov zo všetkých otvorených súborov začínajúcich rovnakými písmenami. | |
| 115 | 115 | ||
| 116 | 116 | #### Include súborov | |
| 117 | 117 | ||
| 118 | 118 | Delphi túto podporu nemá a tak ste pravdepodobne veľa takýchto súborov nevytvorili. Ale include súbory majú veľkú výhodu: Dovoľujú písanie na platforme (ne)závislý kód bez komplikovanosti vášho kódu s direktívami IFDEF. | |
| 119 | 119 | ||
| 120 | 120 | Napríklad: Method jumping, Class Completion, Find declaration, .. všetky pracujú s include súbormi. | |
| 121 | 121 | ||
| 122 | 122 | Pre nastavenie dokončovania kódu je k dispozícii veľa nastavení. | |
| 123 | 123 | ||
| 124 | 124 | ### Designer | |
| 125 | 125 | ||
| 126 | 126 | \- Guidelines | |
| 127 | 127 | ||
| 128 | 128 | #### Object Inspector | |
| 129 | 129 | ||
| 130 | 130 | Ako v IDE Delphi aj v IDE Lazarus je Inšpektor objektov použitý na úpravu vlastností komponentov, priradenie udalostí atď. Nasledujú niektoré malé rozdiely, na ktoré treba pri použití pamätať: | |
| 131 | 131 | ||
| 132 | 132 | 1. Počnúc Delphi 5, je Object Treeview, ktorý môže byť použitý na navigáciu a výber objektov podľa ich hierarchie, ako doplnok tradičného rozbaľovacieho zoznamu v Inšpektore objektov. V Lazarus je toto súčasťou Inšpektora objektov a jeho použitím namiesto predvoleného rozbaľovacieho zoznamu môžete vybrať jeho ne/použitie pomocou kontextového menu "Show Component Tree" | |
| 133 | 133 | 2. V Delphi dvojité kliknutie na prázdnu udalosť ju automaticky vytvorí a otvorí Editor zdrojového kódu na jej pozícii, v Lazarus je tlačítko napravo od rozbaľovacieho zoznamu, ktoré vykoná to isté. | |
| 134 | 134 | 3. V Delphi musíte ručne zmazať meno udalosti v políčku, aby ste odstránili priradenie, v Lazarus zvoľte v zozname "(None)". | |
| 135 | 135 | 4. Podobne ako pri udalostiach, dvojitým kliknutím na regulárne vlastnosti (napr. Boolean) nezmení ich hodnotu, ale musíte ju zvoliť zo zoznamu a na otvorenie ich predvoleného editora, musíte kliknúť na tlačítko vpravo od rozbaľovacieho zoznamu. | |
| 136 | 136 | ||
| 137 | 137 | #### Balíčky | |
| 138 | 138 | ||
| 139 | 139 | V Lazarus nemôžete inštalovať balíčky Delphi, pretože potrebujú čary prekladača Delphi. Preto pre Lazarus potrebujete špeciálne vytvorené balíčky. | |
| 140 | 140 | ||
| 141 | 141 | Vytvorte nový balíček, uložte ho v zdrojovom adresári balíčkov (bežne rovnaký adresár súboru .dpk), pridajte LCL ako vyžadovaný balíček a nakoniec pridajte súbory .pas. Teraz ho môžete nainštalovať alebo použiť vo svojom projekte. Medzi balíčkami Lazarus a Delphi sú rozdiely, prečítajte si prosím docs/Packages.txt v zdrojovom kóde Lazarus. - viď docs/Packages.txt v zdrojovom kóde Lazarus. | |
| 142 | 142 | ||
| 143 | 143 | ### VCL -\> LCL | |
| 144 | 144 | ||
| 145 | 145 | Hoci obe, VCL aj LCL, slúžia rovnakému cieľu - Objektovo orientovanej hierarchii komponentov hlavnému motoru pre rýchly vývoj aplikácií (RAD), nie sú identické. Napríklad, kým VCL poskytuje veľa nevizuálnych komponentov, LCL sa pokúša poskytovať len vizuálne, kým väčšina nevizuálnych komponentov (ako db access) sú poskytované pomocou FCL, zahrnutej vo FreePascal. | |
| 146 | 146 | ||
| 147 | 147 | Takže veľa prvkov VCL nemusí existovať v LCL, alebo naopak, alebo dokonca keď prvky existujú v oboch, nie sú to klony a musíte urobiť pri prenose zmeny v aplikácii, komponentoch a prvkoch. | |
| 148 | 148 | ||
| 149 | 149 | Nasledujúci text sa pokúša poskytnúť čo najúplnejší popis hlavných rozdielov a nekompatibility medzi nimi, pre užívateľov Delphi. Popisuje najmä rozdiely VCL v D4, ale i D5, D6 alebo D7; s aktuálnou LCL, ako je v CVS. Takže nemusí byť vždy presne k verzii, ktorú používate alebo úplne súhlasiť s aktuálnym LCL, ktorý máte. Ak uvidíte rozdiely medzi nasledujúcim textom a LCL ako je v CVS, alebo svojim Delphi kľudne sa pripojte a zmeňte to tak, aby ste prispeli k úplnosti pre všetkých ľudí. | |
| 150 | 150 | ||
| 151 | 151 | #### TControl.Font/TControl.ParentFont | |
| 152 | 152 | ||
| 153 | 153 | Vo VCL je pre prvky úplne bežné použiť presné meno fontu a vlastností fontu ako bold a italics a očakávanie tejto hodnoty bude vždy nasledovať. Ďalej je poskytnutá vlastnosť TControl.ParentFont, ktorá zaisťuje, že prvok sa bude vždy riadiť svojim rodičovským fontom. Opäť, implicitná domnienka je, že tieto hodnoty budú vždy nasledované, dokonca nedbajúc nastavenia Windows Apearance. | |
| 154 | 154 | ||
| 155 | 155 | Toto nie je vždy pravda v LCL, ani byť nemôže. LCL je cross-platform/cross-interface od začiatku preferuje vyvážené nastavenie a bude sa vždy pokúšať nastaviť Desktop/Toolkit Apearance alebo nastavenú Tému na všetkých nástrojoch. Napríklad, ak používate rozhranie GTK a téma GTK poskytuje konkrétny font pre tlačítka, potom sa tlačítka LCL budú vždy pokúšať použiť tento font. | |
| 156 | 156 | ||
| 157 | 157 | To znamená, že väčšina prvkov LCL nemá rovnakú úroveň návrhu prvku, ktorá je často predpokladaná vo VCL, skôr len tie vlastné prvky, ktoré sú kreslené Canvas miesto pridelené rozhraním môžu byť modifikované týmto spôsobom, nedbajúcim na použité rozhranie. | |
| 158 | 158 | ||
| 159 | 159 | Ak je napríklad potrebný Label s fontom bold/special color, musíte použiť TStaticText, keďže TLabel je špecifický prvok rozhrania a všetky rozhrania sú poskytnuté v pôvodnej verzii a mnoho z nich bude mať predvolené nastavenia, ktoré budú použité. | |
| 160 | 160 | ||
| 161 | 161 | #### Riadenie Dragging/Docking | |
| 162 | 162 | ||
| 163 | 163 | Vo VCL väčšina (Win) prvkov implementuje metódy a spätné funkcie pre obsluhovanie preťahovania a dokovania prvkov, napríklad preťahovanie prvku z jedného panela a jeho dokovanie do iného panely v dobe behu programu. | |
| 164 | 164 | ||
| 165 | 165 | Táto funkcia nie je teraz implementovaná/dokončená v LCL, hoci teraz je v počiatočnom štádiu plánovania a bude eventuálne podporovať nejakú úroveň kompatibility tohto typu správania, ak nie dokonca presne rovnaké. | |
| 166 | 166 | ||
| 167 | 167 | Toto aktuálne znamená, že prvky nemôžu dediť/používať nasledujúce funkcie, procedúry, vlastnosti a udalosti TControl: | |
| 168 | 168 | ||
| 169 | 169 | ``` pascal | |
| 170 | 170 | protected | |
| 171 | 171 | function GetDockEdge(MousePos: TPoint): TAlign; | |
| 172 | 172 | function GetDragImages: TDragImageList; | |
| 173 | 173 | function GetFloating: Boolean; | |
| 174 | 174 | function GetFloatingDockSiteClass: TWinControlClass; | |
| 175 | 175 | procedure DoEndDrag(Target:TObject); X, Y: Integer); | |
| 176 | 176 | procedure DockTrackNoTarget(Source: TDragDockObject; X, Y: Integer); | |
| 177 | 177 | procedure DoEndDock(Target: TObject; X, Y: Integer); | |
| 178 | 178 | procedure DoDock(NewDockSite: TWinControl; var ARect: TRect); | |
| 179 | 179 | procedure DoStartDock(var DragObject: TDragObject); | |
| 180 | 180 | procedure DragCanceled; | |
| 181 | 181 | procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState; | |
| 182 | 182 | var Accept: Boolean); | |
| 183 | 183 | procedure DoEndDrag(Target: TObject; X, Y: Integer); | |
| 184 | 184 | procedure DoStartDrag(var DragObject: TDragObject); | |
| 185 | 185 | procedure DrawDragDockImage(DragDockObject: TDragDockObject); | |
| 186 | 186 | procedure EraseDragDockImage(DragDockObject: TDragDockObject); | |
| 187 | 187 | procedure PositionDockRect(DragDockObject: TDragDockObject); | |
| 188 | 188 | procedure SetDragMode(Value: TDragMode); | |
| 189 | 189 | property DragKind: TDragKind; | |
| 190 | 190 | property DragCursor: TCursor; | |
| 191 | 191 | property DragMode: TDragMode; | |
| 192 | 192 | property OnDragDrop: TDragDropEvent; | |
| 193 | 193 | property OnDragOver: TDragOverEvent; | |
| 194 | 194 | property OnEndDock: TEndDragEvent; | |
| 195 | 195 | property OnEndDrag: TEndDragEvent; | |
| 196 | 196 | property OnStartDock: TStartDockEvent; | |
| 197 | 197 | property OnStartDrag: TStartDragEvent; | |
| 198 | 198 | public | |
| 199 | 199 | function Dragging: Boolean; | |
| 200 | 200 | function ManualDock(NewDockSite: TWinControl; DropControl: TControl; | |
| 201 | 201 | ControlSide: TAlign): Boolean; | |
| 202 | 202 | function ManualFloat(ScreenPos: TRect): Boolean; | |
| 203 | 203 | function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl; | |
| 204 | 204 | DropControl: TControl; ControlSide: TAlign): Boolean; | |
| 205 | 205 | procedure BeginDrag(Immediate: Boolean; Threshold: Integer); | |
| 206 | 206 | procedure Dock(NewDockSite: TWinControl; ARect: TRect); | |
| 207 | 207 | procedure DragDrop(Source: TObject; X, Y: Integer); | |
| 208 | 208 | procedure EndDrag(Drop: Boolean); | |
| 209 | 209 | property DockOrientation: TDockOrientation; | |
| 210 | 210 | property Floating: Boolean; | |
| 211 | 211 | property FloatingDockSiteClass: TWinControlClass; | |
| 212 | 212 | property HostDockSite: TWinControl; | |
| 213 | 213 | property LRDockWidth: Integer; | |
| 214 | 214 | property TBDockHeight: Integer; | |
| 215 | 215 | property UndockHeight: Integer; | |
| 216 | 216 | property UndockWidth: Integer; | |
| 217 | 217 | ``` | |
| 218 | 218 | ||
| 219 | 219 | a že nasledujúce triedy neexistujú alebo sú nepoužiteľné: | |
| 220 | 220 | ||
| 221 | 221 | ``` pascal | |
| 222 | 222 | TDragImageList = class (TCustomImageList) | |
| 223 | 223 | TDockZone = class | |
| 224 | 224 | TDockTree = class (TInterfacedObject, IDockManager) | |
| 225 | 225 | TDragObject = class (TObject) | |
| 226 | 226 | TBaseDragControlObject = class (TDragObject) | |
| 227 | 227 | TDragControlObject = class (TBaseDragControlObject) | |
| 228 | 228 | TDragDockObject = class (TBaseDragControlObject) | |
| 229 | 229 | ``` | |
| 230 | 230 | ||
| 231 | 231 | a že nasledujúce funkcie sú tiež neexistujúce/nepoužiteľné: | |
| 232 | 232 | ||
| 233 | 233 | ``` pascal | |
| 234 | 234 | function FindDragTarget(const Pos: TPoint; AllowDisabled: Boolean) : TControl; | |
| 235 | 235 | procedure CancelDrag; | |
| 236 | 236 | function IsDragObject(sender: TObject): Boolean; | |
| 237 | 237 | ``` | |
| 238 | 238 | ||
| 239 | 239 | #### TEdit/TCustomEdit | |
| 240 | 240 | ||
| 241 | 241 | Prvky Edit, kým základné funkcie sú v LCL rovnaké ako vo VCL, iné treba pri konverzii robiť opatrne: | |
| 242 | 242 | ||
| 243 | 243 | 1. kvôli obmedzeniam rozhraní, TEdit.PasswordChar zatiaľ nepracuje vo všetkých rozhraniach (neskôr možno), namiesto toho použite TCustomEdit.EchoMode emPassword v udalosti na skrytie textu. | |
| 244 | 244 | 2. Udalosti OnDrag/Dock zatiaľ nie sú implementované. Viz Riadenie Dragging/Docking. | |
| 245 | 245 | 3. Vlastnosti Font sú, kvôli správaniu rozhrania, zvyčajne ignorované. Viz TControl.Font/TControl.ParentFont | |
| 246 | 246 | ||
| 247 | 247 | ### TSplitter -\> TPairSplitter | |
| 248 | 248 | ||
| 249 | 249 | **Please Improve Me** | |
| 250 | 250 | ||
| 251 | 251 | V LCL existuje prvok TSplitter, tak ho netreba konvertovať, napriek tomu ho chcem trochu vysvetliť: | |
| 252 | 252 | ||
| 253 | 253 | Vo VCL, "Splitting" prvkov, čo je ošetrením, ktoré umožňuje preťahovanie medzi dvomi komponentmi na získanie viac/menej miesta pre jeden na úkor ostatných, je urobený pomocou TSplitter. Často to môžete vidieť, napríklad v IDE Delphi medzi dokovaným Code Explorer a Source Viewer. | |
| 254 | 254 | ||
| 255 | 255 | LCL poskytuje svoj vlastný prvok, nazvaný TPairSplitter, ktorý obsluhuje rovnakú úlohu, avšak nie je kompatibilný, tak "skúšanie" preruší VCL kód alebo bude potrebný Delphi DFM pri prenose kódu. | |
| 256 | 256 | ||
| 257 | 257 | V čom presne sú rozdiely? | |
| 258 | 258 | ||
| 259 | 259 | Najväčšie rozdiely sú, že VCL TSplitter nemá potomkov, namiesto toho ho umiestňujete medzi dva prvky, ktoré sú správne usporiadané a dovoľuje meniť ich veľkosť za behu programu, nedbajúc na vlastnú veľkosť. Prvky musia byť správne usporiadané, napríklad Panel a Splitter s Aligned Left a druhý Panel Aligned Client. Za behu programu môžete zmeniť rozloženie panelov pomocou preťahovania ošetreného pomocou prvku Splitter. | |
| 260 | 260 | ||
| 261 | 261 | V LCL je však TPairSplitter špeciálnym typom prvku s dvomi panelmi a môže byť užitočný len ak prvky na presúvanie sú na týchto paneloch, ale posúvanie bude jednako vykonané medzi týmito panelmi, i keď na nich nebude nič. Ako v predchádzajúcom príklade, potrebujete formulár s TPairSplitter Aligned Client a Panel Aligned Client na jeho ľavej strane a Panel Aligned Client na jeho pravej strane. | |
| 262 | 262 | ||
| 263 | 263 | Iným dôležitým rozdielom je, že vo VCL, keďže TSplitter je svoj vlastný TControl, tak jeho pozícia pri zmene veľkosti je uchovávaná relatívne k ostatným prvkom, tak napríklad klientský panel sa bude zväčšovať, kým ostatné panely nie, tým je pozícia rozdelenia relatívna k zarovnaniu rozdeľovaných prvkov. | |
| 264 | 264 | ||
| 265 | 265 | V LCL sú bočné panely samostatné, potom TPairSplitter má vlastnosť Position, ktorá je absolútne relatívna k vrcholu Top alebo Left. Tak pri zmene veľkosti aktuálna sa pozícia nemení podľa obsahu, tak musí byť nastavené spätné volanie na zaistenie uchovania pomeru, ak je to dôležité. | |
| 266 | 266 | ||
| 267 | 267 | Napríklad, ak pravá strana vertikálneho rozdelenia musí mať správanie ako alClient, potrebujete zmeniť spätným volaním veľkosť formulára, napríklad takto: | |
| 268 | 268 | ||
| 269 | 269 | `PairSplitter.Position := PairSplitter.Width - PairSplitter.Position; ` | |
| 270 | 270 | ||
| 271 | 271 | Teda ako môžem konvertovať existujúci kód používajúci TSplitter na TPairSplitter? | |
| 272 | 272 | ||
| 273 | 273 | Ak sú splitter a prvky vytvorené vo vnútri aktuálnej funkcie (ako OnCreate formulára), konverzia nebude zložitá, najprv zreorganizujeme kód na vytvorenie prvkov v poradí novej hierarchie a nastavíme rodičov podriadených prvkov pre rozdelenie na ľavý/horný a pravý/dolný podiel prvku PairSplitter. Napríklad: | |
| 274 | 274 | ||
| 275 | - | ||
| 276 | - | ||
| 277 | - | ||
| 278 | - | ||
| 279 | - | ||
| 280 | - | ||
| 281 | - | ||
| 282 | - | ||
| 283 | - | ||
| 284 | - | ||
| 285 | - | ||
| 286 | - | ||
| 287 | - | ||
| 288 | - | ||
| 289 | - | ||
| 290 | - | ||
| 291 | - | ||
| 292 | - | ||
| 293 | - | ||
| 294 | - | ||
| 295 | - | ||
| 296 | - | ||
| 297 | - | ||
| 298 | - | ||
| 299 | - | ||
| 300 | - | ||
| 301 | - | ||
| 302 | - | ||
| 303 | - | ||
| 304 | - | ||
| 305 | - | ||
| 306 | - | ||
| 307 | - | ||
| 308 | - | ||
| 309 | - | ||
| 310 | - | ||
| 311 | - | ||
| 312 | - | ||
| 313 | - | ||
| 314 | - | ||
| 315 | - | ||
| 316 | - | ||
| 317 | - | ||
| 318 | - | ||
| 319 | - | ||
| 320 | - | ||
| 321 | - | ||
| 322 | - | ||
| 323 | - | ||
| 324 | - | ||
| 325 | - | ||
| 326 | - | ||
| 327 | - | ||
| 328 | - | ||
| 329 | - | ||
| 330 | - | ||
| 331 | - | ||
| 332 | - | ||
| 333 | - | ||
| 334 | - | ||
| 335 | - | ||
| 336 | - | ||
| 337 | - | ||
| 338 | - | ||
| 339 | - | ||
| 340 | - | ||
| 341 | - | ||
| 342 | - | ||
| 343 | - | ||
| 344 | - | ||
| 345 | - | ||
| 346 | - | ||
| 347 | - | ||
| 348 | - | ||
| 349 | - | ||
| 350 | - | ||
| 351 | - | ||
| 352 | - | ||
| 353 | - | ||
| 354 | - | ||
| 355 | - | ||
| 356 | - | ||
| 357 | - | ||
| 358 | - | ||
| 359 | - | ||
| 360 | - | ||
| 361 | - | ||
| 362 | - | ||
| 363 | - | ||
| 364 | - | ||
| 365 | - | ||
| 366 | - | ||
| 367 | - | ||
| 368 | - | ||
| 369 | - | ||
| 370 | - | ||
| 371 | - | ||
| 372 | - | ||
| 373 | - | ||
| 374 | - | ||
| 375 | - | ||
| 376 | - | ||
| 377 | - | ||
| 378 | - | ||
| 379 | - | ||
| 380 | - | ||
| 381 | - | ||
| 382 | - | ||
| 383 | - | ||
| 384 | - | ||
| 275 | + | **VCL** | |
| 385 | 276 | ||
| 277 | + | **LCL** | |
| 278 | + | ||
| 279 | + | ``` pascal | |
| 280 | + | var | |
| 281 | + | BottomPanel: TPanel; | |
| 282 | + | VerticalSplitter: TSplitter; | |
| 283 | + | LeftPanel: TPanel; | |
| 284 | + | HorizontalSplitter: TSplitter; | |
| 285 | + | MainPanel: TPanel; | |
| 286 | + | ||
| 287 | + | begin | |
| 288 | + | BottomPanel:= TPanel.Create(Self); | |
| 289 | + | with (BottomPanel) do | |
| 290 | + | begin | |
| 291 | + | Parent:= Self; | |
| 292 | + | Height:= 75; | |
| 293 | + | Align:= alBottom; | |
| 294 | + | end; | |
| 295 | + | ||
| 296 | + | VerticalSplitter:= TSplitter.Create(Self); | |
| 297 | + | with (VerticalSplitter) do | |
| 298 | + | begin | |
| 299 | + | Parent:= Self; | |
| 300 | + | Align:= alBottom; | |
| 301 | + | end; | |
| 302 | + | ||
| 303 | + | HorizontalSplitter:= TSplitter.Create(Self); | |
| 304 | + | with (HorizontalSplitter) do | |
| 305 | + | begin | |
| 306 | + | Parent:= Self; | |
| 307 | + | align:= alLeft; | |
| 308 | + | end; | |
| 309 | + | ||
| 310 | + | LeftPanel:= TPanel.Create(Self); | |
| 311 | + | with (LeftPanel) do | |
| 312 | + | begin | |
| 313 | + | Parent:= Self; | |
| 314 | + | Width:= 125; | |
| 315 | + | Align:= alLeft; | |
| 316 | + | end; | |
| 317 | + | ||
| 318 | + | MainPanel:= TPanel.Create(Self); | |
| 319 | + | with (MainPanel) do | |
| 320 | + | begin | |
| 321 | + | Parent:= Self; | |
| 322 | + | Align:= alClient; | |
| 323 | + | Caption:= 'Hello'; | |
| 324 | + | end; | |
| 325 | + | end; | |
| 326 | + | ``` | |
| 327 | + | ||
| 328 | + | ``` pascal | |
| 329 | + | var | |
| 330 | + | BottomPanel: TPanel; | |
| 331 | + | VerticalSplitter: TPairSplitter; | |
| 332 | + | LeftPanel: TPanel; | |
| 333 | + | HorizontalSplitter: TPairSplitter; | |
| 334 | + | MainPanel: TPanel; | |
| 335 | + | ||
| 336 | + | begin | |
| 337 | + | VerticalSplitter:= TPairSplitter.Create(Self); | |
| 338 | + | with (VerticalSplitter) do | |
| 339 | + | begin | |
| 340 | + | Parent:= Self; | |
| 341 | + | Align:= alClient; | |
| 342 | + | Width:= Self.Width; | |
| 343 | + | Height:= Self.Height; | |
| 344 | + | SplitterType:= pstVertical; | |
| 345 | + | Position:= Height - 75; | |
| 346 | + | Sides[0].Width:= Width; | |
| 347 | + | Sides[0].Height:= Position; | |
| 348 | + | end; | |
| 349 | + | ||
| 350 | + | HorizontalSplitter:= TPairSplitter.Create(Self); | |
| 351 | + | with (HorizontalSplitter) do | |
| 352 | + | begin | |
| 353 | + | Parent:= VerticalSplitter.Sides[0]; | |
| 354 | + | Width:= Self.Width; | |
| 355 | + | Height:= VerticalSplitter.Position; | |
| 356 | + | align:= alClient; | |
| 357 | + | SplitterType:= pstHorizontal; | |
| 358 | + | Position:= 125; | |
| 359 | + | end; | |
| 360 | + | ||
| 361 | + | LeftPanel:= TPanel.Create(Self); | |
| 362 | + | with (LeftPanel) do | |
| 363 | + | begin | |
| 364 | + | Parent:= HorizontalSplitter.Sides[0]; | |
| 365 | + | Align:= alClient; | |
| 366 | + | end; | |
| 367 | + | ||
| 368 | + | MainPanel:= TPanel.Create(Self); | |
| 369 | + | with (MainPanel) do | |
| 370 | + | begin | |
| 371 | + | Parent:= HorizontalSplitter.Sides[1]; | |
| 372 | + | Align:= alClient; | |
| 373 | + | Caption:= 'Hello'; | |
| 374 | + | end; | |
| 375 | + | ||
| 376 | + | BottomPanel:= TPanel.Create(Self); | |
| 377 | + | with (BottomPanel) do | |
| 378 | + | begin | |
| 379 | + | Parent:= VerticalSplitter.Sides[1]; | |
| 380 | + | Align:= alClient; | |
| 381 | + | end; | |
| 382 | + | end; | |
| 383 | + | ``` | |
| 384 | + | ||
| 386 | 385 | Ako môžete vidieť, zmena pozostáva väčšinou z hierarchie. Ak vám lepšie vyhovuje práca s DFM, zmeny potrebné pre konverziu DFM-\>LFM sú podobné zmenám vyššie, ide o rovnaký typ zmien v Parent/Owner atď. Potom bude vyššie spomínaný príklad vyzerať takto nejako: | |
| 387 | 386 | ||
| 388 | - | ||
| 389 | - | ||
| 390 | - | ||
| 391 | - | ||
| 392 | - | ||
| 393 | - | ||
| 394 | - | ||
| 395 | - | ||
| 396 | - | ||
| 397 | - | ||
| 398 | - | ||
| 399 | - | ||
| 400 | - | ||
| 401 | - | ||
| 402 | - | ||
| 403 | - | ||
| 404 | - | ||
| 405 | - | ||
| 406 | - | ||
| 407 | - | ||
| 408 | - | ||
| 409 | - | ||
| 410 | - | ||
| 411 | - | ||
| 412 | - | ||
| 413 | - | ||
| 414 | - | ||
| 415 | - | ||
| 416 | - | ||
| 417 | - | ||
| 418 | - | ||
| 419 | - | ||
| 420 | - | ||
| 421 | - | ||
| 422 | - | ||
| 423 | - | ||
| 424 | - | ||
| 425 | - | ||
| 426 | - | ||
| 427 | - | ||
| 428 | - | ||
| 429 | - | ||
| 430 | - | ||
| 431 | - | ||
| 432 | - | ||
| 433 | - | ||
| 434 | - | ||
| 435 | - | ||
| 436 | - | ||
| 437 | - | ||
| 438 | - | ||
| 439 | - | ||
| 440 | - | ||
| 441 | - | ||
| 442 | - | ||
| 443 | - | ||
| 444 | - | ||
| 445 | - | ||
| 446 | - | ||
| 447 | - | ||
| 448 | - | ||
| 449 | - | ||
| 450 | - | ||
| 451 | - | ||
| 452 | - | ||
| 387 | + | **Delphi DFM** | |
| 388 | + | ||
| 389 | + | **(extraneous values removed)** | |
| 390 | + | ||
| 391 | + | **Lazarus LFM** | |
| 392 | + | ||
| 393 | + | **(most width, height, etc. removed)** | |
| 394 | + | ||
| 395 | + | ``` pascal | |
| 396 | + | object VerticalSplitter: TSplitter | |
| 397 | + | Height = 3 | |
| 398 | + | Cursor = crVSplit | |
| 399 | + | Align = alBottom | |
| 400 | + | end | |
| 401 | + | object HorizontalSplitter: TSplitter | |
| 402 | + | Width = 3 | |
| 403 | + | Align = alLeft | |
| 404 | + | end | |
| 405 | + | object BottomPanel: TPanel | |
| 406 | + | Height = 75 | |
| 407 | + | Align = alBottom | |
| 408 | + | end | |
| 409 | + | object LeftPanel: TPanel | |
| 410 | + | Width = 125 | |
| 411 | + | Align = alLeft | |
| 412 | + | end | |
| 413 | + | object MainPanel: TPanel | |
| 414 | + | Align = alClient | |
| 415 | + | end | |
| 416 | + | ``` | |
| 417 | + | ||
| 418 | + | ``` pascal | |
| 419 | + | object VerticalSplitter: TPairSplitter | |
| 420 | + | Align = alClient | |
| 421 | + | SplitterType = pstVertical | |
| 422 | + | Position = 225 | |
| 423 | + | Height = 300 | |
| 424 | + | Width = 400 | |
| 425 | + | object Pairsplitterside1: TPairSplitterIde | |
| 426 | + | object HorizontalSplitter: TPairSplitter | |
| 427 | + | Align = alClient | |
| 428 | + | Position = 125 | |
| 429 | + | object Pairsplitterside3: TPairSplitterIde | |
| 430 | + | Width = 125 | |
| 431 | + | object LeftPanel: TPanel | |
| 432 | + | Align = alClient | |
| 433 | + | Width = 125 | |
| 434 | + | end | |
| 435 | + | end | |
| 436 | + | object Pairsplitterside4: TPairSplitterIde | |
| 437 | + | object MainPanel: TPanel | |
| 438 | + | Align = alClient | |
| 439 | + | end | |
| 440 | + | end | |
| 441 | + | end | |
| 442 | + | end | |
| 443 | + | object Pairsplitterside2: TPairSplitterIde | |
| 444 | + | object BottomPanel: TPanel | |
| 445 | + | Align = alClient | |
| 446 | + | Height = 75 | |
| 447 | + | end | |
| 448 | + | end | |
| 449 | + | end | |
| 450 | + | ``` | |
| 453 | 451 | ||
| 454 | 452 | ### TCustomTreeView/TTreeView | |
| 455 | 453 | ||
| 456 | 454 | Oboje, VCL aj LCL, poskytujú komponent TCustomTreeView/TTreeView, používaný pre výpisy stromovej štruktúry dát s viacnásobnými uzlami, rozšíreným výberom a ImageList, a hoci skutočná funkčnosť je porovnateľná, nie všetky vlastnosti sú úplne kompatibilné. Hlavné rozdiely sú: **Incomplete list, also update to include TCustomTreeView Mark functions and protected methods** | |
| 457 | 455 | ||
| 458 | 456 | 1. LCL poskytuje TCustomTreeView.Options, množinu volieb, ktoré môžu byť nastavené na zmenu správania a vzhľadu prvku: | |
| 459 | 457 | - tvoAllowMultiselect- nastavuje mód viacnásobného výberu uzlov, ekvivalent k TCustomTreeView.MultiSelect vo VCL VCL | |
| 460 | 458 | - tvoAutoExpand- automatické rozbalenie uzlov, ekvivalent k TCustomTreeView.AutoExpand | |
| 461 | 459 | - tvoAutoInsertMark- aktualizácia prípravy Drag pri prechode myšou. | |
| 462 | 460 | - tvoAutoItemHeight- automatické prispôsobenie výšky prvku. | |
| 463 | 461 | - tvoHideSelection- neoznačovať vybranú položku. | |
| 464 | 462 | - tvoHotTrack- použitie HotTracking, ekvivalent k TCustomTreeview.HotTrack | |
| 465 | 463 | - tvoKeepCollapsedNodes- pri zbalení uzla, uchováva podriadené uzly | |
| 466 | 464 | - tvoReadOnly- ekvivalent k TCustomTreeview.ReadOnly | |
| 467 | 465 | - tvoRightClickSelect- dovoľuje použiť pravé tlačítko myši na výber uzla, ekvivalent k TCustomTreeView.RightClickSelect | |
| 468 | 466 | - tvoRowSelect- dovoľuje výber riadkov, ekvivalent k TCustomTreeView.RowSelect | |
| 469 | 467 | - tvoShowButtons- zobrazuje tlačítka, ekvivalent k TCustomTreeView.ShowButtons | |
| 470 | 468 | - tvoShowLines- zobrazuje čiary uzlov, ekvivalent k TCustomTreeView.ShowLines | |
| 471 | 469 | - tvoShowRoot- zobrazuje root, ekvivalent k TCustomTreeView.ShowRoot | |
| 472 | 470 | - tvoShowSeparators- zobrazuje oddeľovače | |
| 473 | 471 | - tvoToolTips- zobrazuje samostatné tooltips pre uzly | |
| 474 | 472 | 2. LCL poskytuje dodatočné vlastnosti: | |
| 475 | 473 | - udalosť TCustomTreeView.OnSelectionChange | |
| 476 | 474 | - TCustomTreeView.DefaultItems, pre predvolené číslo položiek | |
| 477 | 475 | - TCustomTreeView.ExpandSignType na určenie znamienka použitého na rozbaliteľných/zbaliteľných uzloch | |
| 478 | 476 | 3. Síce väčšina udalostí OnDrag/OnDock je k dispozícii v LCL, nefungujú však! Pre viac informácii si prosím prečítajte predchádzajúcu sekciu. | |
| 479 | 477 | ||
| 480 | 478 | ### Správy / Udalosti | |
| 481 | 479 | ||
| 482 | 480 | (Messages / Events) Poradie a množstvo správ a udalostí (OnShow, OnActivate, OnEnter, ...) sa líši od VCL a závisí od použitého widgeset. LCL síce poskytuje podmnožinu správ podobných WinAPI (aby bolo portovanie komponentov z Delphi jednoduchšie), avšak takmer všetky LCL správy sa od WinAPI mierne líšia. Niektoré časti Delphi kódy používajú WinAPI správy preto, že vo VCL chýbajú alebo kvôli rýchlosti. Niektoré veci občas samé fungujú, ale je nutné ich skontrolovať ručne. To je dôvod, prečo sa LCL správy nazývajú napr. LM_SIZE namiesto WM_SIZE (unit lmessages). | |
| 483 | 481 | ||
| 484 | 482 | **Poznámka ku spracovávaniu vlastných správ!** Od verzie 0.9.26 (December 2008) sa zmenil spôsob spracovávania vlastných WinAPI správ (ako napr. WM_HOTKEY, WM_SYSCOMMAND); a líši sa od spôsobu používanom v Delphi. V tomto momente nie je možné odchytávať správy prostredníctvom direktívy *message* alebo pomocou prekrytia metódy *WndProc* formulára. Jediný spôsob, ako odchytávať metódy vo formulári je nahradiť metódy *windowproc*. Viac tu: [[Win32/64 Interface|Processing non-user messages in your window]] | |
| 485 | 483 | ||
| 486 | 484 | ## Original Contributors and changes | |
| 487 | 485 | ||
| 488 | 486 | This page has been converted from the epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusForDelphiUsers). | |
| 489 | 487 | ||
| 490 | 488 | - Initial import and formatting - VlxAdmin 9/26/2003 | |
| 491 | 489 | - Begin VCL -\> LCL with a section on TSplitter -\> TPairSplitter - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/30/2003 | |
| 492 | 490 | - Add TControl.Font/TControl.ParentFont to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/30/2003 | |
| 493 | 491 | - Update TEdit/TCustomEdit section in VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003 | |
| 494 | 492 | - Add Control Dragging/Docking to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003 | |
| 495 | 493 | - Added "Object Inspector" to Delphi IDE -\> Lazarus IDE - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003 | |
| 496 | 494 | - Added initial "TCustomTreeView/TTreeView" to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003 | |
| 497 | 495 | - Added introduction to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003 | |
| 498 | 496 | - Fixed some typos - Vincent 10/2/2003 | |
| 499 | 497 | - Fixed Typo User:Kirkpatc 20 May 2004 | |
| 500 | 498 | - Prvotný preklad z origánalu - Slavko 01:18, 2 Apr 2005 (PST) | |
| 501 | 499 | - Aktualizácia prekladu --Adamm 14:45, 29 December 2008 (CET) | |
| 502 | 500 | ||
| 503 | 501 | --- | |
| 504 | 502 | *From the Free Pascal wiki, page "Lazarus For Delphi Users/sk", as it stood on 2020-02-18 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |