paldlg.pas

Delphi Dib usage components. These ise a dib-paintbox... u can use them. :>)

unit Paldlg;

interface

// 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.

uses Windows, SysUtils, Classes, Graphics, Forms, Dialogs,
     Controls, Buttons, StdCtrls, FileCtrl, ExtCtrls, ComCtrls, DibSurf;

type
  TPalette_dlg = class(TForm)
    OKBtn        : TButton;
    CancelBtn    : TButton;
    Bevel1       : TBevel;
    Palette_List: TListBox;
    procedure FormCreate(Sender:TObject);
    procedure FindAllPalettes(destlist:TStringList);
    procedure OKBtnClick(Sender: TObject);
    procedure Palette_ListClick(Sender: TObject);
  private
  public
        Filename : string;
  end;


// the global variables here are useful.
var
  Palette_dlg   : TPalette_dlg;
  Palette_Dir   : string;

implementation

{$R *.DFM}

procedure TPalette_dlg.FormCreate(Sender: TObject);
begin
  FindAllPalettes(TStringList(Palette_List.Items));
end;

procedure TPalette_dlg.FindAllPalettes(destlist:TStringList);
var
    fullname  : string;
    F         : TSearchRec;
    i         : integer;
begin // fills a TStringlist with palettes - useful for listboxes
  fullname:=palette_dir+'*.pal';
  i := FindFirst(fullname,faAnyFile,F);
  if i<>0 then exit;
  while i=0 do begin
    if (F.Attr and faDirectory)<>0 then begin
    end
    else begin
      destlist.Add(UpperCase(F.name));
    end;
    i := FindNext(F);
  end;
  FindClose(F);
end;


procedure TPalette_dlg.OKBtnClick(Sender: TObject);
begin
     FileName := Palette_Dir + palette_list.Items[palette_list.ItemIndex];
end;

procedure TPalette_dlg.Palette_ListClick(Sender: TObject);
begin
     OkBtn.Enabled:= True;
end;

initialization
  { insert a different diectory here if you want }
  Palette_Dir   := ExtractFilePath(Application.ExeName)+'\palette\';
end.