Lazarus For Delphi Users/sk: what changed

Revision 2 to 3. 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		-	~~`PairSplitter.Position := PairSplitter.Width - PairSplitter.Position; `~~
	269	+	``` pascal
	270	+	PairSplitter.Position := PairSplitter.Width - PairSplitter.Position;
	271	+	```
270	272
271	273		Teda ako môžem konvertovať existujúci kód používajúci TSplitter na TPairSplitter?
272	274
273	275		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	276
275	277		VCL
276	278
277	279		LCL
278	280
279	281		``` pascal
280	282		var
281	283		BottomPanel: TPanel;
282	284		VerticalSplitter: TSplitter;
283	285		LeftPanel: TPanel;
284	286		HorizontalSplitter: TSplitter;
285	287		MainPanel: TPanel;
286	288
287	289		begin
288	290		BottomPanel:= TPanel.Create(Self);
289	291		with (BottomPanel) do
290	292		begin
291	293		Parent:= Self;
292	294		Height:= 75;
293	295		Align:= alBottom;
294	296		end;
295	297
296	298		VerticalSplitter:= TSplitter.Create(Self);
297	299		with (VerticalSplitter) do
298	300		begin
299	301		Parent:= Self;
300	302		Align:= alBottom;
301	303		end;
302	304
303	305		HorizontalSplitter:= TSplitter.Create(Self);
304	306		with (HorizontalSplitter) do
305	307		begin
306	308		Parent:= Self;
307	309		align:= alLeft;
308	310		end;
309	311
310	312		LeftPanel:= TPanel.Create(Self);
311	313		with (LeftPanel) do
312	314		begin
313	315		Parent:= Self;
314	316		Width:= 125;
315	317		Align:= alLeft;
316	318		end;
317	319
318	320		MainPanel:= TPanel.Create(Self);
319	321		with (MainPanel) do
320	322		begin
321	323		Parent:= Self;
322	324		Align:= alClient;
323	325		Caption:= 'Hello';
324	326		end;
325	327		end;
326	328		```
327	329
328	330		``` pascal
329	331		var
330	332		BottomPanel: TPanel;
331	333		VerticalSplitter: TPairSplitter;
332	334		LeftPanel: TPanel;
333	335		HorizontalSplitter: TPairSplitter;
334	336		MainPanel: TPanel;
335	337
336	338		begin
337	339		VerticalSplitter:= TPairSplitter.Create(Self);
338	340		with (VerticalSplitter) do
339	341		begin
340	342		Parent:= Self;
341	343		Align:= alClient;
342	344		Width:= Self.Width;
343	345		Height:= Self.Height;
344	346		SplitterType:= pstVertical;
345	347		Position:= Height - 75;
346	348		Sides[0].Width:= Width;
347	349		Sides[0].Height:= Position;
348	350		end;
349	351
350	352		HorizontalSplitter:= TPairSplitter.Create(Self);
351	353		with (HorizontalSplitter) do
352	354		begin
353	355		Parent:= VerticalSplitter.Sides[0];
354	356		Width:= Self.Width;
355	357		Height:= VerticalSplitter.Position;
356	358		align:= alClient;
357	359		SplitterType:= pstHorizontal;
358	360		Position:= 125;
359	361		end;
360	362
361	363		LeftPanel:= TPanel.Create(Self);
362	364		with (LeftPanel) do
363	365		begin
364	366		Parent:= HorizontalSplitter.Sides[0];
365	367		Align:= alClient;
366	368		end;
367	369
368	370		MainPanel:= TPanel.Create(Self);
369	371		with (MainPanel) do
370	372		begin
371	373		Parent:= HorizontalSplitter.Sides[1];
372	374		Align:= alClient;
373	375		Caption:= 'Hello';
374	376		end;
375	377
376	378		BottomPanel:= TPanel.Create(Self);
377	379		with (BottomPanel) do
378	380		begin
379	381		Parent:= VerticalSplitter.Sides[1];
380	382		Align:= alClient;
381	383		end;
382	384		end;
383	385		```
384	386
385	387		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:
386	388
387	389		Delphi DFM
388	390
389	391		(extraneous values removed)
390	392
391	393		Lazarus LFM
392	394
393	395		(most width, height, etc. removed)
394	396
395		-	~~``` pascal~~
	397	+	``` lfm
396	398		object VerticalSplitter: TSplitter
397	399		Height = 3
398	400		Cursor = crVSplit
399	401		Align = alBottom
400	402		end
401	403		object HorizontalSplitter: TSplitter
402	404		Width = 3
403	405		Align = alLeft
404	406		end
405	407		object BottomPanel: TPanel
406	408		Height = 75
407	409		Align = alBottom
408	410		end
409	411		object LeftPanel: TPanel
410	412		Width = 125
411	413		Align = alLeft
412	414		end
413	415		object MainPanel: TPanel
414	416		Align = alClient
415	417		end
416	418		```
417	419
418		-	~~``` pascal~~
	420	+	``` lfm
419	421		object VerticalSplitter: TPairSplitter
420	422		Align = alClient
421	423		SplitterType = pstVertical
422	424		Position = 225
423	425		Height = 300
424	426		Width = 400
425	427		object Pairsplitterside1: TPairSplitterIde
426	428		object HorizontalSplitter: TPairSplitter
427	429		Align = alClient
428	430		Position = 125
429	431		object Pairsplitterside3: TPairSplitterIde
430	432		Width = 125
431	433		object LeftPanel: TPanel
432	434		Align = alClient
433	435		Width = 125
434	436		end
435	437		end
436	438		object Pairsplitterside4: TPairSplitterIde
437	439		object MainPanel: TPanel
438	440		Align = alClient
439	441		end
440	442		end
441	443		end
442	444		end
443	445		object Pairsplitterside2: TPairSplitterIde
444	446		object BottomPanel: TPanel
445	447		Align = alClient
446	448		Height = 75
447	449		end
448	450		end
449	451		end
450	452		```
451	453
452	454		### TCustomTreeView/TTreeView
453	455
454	456		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
455	457
456	458		1. LCL poskytuje TCustomTreeView.Options, množinu volieb, ktoré môžu byť nastavené na zmenu správania a vzhľadu prvku:
457	459		- tvoAllowMultiselect- nastavuje mód viacnásobného výberu uzlov, ekvivalent k TCustomTreeView.MultiSelect vo VCL VCL
458	460		- tvoAutoExpand- automatické rozbalenie uzlov, ekvivalent k TCustomTreeView.AutoExpand
459	461		- tvoAutoInsertMark- aktualizácia prípravy Drag pri prechode myšou.
460	462		- tvoAutoItemHeight- automatické prispôsobenie výšky prvku.
461	463		- tvoHideSelection- neoznačovať vybranú položku.
462	464		- tvoHotTrack- použitie HotTracking, ekvivalent k TCustomTreeview.HotTrack
463	465		- tvoKeepCollapsedNodes- pri zbalení uzla, uchováva podriadené uzly
464	466		- tvoReadOnly- ekvivalent k TCustomTreeview.ReadOnly
465	467		- tvoRightClickSelect- dovoľuje použiť pravé tlačítko myši na výber uzla, ekvivalent k TCustomTreeView.RightClickSelect
466	468		- tvoRowSelect- dovoľuje výber riadkov, ekvivalent k TCustomTreeView.RowSelect
467	469		- tvoShowButtons- zobrazuje tlačítka, ekvivalent k TCustomTreeView.ShowButtons
468	470		- tvoShowLines- zobrazuje čiary uzlov, ekvivalent k TCustomTreeView.ShowLines
469	471		- tvoShowRoot- zobrazuje root, ekvivalent k TCustomTreeView.ShowRoot
470	472		- tvoShowSeparators- zobrazuje oddeľovače
471	473		- tvoToolTips- zobrazuje samostatné tooltips pre uzly
472	474		2. LCL poskytuje dodatočné vlastnosti:
473	475		- udalosť TCustomTreeView.OnSelectionChange
474	476		- TCustomTreeView.DefaultItems, pre predvolené číslo položiek
475	477		- TCustomTreeView.ExpandSignType na určenie znamienka použitého na rozbaliteľných/zbaliteľných uzloch
476	478		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.
477	479
478	480		### Správy / Udalosti
479	481
480	482		(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).
481	483
482	484		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]]
483	485
484	486		## Original Contributors and changes
485	487
486	488		This page has been converted from the epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusForDelphiUsers).
487	489
488	490		- Initial import and formatting - VlxAdmin 9/26/2003
489	491		- Begin VCL -\> LCL with a section on TSplitter -\> TPairSplitter - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/30/2003
490	492		- Add TControl.Font/TControl.ParentFont to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/30/2003
491	493		- Update TEdit/TCustomEdit section in VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
492	494		- Add Control Dragging/Docking to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
493	495		- Added "Object Inspector" to Delphi IDE -\> Lazarus IDE - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
494	496		- Added initial "TCustomTreeView/TTreeView" to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
495	497		- Added introduction to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
496	498		- Fixed some typos - Vincent 10/2/2003
497	499		- Fixed Typo User:Kirkpatc 20 May 2004
498	500		- Prvotný preklad z origánalu - Slavko 01:18, 2 Apr 2005 (PST)
499	501		- Aktualizácia prekladu --Adamm 14:45, 29 December 2008 (CET)
500	502
501	503		---
502	504		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).

Back to history