CLIPB

Top  Previous  Next

unit Clipb;

 

interface

 

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, Menus, ClipView;

 

type

TClipbForm = class(TForm)

  ClipboardViewer1: TClipboardViewer;

  MainMenu1: TMainMenu;

  File1: TMenuItem;

  Kilps1: TMenuItem;

  Mindigfll1: TMenuItem;

  Mindigfll2: TMenuItem;

  procedure Mindigfll2Click(Sender: TObject);

  procedure Kilps1Click(Sender: TObject);

  procedure ClipboardViewer1Change(Sender: TObject);

private

public

end;

 

TStClipboardView = class(TComponent)

private

  FFileName: string;

protected

public

  constructor Create(AOwner:TComponent);override;

  destructor Destroy;override;

  procedure Execute;

  procedure SaveToFile(fname:string);

published

  property FileName: string read FFileName write FFileName;

end;

 

var

ClipbForm: TClipbForm;

focim: string;

 

implementation

 

{$R *.DFM}

 

procedure TStClipboardView.Execute;

begin

  ClipbForm:=TClipbForm.Create(Self);

  ClipbForm.Show;

end;

 

constructor TStClipboardView.Create(AOwner:TComponent);

begin

inherited Create(AOwner);

end;

 

destructor TStClipboardView.Destroy;

begin

If ClipbForm<>nil then ClipbForm.Free;

inherited Destroy;

end;

 

procedure TStClipboardView.SaveToFile(fname:string);

begin

end;

 

procedure TClipbForm.Mindigfll2Click(Sender: TObject);

begin

Mindigfll2.Checked:=not Mindigfll2.Checked;

If Mindigfll2.Checked then FormStyle:=fsStayOnTop

else FormStyle:=fsNormal;

end;

 

procedure TClipbForm.Kilps1Click(Sender: TObject);

begin

Close;

end;

 

procedure TClipbForm.ClipboardViewer1Change(Sender: TObject);

begin

Caption:= focim + ' ['+

ClipboardViewer1.ClipboardFormatNames[Ord(ClipboardViewer1.ViewFormat)]+']';

end;

 

initialization

focim := 'Clipboard  = Vágólap megjelenités';

end.