Lazarus For Delphi Users/ja: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		この記事は、Lazarusに興味があり、すでにDelphiは知っている、という人々向けのものです。この二つの違いについて記述しています。
2	2
3	3		## DelphiからLazarusへ
4	4
5	5		Lazarusは Delphiと同じく、RAD（Rapid Application Development、手早くアプリケーションを開発できる）ツールの一つです。ビジュアルなコンポーネントライブラリと、IDEがあります。Lazarusのコンポーネントライブラリ(LCL)はDelphiのVCLととても似ています。ほとんどのユニットと、クラスと、プロパティは、同じ名前と機能をもっています。これは、移植を簡単にします。しかし、Lazarusは'オープンソースのDelphiクローン'ではありません。ですから、100%の互換性を期待しないでください。
6	6
7	7		### 最大の相違点は？
8	8
9	9		Lazarusは完全にオープンソースで、プラットホームに対し独立しており、強力な[[Free Pascal\|Free Pascalコンパイラ]](FPC)を使っています。FPCは15以上のプラットホームで動作します。しかし、すべてのパッケージやライブラリが移植されているわけではありません。ですから、Lazarusは現在のところLinux,FreeBSD,MaxOSX、そしてWin32上で動作します。（訳注：いくつかのPDAでも暫定的な動作はします。日本語に関する処理の改善に、これから皆さんの力を必要としています。）
10	10
11	11		Lazarusは、この文章がまたそうであるように、常に未完です。私たちはいつでも、新しい開発者、パッケージ管理者、移植者、ドキュメントの執筆者を募っています。
12	12
13	13		### Delphi のプロジェクトを Lazarus 用に変換するためにまず必要なこと
14	14
15	15		Lazarus を起動し、 Tools メニューから Convert Delphi Project to Lazarus Project を選んで下さい。これで全てが解決する訳ではありませんが、大変役立つはずです。Lazarus IDE の変換ツールは一般に一方通行であり、逆の変換はできないことに注意して下さい。プロジェクトを Delphi でも Lazarus でもコンパイルできるように Delphi との互換性を維持する必要がある場合は、Lazarus IDEではなく [XDev Toolkit](http://wiki.lazarus.freepascal.org/XDev_Toolkit) の利用を考えて下さい。
16	16
17	17		### ユニコードのサポート
18	18
19	19		2007バージョンまでの Delphi はユニコードをサポートせず、Windows が利用していた ANSI エンコーディングを採用していました。2008バージョン以降の Delphi はユニコードをサポートするようになり、UTF-16 を用いて文字列をエンコードしています。
20	20
21	21		一方、Lazarus は UTF-8 を用いたユニコードサポートを始めました。詳しくは [[LCL Unicode Support]] を御読みください。.
22	22
23	23		## Delphi IDE から Lazarus IDE　へ
24	24
25	25		### プロジェクト
26	26
27	27		Delphiアプリケーションのメインのファイルは .dprファイルです。Lazarusにおいては、.lpiファイルです(=Lazarus Project Information)。 .dprファイルはメインのソースプログラムであり、DelphiのIDEはコンパイラスイッチやユニットなどの情報の一部を入れます（訳注：すべてではない。オプションファイルなどがある）。Lazarusのアプリケーションもメインのソースファイルを.lprファイルに入れます。しかし、そのほかのすべての情報をも入れます。ですから、.lpiファイルはとても重要です。
28	28
29	29		例： Delphiはユニットへのパスを.dprファイルに入れます。たとえば、unit1 in 'path/Unit1.pas'というふうにいれます。このinでパスを指定する方法はDelphi独特であり（Pascalの文法ではないので）、Lazarus IDEは読むことができないので、こういう方法をつかわないでください。かわりに、コンパイラオプションで、ユニットパスを指定してください。
30	30
31	31		Delphiはコンパイラオプションを.dprファイルに埋め込みます。たとえば、{\$APPTYPE CONSOLE}.というふうにいれます。Lazarus IDEでは、これらは無視されますので、使わないで下さい。かわりに、コンパイラオプションを使ってください。
32	32
33	33		（訳注：DelphiのdprファイルはPascalの仕様＋独自の部分が結構多いですが、Free Pascal Compiler上のLazarusとしては、Free Pascalに特殊な言語拡張をなるべく行わず、純粋にFree Pascal上に実現できるような方法がとられています。Delphiのようにコンパイラオプションを至る所に定義できるのは、便利でもある一方、スキャンしていかないと、有効か無効かが分からず、バグや全体のみとおしが悪くなる両刃の剣といえますので、訳者は良い仕様だと思います。）
34	34
35	35		ひとつ重要なルールがあります。それは、常にプロジェクトは存在するということです（訳注：IDEが起動している最中に、ということでしょう）。現在のプロジェクトを"close"する方法は、lazarusを終了するか、他のプロジェクトを開くしかありません。これは、lazarusのプロジェクトはセッションとしての役割があるからです。これは、現在のエディタの設定が、.lpiファイルに記録され、そのプロジェクトを開いたときに再開できるようになっています。たとえば、あなたがアプリケーションをデバッグしていて、多くのブレークポイントやブックマークを開いていたとしましょう。あなたは、いつでもプロジェクトを保存することができ、lazarusを終了したり、他のプロジェクトを開くことができます。その、デバッグ中に保存したプロジェクトを開くと（たとえ他のコンピュータで開いたとしても）、ブレークポイント、ブックマーク、開いていたファイル、カーソル位置、ジャンプヒストリ、などといったものが、復元できます。
36	36
37	37		### ソースエディタ
38	38
39	39		ほとんどすべてのキーとショートカットが、enviroment -\> editor options-\>key mappingsで定義可能です。 LazarusのIDEには、ソースのための沢山のツールがあります。それらの多くは、Delphiと見た目も似ており、よくにた働きをします。しかし、一つの重要な相違点があります。すなわち、Lazarusはコード情報を取るために、コンパイラを利用しない、ということです。ソースコードを直接解析します。こうすることで、沢山の重要な利点があります。
40	40
41	41		ソースエディタは、"comments"と一緒に動作します。Delphiにおいては、ソース中のコメントは、コードの間の場所にあるものにすぎません。自動でコードが挿入されても、特別な働きはしないので、すでに入れたコメントは迷子になってしまうかもしれません。Lazarusでは、コメントの中のコードでさえ、宣言を見つけることができます。これは、完璧に信頼できるものではないかもしれませんが、よく役に立ってます。新しいコードが挿入されると、IDEは発見的な方法を使ってコメントとコードを結び付けます。たとえば、"c: char; // comment"という行は分割されることはありません。
42	42
43	43		Delphiの"コード補完"(Ctrl+Space)機能は、Lazarusでは、"Identifier Completion"と呼ばれます。Lazarusにおいて、コード補完は、"自動的なクラス補完"(Delphiとおなじです）、"ローカル変数補完"、"イベント割り当て補完"のあわせた機能です。これらのすべては、Ctrl+Shift+Cで呼び出され、IDEは、カーソルの位置から、何をなすべきか決定します。
44	44
45	45		#### ローカル変数補完の例
46	46
47	47		ちょうど新しいメソッドを作り、"i:=3;"という命令を書いたとしましょう。
48	48
49		-	~~`procedure TForm1.DoSomething;`\~~
50		-	~~`begin`\~~
51		-	~~` i := 3;`\~~
52		-	~~`end;`~~
	49	+	``` pascal
	50	+	procedure TForm1.DoSomething;
	51	+	begin
	52	+	i := 3;
	53	+	end;
	54	+	```
53	55
54	56		識別子"i"の上にカーソルをおいて、Ctrl+Shift+Cを押すと、次のようになります。
55	57
56		-	~~`procedure TForm1.DoSomething;`\~~
57		-	~~`var`\~~
58		-	~~` i: Integer;`\~~
59		-	~~`begin`\~~
60		-	~~` i := 3;`\~~
61		-	~~`end;`~~
	58	+	``` pascal
	59	+	procedure TForm1.DoSomething;
	60	+	var
	61	+	i: Integer;
	62	+	begin
	63	+	i := 3;
	64	+	end;
	65	+	```
62	66
63	67		#### イベント割当補完の例
64	68
65	69		オブジェクトインスペクタの良い機能のひとつに、自動的にメソッドを作ること、があります。ソースエディタでやってみてください。
66	70
67	71		たとえば：
68	72
69		-	~~`Button1.OnClick:=`~~
	73	+	``` pascal
	74	+	Button1.OnClick:=
	75	+	```
70	76
71	77		代入演算子":="の後で、Ctrl+Shift+Cを押してみてください。
72	78
73	79		#### 手続呼出補完の例
74	80
75	81		今 "DoSomething(Width);" という文を書き終えた所だとします:
76	82
77	83		``` pascal
78	84		procedure SomeProcedure;
79	85		var
80	86		Width: integer;
81	87		begin
82	88		Width:=3;
83	89		DoSomething(Width);
84	90		end;
85	91		```
86	92
87	93		識別子 "DoSomething" の上にカーソルを置いて、Ctrl+Shift+C を押すと、こうなります:
88	94
89	95		``` pascal
90	96		procedure DoSomething(aWidth: LongInt);
91	97		begin
92	98
93	99		end;
94	100
95	101		procedure SomeProcedure;
96	102		var
97	103		Width: integer;
98	104		begin
99	105		Width:=3;
100	106		DoSomething(Width);
101	107		end;
102	108		```
103	109
104	110		#### 語彙補完 Ctrl+W
105	111
106	112		識別子補完と似ていますが、パスカルの識別子に対してではなく、すべての語彙に対して補完します。あなたが開いているすべてのファイルの中から、あなたがタイプし始めた文字が同じものの語彙をリストアップし、選択できます。
107	113
108	114		#### インクルードファイルのサポート
109	115
110	116		Delphiではインクルードファイルをサポートしていませんので（訳注：\$iがあるので、補完機能が、ということだろう）、多分、みなさんは多くのインクルードファイルを今までに作っていないかもしれません。しかし、インクルードファイルには、大きな利点があります。それは、IFDEFでソースコードを汚さずに、プラットホーム独立なコードを書けるということです。 Lazarusでは、メソッドジャンプ、クラス補完、宣言を見つける、など、すべての機能は、インクルードファイルに対しても働きます。また、コーディング機能にいろんなオプションがあります。
111	117
112	118		### デザイナ
113	119
114	120		\- ガイドライン
115	121
116	122		#### オブジェクト・インスペクタ
117	123
118	124		DelphiとLazarusのIDEでは、オブジェクトインスペクタはコンポーネントプロパティを編集したり、イベントを設定したりするのに使われます。使い方に、いくつかの小さな違いがあります。
119	125
120	126		1. Delphi5を起動すると、オブジェクトインスペクタのなかで、階層にしたがって伝統的なドロップダウンリストでオブジェクトを選択できるオブジェクトツリービューがあります。Lazarusでは、これは、オブジェクトインスペクタの一部にすぎません。デフォルトのドロップダウンリストのかわりに、右クリックで表示される"Show Component Tree"メニューを使うこともできます。
121	127		2. Delphiでは、空のイベントでダブルクリックすると、自動的にイベントを作成し、ソースエディターがその位置を開きます。Lazarusは右側にボタンがあり、ドロップダウンでイベントを作成することができます。
122	128		3. Delphiでは、つけられたイベント名は手で消さなくてはなりませんが、Lazarusでは、"(None)"をドロップダウンで選ぶことができます。
123	129		4. Eventと同じように、booleanのような標準的なプロパティをダブルクリックすることでは、値は変化しません。値を変えるには、ドロップダウンで選択する必要があります。そして、エディターフォームで結び付けられているものを開くには、editやdrop-downの右側にある'...'ボタンをクリックする必要があります。
124	130
125	131		#### パッケージ
126	132
127	133		LazarusはDelphiのパッケージをインストールして使うことはできますか？
128	134
129	135		いいえ、なぜなら、それには、Delphiのコンパイラマジック（訳注：Pascalではない部分の特殊な文法）が必要だからです。
130	136
131	137		私たちは、Lazarus向けに特別にパッケージを作りたいのですが？
132	138
133	139		はい。新しくパッケージをつくり、パッケージソースディレクトリに保存してください。通常は dpkファイルと同じディレクトリです。そして、LCLを必要とするパッケージとして加えて、最後に.pasファイルを加えてください。それを今すぐインストールしたり、プロジェクトで使うことができます。 LazarusとDelphiのパッケージで、いくつかの違いがありますので、lazarusのソース内のdocs/Packages.txtを読んでください。
134	140
135	141		### VCL から LCL へ
136	142
137	143		VCLとLCLは、ともに、高速なアプリケーション開発向けの、オブジェクト指向の階層的なコンポーネントのライブラリです。しかし、それらは同じではありません。たとえば、VCLは多くの非ビジュアルなコンポーネントを含みます。一方、LCLは、[[Free Pascal\|Free Pascalによって]]、多くの「ビジュアルでない」コンポーネント（データベースアクセスなど）が提供されていますので、ビジュアルなコンポーネントのみ、を提供しようとしています。（訳注：データベースの表示については、ビジュアルである。そのなかで使われるデータベースアクセス自体はLCLコンポーネント内に統合されていると思われる）
138	144
139	145		加えていうと、VCL等にある多くのコントロールが、LCLには存在しないかもしれませんし、同じようなコントロールが両方に存在する場合でも、それらはクローンではありません。ですから、もし移植をするなら、アプリケーション、コンポーネント、およびコントロールのそれぞれで変更が必要です。
140	146
141	147		次のことはDelphiユーザのために、DelphiとLazarusの主要な違いや、互換性のない所を、包み隠さずに明らかにしようとするものです。これは、主にD4でのVCL（D5,D6,D7も同様です）と、現在のCVSに、あるがままのLCLの違いをカバーしました。あなたがいつも使っているDelphiやLCLのバージョンに完全に一致しないかもしれません。もし、これらの記述が正確でないとすれば、他の皆さんの理解のために、ご自由に記述を加えたり、変更してください。
142	148
143	149		#### TControl.Font/TControl.ParentFontについて
144	150
145	151		VCLでは、コントロールにフォントのプロパティとして、ボールドやイタリック、特定のフォント名と等を使用し、通常はこの値がいつも子へと引き継がれていきます。さらに、コントロールがいつもParentのフォントを確実にする継承するために、TControl.ParentFontプロパティを提供しています。 OSにウインドウの見え方の設定があるのですが、コントロールのプロパティが常時優先されるということを暗に決めてつけてしまっています。
146	152
147	153		（訳注：Windowsで画面で大きい文字などが選択できるが、他のデスクトップではもっと多くのことが指定できるものがあるので、Delphiにおいてもシステムフォントを取得することが望ましい、とされる場合もあるが、きっちりデザインが難しくなる。）
148	154
149	155		このフォントについての機能、解釈はLCLでは、異なっています。現実にクロスプラットフォーム/クロスインタフェースであるLCLは、バランスのとれた手法を好んで採用しようとしています。LCLは、いつでも、どんなウィジェットでのネイティブのDesktop/ツールキットのApearance、Theme設定も使用しようとします。例えば、テーマが、ボタンのための特定の字体を供給するGTKインタフェース、およびgtkを使用することがありますが、LCLボタンはいつもこのテーマに沿った字体を使用します。
150	156
151	157		このことは、ほとんどのLCLコントロールはVCLで当たり前になっている、設計上のフォントなどの管理機能は持っていない、ということです。しかし、もし、この仕様を変更したければ、使用されるインターフェースにかかわらず、この様に統一的に割り当てられたインタフェースに代わり、Canvasに独自で描画するカスタムコントロールを使うことができます。
152	158
153	159		例えば太字や、特別な色の字体のLabelが必要な場合、代わりにTStaticTextを使用しなければなりません。なぜなら、TLabelは特定のコントロールのインタフェースであり、すべてのインタフェースのネイティブなバージョンを供給するのであるならば、その大部分は、すべての環境が考慮されないかもしれない、デフォルトの設定が利用されるでしょう。
154	160
155	161		#### ドラッグとドッキングの制御
156	162
157	163		VCLでは、実行中に、例えば1個のパネルからコントロールをドラッグして、別のパネルにドッキングできるように、ほとんどのTWinControlからの派生コントロールは、ドラッグ、ドッキングを制御する機能が組み込まれています。
158	164
159	165		この機能はLCLでは、現在、未完成であり、実装されていません。現在、設計の初期段階です。このタイプのふるまいが、同じような方法で、同等のレベルの互換性を維持するように、最終的には、サポートしてくれると思います。
160	166
161	167		これは、現在、どんなControlも以下のTControlの機能、プロシージャ、プロパティを継承していない、使っていない、ということを意味します。
162	168
163	169		``` pascal
164	170		Protected
165	171		function GetDockEdge(MousePos: TPoint): TAlign;
166	172		function GetDragImages: TDragImageList;
167	173		function GetFloating: Boolean;
168	174		function GetFloatingDockSiteClass: TWinControlClass;
169	175		procedure DoEndDrag(Target:TObject); X, Y: Integer);
170	176		procedure DockTrackNoTarget(Source: TDragDockObject; X, Y: Integer);
171	177		procedure DoEndDock(Target: TObject; X, Y: Integer);
172	178		procedure DoDock(NewDockSite: TWinControl; var ARect: TRect);
173	179		procedure DoStartDock(var DragObject: TDragObject);
174	180		procedure DragCanceled;
175	181		procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState;
176	182		var Accept: Boolean);
177	183		procedure DoEndDrag(Target: TObject; X, Y: Integer);
178	184		procedure DoStartDrag(var DragObject: TDragObject);
179	185		procedure DrawDragDockImage(DragDockObject: TDragDockObject);
180	186		procedure EraseDragDockImage(DragDockObject: TDragDockObject);
181	187		procedure PositionDockRect(DragDockObject: TDragDockObject);
182	188		procedure SetDragMode(Value: TDragMode);
183	189		property DragKind: TDragKind;
184	190		property DragCursor: TCursor;
185	191		property DragMode: TDragMode;
186	192		property OnDragDrop: TDragDropEvent;
187	193		property OnDragOver: TDragOverEvent;
188	194		property OnEndDock: TEndDragEvent;
189	195		property OnEndDrag: TEndDragEvent;
190	196		property OnStartDock: TStartDockEvent;
191	197		property OnStartDrag: TStartDragEvent;
192	198		public
193	199		function Dragging: Boolean;
194	200		function ManualDock(NewDockSite: TWinControl; DropControl: TControl;
195	201		ControlSide: TAlign): Boolean;
196	202		function ManualFloat(ScreenPos: TRect): Boolean;
197	203		function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl;
198	204		DropControl: TControl; ControlSide: TAlign): Boolean;
199	205		procedure BeginDrag(Immediate: Boolean; Threshold: Integer);
200	206		procedure Dock(NewDockSite: TWinControl; ARect: TRect);
201	207		procedure DragDrop(Source: TObject; X, Y: Integer);
202	208		procedure EndDrag(Drop: Boolean);
203	209		property DockOrientation: TDockOrientation;
204	210		property Floating: Boolean;
205	211		property FloatingDockSiteClass: TWinControlClass;
206	212		property HostDockSite: TWinControl;
207	213		property LRDockWidth: Integer;
208	214		property TBDockHeight: Integer;
209	215		property UndockHeight: Integer;
210	216		property UndockWidth: Integer;
211	217		```
212	218
213	219		that the following classes do not exist/are unusable -
214	220
215	221		``` pascal
216	222		TDragImageList = class(TCustomImageList)
217	223		TDockZone = class
218	224		TDockTree = class(TInterfacedObject, IDockManager)
219	225		TDragObject = class(TObject)
220	226		TBaseDragControlObject = class(TDragObject)
221	227		TDragControlObject = class(TBaseDragControlObject)
222	228		TDragDockObject = class(TBaseDragControlObject)
223	229		```
224	230
225	231		下記の関数も、利用できないか、互換性がありません。
226	232
227	233		``` pascal
228	234		function FindDragTarget(const Pos: TPoint;
229	235		AllowDisabled: Boolean) : TControl;
230	236		procedure CancelDrag;
231	237		function IsDragObject(sender: TObject): Boolean;
232	238		```
233	239
234	240		#### TEdit、および、TCustomEditについて
235	241
236	242		Editコントロールは、LCLもVCLと同等の機能をもっていますが、移植中に、いくつかの気をつけるべき点があります。
237	243
238	244		1. GUIインターフェースでの制限で、TEdit.PasswordCharはすべてのインタフェースでは、まだ正常に機能しません。入力テキストを隠するために必要とする場合は、代わりに、TCustomEdit.EchoMode emPasswordを使用します。
239	245		2. ドラッグ、ドッキングイベントはまだ実装されていません。詳しくは、Control Dragging/Docking.
240	246		3. フォントプロパティは、GUIの統一性のためにたいてい無視されます。詳しくは、TControl.Font/TControl.ParentFont
241	247
242	248		### (optional) TSplitter -\> TPairSplitter
243	249
244	250		Please Improve Me
245	251
246	252		There is now a TSplitter control in the LCL, so no need to convert it.
247	253
248	254		Nevertheless, if you want, here it is explained:
249	255
250	256		The following is loosely based on questions by Vincent Snijders on the mailing list, and responses by [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson):
251	257
252	258		In the VCL, "Splitting" controls, that is a handle which can be dragged between two components to give one more or less space then the other, is accomplished by a TSplitter. This is often seen, for instance in the Delphi IDE between the docked Code Explorer and Source Viewer.
253	259
254	260		The LCL provides its own Control called a TPairSplitter, which serves the same type of purpose, however it is not compatible, so "repairing" broken VCL code or Delphi DFM's will be necesary in the event of porting code, even though much is shared in common between the two.
255	261
256	262		So what exactly are the differences?
257	263
258	264		Well the biggest differences are a VCL TSplitter has no children, instead it is placed between two controls aligned properly, and allows resizing between them at runtime, regardless its own size. It must have two controls aligned on each size to do anything. A simple example would be form with a Left Aligned Panel, a left aligned Splitter, and a second client aligned panel. On run time you could then realign the size given each panel by dragging on the handle provided by this Splitter control.
259	265
260	266		On the LCL hand however, a TPairSplitter is a special kind of control, with two panels, and it can only be usefull if the controls to split are on these panels, but it will still perform a split between those panel whether or not anything is on them. So following the prior example, you would have a form with a TPairSplitter aligned client, and a panel aligned client on its left side, and a panel aligned client on its right side.
261	267
262	268		The other important difference is that in the VCl, since the TSplitter is its own TControl, then the position is kept relative to the other controls on resize, so for instance a client panel will grow while the other panels will not, thus the split position is relative to the alignment of the split controls,
263	269
264	270		In the LCL since the side panels are separate then the TPairSplitter has a Position property which is absolute relative to top or left. so on resize the actual position does not change according to contents, so a callback must be set to ensure the ratio is kept on resize if this is important.
265	271
266	272		For example if the Right side of a vertical split needs to have alClient like behaviour, you need to add a form resize callback which does something like :
267	273
268		-	~~`PairSplitter.Position := PairSplitter.Width - PairSplitter.Position; `~~
	274	+	``` pascal
	275	+	PairSplitter.Position := PairSplitter.Width - PairSplitter.Position;
	276	+	```
269	277
270	278		So how can I convert existing code using TSplitter to the TPairSplitter?
271	279
272	280		If the splitter and controls are created within an actual function(like form oncreate), conversion shouldn't be too difficult, primarily reorganize the code to create the controls in order of new hierarchy and set the parents of the child controls to split to the left/top and right/bottom portions of the PairSplitter. An example of the changes being -
273	281
274	282		VCL
275	283
276	284		LCL
277	285
278	286		``` pascal
279	287		var
280	288		BottomPanel: TPanel;
281	289		VerticalSplitter: TSplitter;
282	290		LeftPanel: TPanel;
283	291		HorizontalSplitter: TSplitter;
284	292		MainPanel: TPanel;
285	293
286	294		begin
287	295		BottomPanel:= TPanel.Create(Self);
288	296		with (BottomPanel) do
289	297		begin
290	298		Parent:= Self;
291	299		Height:= 75;
292	300		Align:= alBottom;
293	301		end;
294	302
295	303		VerticalSplitter:= TSplitter.Create(Self);
296	304		with (VerticalSplitter) do
297	305		begin
298	306		Parent:= Self;
299	307		Align:= alBottom;
300	308		end;
301	309
302	310		HorizontalSplitter:= TSplitter.Create(Self);
303	311		with (HorizontalSplitter) do
304	312		begin
305	313		Parent:= Self;
306	314		align:= alLeft;
307	315		end;
308	316
309	317		LeftPanel:= TPanel.Create(Self);
310	318		with (LeftPanel) do
311	319		begin
312	320		Parent:= Self;
313	321		Width:= 125;
314	322		Align:= alLeft;
315	323		end;
316	324
317	325		MainPanel:= TPanel.Create(Self);
318	326		with (MainPanel) do
319	327		begin
320	328		Parent:= Self;
321	329		Align:= alClient;
322	330		Caption:= 'Hello';
323	331		end;
324	332		end;
325	333		```
326	334
327	335		``` pascal
328	336		var
329	337		BottomPanel: TPanel;
330	338		VerticalSplitter: TPairSplitter;
331	339		LeftPanel: TPanel;
332	340		HorizontalSplitter: TPairSplitter;
333	341		MainPanel: TPanel;
334	342
335	343		begin
336	344		VerticalSplitter:= TPairSplitter.Create(Self);
337	345		with (VerticalSplitter) do
338	346		begin
339	347		Parent:= Self;
340	348		Align:= alClient;
341	349		Width:= Self.Width;
342	350		Height:= Self.Height;
343	351		SplitterType:= pstVertical;
344	352		Position:= Height - 75;
345	353		Sides[0].Width:= Width;
346	354		Sides[0].Height:= Position;
347	355		end;
348	356
349	357		HorizontalSplitter:= TPairSplitter.Create(Self);
350	358		with (HorizontalSplitter) do
351	359		begin
352	360		Parent:= VerticalSplitter.Sides[0];
353	361		Width:= Self.Width;
354	362		Height:= VerticalSplitter.Position;
355	363		align:= alClient;
356	364		SplitterType:= pstHorizontal;
357	365		Position:= 125;
358	366		end;
359	367
360	368		LeftPanel:= TPanel.Create(Self);
361	369		with (LeftPanel) do
362	370		begin
363	371		Parent:= HorizontalSplitter.Sides[0];
364	372		Align:= alClient;
365	373		end;
366	374
367	375		MainPanel:= TPanel.Create(Self);
368	376		with (MainPanel) do
369	377		begin
370	378		Parent:= HorizontalSplitter.Sides[1];
371	379		Align:= alClient;
372	380		Caption:= 'Hello';
373	381		end;
374	382
375	383		BottomPanel:= TPanel.Create(Self);
376	384		with (BottomPanel) do
377	385		begin
378	386		Parent:= VerticalSplitter.Sides[1];
379	387		Align:= alClient;
380	388		end;
381	389		end;
382	390		```
383	391
384	392		So as you can see, farely consistant with most control hierarchy. And if you are familiar with DFM's, the changes needed for DFM-\>LFM conversion should be farely obvious from the above, as they are the same sort of changes in Parent/Owner etc.
385	393
386	394		So the above example would be something like -
387	395
388	396		Delphi DFM
389	397
390	398		(extraneous values removed)
391	399
392	400		Lazarus LFM
393	401
394	402		(most width, height, etc. removed)
395	403
396		-	~~``` pascal~~
	404	+	``` lfm
397	405		object VerticalSplitter: TSplitter
398	406		Height = 3
399	407		Cursor = crVSplit
400	408		Align = alBottom
401	409		end
402	410		object HorizontalSplitter: TSplitter
403	411		Width = 3
404	412		Align = alLeft
405	413		end
406	414		object BottomPanel: TPanel
407	415		Height = 75
408	416		Align = alBottom
409	417		end
410	418		object LeftPanel: TPanel
411	419		Width = 125
412	420		Align = alLeft
413	421		end
414	422		object MainPanel: TPanel
415	423		Align = alClient
416	424		end
417	425		```
418	426
419		-	~~``` pascal~~
	427	+	``` lfm
420	428		object VerticalSplitter: TPairSplitter
421	429		Align = alClient
422	430		SplitterType = pstVertical
423	431		Position = 225
424	432		Height = 300
425	433		Width = 400
426	434		object Pairsplitterside1: TPairSplitterIde
427	435		object HorizontalSplitter: TPairSplitter
428	436		Align = alClient
429	437		Position = 125
430	438		object Pairsplitterside3: TPairSplitterIde
431	439		Width = 125
432	440		object LeftPanel: TPanel
433	441		Align = alClient
434	442		Width = 125
435	443		end
436	444		end
437	445		object Pairsplitterside4: TPairSplitterIde
438	446		object MainPanel: TPanel
439	447		Align = alClient
440	448		end
441	449		end
442	450		end
443	451		end
444	452		object Pairsplitterside2: TPairSplitterIde
445	453		object BottomPanel: TPanel
446	454		Align = alClient
447	455		Height = 75
448	456		end
449	457		end
450	458		end
451	459		```
452	460
453	461		### TCustomTreeView、およびTTreeViewについて
454	462
455	463		VCLにもLCLにも、TCustomTreeView/TTreeViewのコンポーネントがあります。ツリー構造化されたデータのリストで、複数のノードや、高度なセレクション、イメージリストなどの機能があります。多くの機能は同等ですが、すべてのプロパティがまったくおなじではありません。主な相違点は以下です。
456	464
457	465		Incomplete list, also update to include TCustomTreeView Mark functions and protected methods
458	466
459	467		1. LCLには、 TCustomTreeView.Optionsがあります。これは、コントロールが変更されたときのふるまいと見かけのオプションです。これらのオプションは次の通りです。:
460	468		- tvoAllowMultiselect - 複数のノードを選択できるモードです。eDelphi6のVCLのTCustomTreeView.MultiSelectと同等です。
461	469		- tvoAutoExpand - ノードを自動展開します。TCustomTreeView.AutoExpandと同様です。
462	470		- tvoAutoInsertMark - マウスが上を動くとドラッグのプレビューを更新します。
463	471		- tvoAutoItemHeight - Itemの高さを自動的に調節します。
464	472		- tvoHideSelection - 選択したItemをマークしません。
465	473		- tvoHotTrack - ホットトラッキングをおこないます。TCustomTreeview.HotTrackを有効にするのと同等です。
466	474		- tvoKeepCollapsedNodes - ノードを折畳んだりしたときに、子ノードを維持します。
467	475		- tvoReadOnly - TreeviewをReadOnlyにします。TCustomTreeviewのReadOnlyを有効にするのと同等です。
468	476		- tvoRightClickSelect - ノードをマウスの右クリックで選択状態にできるようにします。TCustomTreeView.RightClickSelectを有効にするのと同等です。
469	477		- tvoRowSelect - 行選択を可能にします。TCustomTreeView.RowSelectを有効にするのと同等です。
470	478		- tvoShowButtons - ボタンを表示します。TCustomTreeView.ShowButtonsを有効にするのと同等です。
471	479		- tvoShowLines - ノードへの線を表示します。TCustomTreeView.ShowLinesを有効にするのと同等です。
472	480		- tvoShowRoot - ルートノードを表示します。TCustomTreeView.ShowRootを有効にするのと同等です。
473	481		- tvoShowSeparators - セパレータを表示します。
474	482		- tvoToolTips - 個々のノードに、ツールチップを表示します。
475	483		2. LCLは次のプロパティを追加しました：
476	484		- TCustomTreeView.OnSelectionChange イベント
477	485		- TCustomTreeView.DefaultItems, アイテムのデフォルト設定のためのものです。
478	486		- TCustomTreeView.ExpandSignType ノードの展開、折りたたみの際のサインを決定します。
479	487		3. LCLにあるほとんどのドラッグ、ドッキングイベントは動作しません。これについてのより詳細な情報は、前の「ドラッグとドッキングの制御」を見てください。
480	488
481	489		### Messages / Events
482	490
483	491		The order and frequency of messages and events (OnShow, OnActivate, OnEnter, ...) differ from the VCL and depend on the widgetset. The LCL provides a subset of WinAPI like messages to make porting of Delphi components easier, but almost all LCL messages work a little bit different than the VCL/WinAPI counterpart. The biggest part of Delphi code using WinAPI messages uses them, because the VCL lacks a feature or for speed reasons. Such things will seldom work the same under the LCL, so they must be checked manually. That's why LCL messages are called for example LM_SIZE instead of WM_SIZE (unit lmessages).
484	492
485	493		Note on handling of custom messages! As of version 0.9.26 (December 2008), way of handling custom WinApi messages (e.g. WM_HOTKEY, WM_SYSCOMMAND) differs from the way of handling these messages in Delphi. At the moment you cannot handle them via message directive or via overriding of WndProc method of the form. The only way to handle them in the form is to hook Windows windowproc by yourself. Read more here: [[Win32/64 Interface\|Processing non-user messages in your window]]
486	494
487	495		## Original Contributors and changes
488	496
489	497		This page has been converted from the epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusForDelphiUsers).
490	498
491	499		- Initial import and formatting - VlxAdmin 9/26/2003
492	500		- Begin VCL -\> LCL with a section on TSplitter -\> TPairSplitter - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/30/2003
493	501		- Add TControl.Font/TControl.ParentFont to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/30/2003
494	502		- Update TEdit/TCustomEdit section in VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
495	503		- Add Control Dragging/Docking to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
496	504		- Added "Object Inspector" to Delphi IDE -\> Lazarus IDE - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
497	505		- Added initial "TCustomTreeView/TTreeView" to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
498	506		- Added introduction to VCL -\> LCL - [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/1/2003
499	507		- Fixed some typos - Vincent 10/2/2003
500	508		- Fixed Typo User:Kirkpatc 20 May 2004
501	509
502	510		## See Also
503	511
504	512		[[Code Conversion Guide\|Code Conversion Guide (from Delphi & Kylix)]]
505	513
506	514		[[Compile With Delphi]]
507	515
508	516		---
509	517		From the Free Pascal wiki, page "Lazarus For Delphi Users/ja", 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