Mark van Renswoude
a60c185db1
Changed: GraphicList now uses TComponent-based items to support Visual Inheritance
35 lines
731 B
ObjectPascal
35 lines
731 B
ObjectPascal
unit FMainGL;
|
|
|
|
interface
|
|
uses
|
|
Classes,
|
|
ComCtrls,
|
|
Controls,
|
|
ExtCtrls,
|
|
Forms,
|
|
ImgList,
|
|
Menus,
|
|
PNGImage,
|
|
ToolWin,
|
|
X2CLGraphicList;
|
|
|
|
type
|
|
TfrmMain = class(TForm)
|
|
gcMain: TX2GraphicContainer;
|
|
glMain: TX2GraphicList;
|
|
glMainDisabled: TX2GraphicList;
|
|
glTree: TX2GraphicList;
|
|
mnuMain: TMainMenu;
|
|
mnuTest: TMenuItem;
|
|
mnuTestImage: TMenuItem;
|
|
tbMain: TToolBar;
|
|
tbTest: TToolButton;
|
|
tvTest: TTreeView;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|