Class TPalette_dlg (unit Paldlg)

Inherits from

TForm

Most of this code is not useful, I used it under BPW and it is left here for one project I use it for, you can safely delete it.

Constructors



Functions

procedure FindAllPalettes(destlist:TStringList);


procedure FormCreate(Sender:TObject);


procedure OKBtnClick(Sender: TObject);

fills a TStringlist with palettes - useful for listboxes

procedure Palette_ListClick(Sender: TObject);


Properties

Events

Variables

Bevel1 : TBevel;


CancelBtn : TButton;


OKBtn : TButton;


Palette_List : TListBox;


Filename : string;



Constructors


Functions


procedure FindAllPalettes(destlist:TStringList);


procedure FormCreate(Sender:TObject);


procedure OKBtnClick(Sender: TObject);

fills a TStringlist with palettes - useful for listboxes


procedure Palette_ListClick(Sender: TObject);


Properties


Events


Variables


Bevel1 : TBevel;


CancelBtn : TButton;


OKBtn : TButton;


Palette_List : TListBox;


Filename : string;