Difference between revisions of "TPairSplitter"
From Lazarus wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting) |
||
Line 7: | Line 7: | ||
[[image:component-TPairSplitter.png]] | [[image:component-TPairSplitter.png]] | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
unit Unit1; | unit Unit1; | ||
Line 39: | Line 39: | ||
</syntaxhighlight> | </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