home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / COLORDLL / CLRFORM.PAS < prev    next >
Pascal/Delphi Source File  |  1998-03-31  |  1KB  |  66 lines
  1. unit Clrform;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ColorGrd, ExtCtrls;
  8.  
  9. type
  10.   TColorForm = class(TForm)
  11.     ColorGrid: TColorGrid;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     CancelBitBtn: TBitBtn;
  15.     OkBitBtn: TBitBtn;
  16.     Bevel1: TBevel;
  17.     procedure CancelBitBtnClick(Sender: TObject);
  18.     procedure OkBitBtnClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   ColorForm: TColorForm;
  27.  
  28. function FBGetColors(var FColor, BColor: TColor): WordBool;
  29.   export;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. {- Exit dialog via Cancel button }
  36. procedure TColorForm.CancelBitBtnClick(Sender: TObject);
  37. begin
  38.   ModalResult := mrCancel;
  39. end;
  40.  
  41. {- Exit dialog via Ok button }
  42. procedure TColorForm.OkBitBtnClick(Sender: TObject);
  43. begin
  44.   ModalResult := mrOk;
  45. end;
  46.  
  47. {- Get foreground and background colors }
  48. function FBGetColors(var FColor, BColor: TColor): WordBool;
  49. begin
  50.   Result := False;
  51.   ColorForm := TColorForm.Create(Application);
  52.   try
  53.     if ColorForm.ShowModal = mrOk then
  54.     with ColorForm do
  55.     begin
  56.       FColor := ColorGrid.ForegroundColor;
  57.       BColor := ColorGrid.BackgroundColor;
  58.       Result := True;
  59.     end;
  60.   finally
  61.     ColorForm.Free;
  62.   end;
  63. end;
  64.  
  65. end.
  66.