www.pudn.com > yrsCapture.zip > Iinfo16.pas

{******************************************************************************} 
{*                                                                            *} 
{*                 Adirondack Software & Graphics IInfo16 Unit                *} 
{*            (C) Copyright Adirondack Software & Graphics 1997               *} 
{*                                                                            *} 
{******************************************************************************} 
 
unit Iinfo16; 
 
interface 
 
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons, 
  StdCtrls, ExtCtrls; 
 
type 
  TPaletteInfoDlg16 = class( TForm ) 
    OKBtn: TBitBtn; 
    Memo1: TMemo; 
    procedure OKBtnClick( Sender: TObject ); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  PaletteInfoDlg16: TPaletteInfoDlg16; 
 
implementation 
 
{$R *.DFM} 
 
{==============================================================================} 
procedure TPaletteInfoDlg16.OKBtnClick( Sender: TObject ); 
{==============================================================================} 
begin 
    ModalResult := 1; 
end; 
 
end.