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.
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);
Bevel1 : TBevel;
CancelBtn : TButton;
OKBtn : TButton;
Palette_List : TListBox;
Filename : string;
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);
Bevel1 : TBevel;
CancelBtn : TButton;
OKBtn : TButton;
Palette_List : TListBox;
Filename : string;