Difference between revisions of "TPairSplitter"
From Lazarus wiki
Jump to navigationJump to searchm (Fixed syntax highlighting) |
|||
(6 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
− | A | + | {{TPairSplitter}} |
+ | |||
+ | A TPairSplitter [[image:tpairsplitter.png]] is a component that can be placed on a panel or form and provides two [[TPairSplitterSide]] sub-components. | ||
+ | |||
+ | In the example below, a [[TPaintBox]] item is dropped onto each TPairSplitterSide. | ||
+ | |||
+ | [[image:component-TPairSplitter.png]] | ||
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
+ | unit Unit1; | ||
+ | |||
+ | {$mode objfpc}{$H+} | ||
+ | |||
+ | interface | ||
+ | |||
+ | uses | ||
+ | Classes, SysUtils, Forms, | ||
+ | Controls, PairSplitter, ExtCtrls; | ||
+ | |||
+ | type | ||
+ | TForm1 = class(TForm) | ||
+ | PaintBox1: TPaintBox; | ||
+ | PaintBox2: TPaintBox; | ||
+ | PairSplitter1: TPairSplitter; | ||
+ | PairSplitterSide1: TPairSplitterSide; | ||
+ | PairSplitterSide2: TPairSplitterSide; | ||
+ | end; | ||
+ | |||
+ | var | ||
+ | Form1: TForm1; | ||
+ | |||
+ | implementation | ||
+ | |||
+ | {$R *.lfm} | ||
+ | |||
+ | { TForm1 } | ||
+ | |||
+ | end. | ||
+ | </syntaxhighlight> | ||
+ | |||
+ | == See also == | ||
− | |||
* [[doc:/lcl/pairsplitter/tpairsplitter.html|TPairSplitter doc]] | * [[doc:/lcl/pairsplitter/tpairsplitter.html|TPairSplitter doc]] | ||
* [[TSplitter]] | * [[TSplitter]] | ||
{{LCL Components}} | {{LCL Components}} |
Latest revision as of 12:04, 1 March 2020
│
English (en) │
français (fr) │
русский (ru) │
A TPairSplitter is a component that can be placed on a panel or form and provides two TPairSplitterSide sub-components.
In the example below, a TPaintBox item is dropped onto each TPairSplitterSide.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms,
Controls, PairSplitter, ExtCtrls;
type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
PaintBox2: TPaintBox;
PairSplitter1: TPairSplitter;
PairSplitterSide1: TPairSplitterSide;
PairSplitterSide2: TPairSplitterSide;
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
end.
See also