unit uFenster; // ********************************************************************** // K L A S S E : Fenster // ---------------------------------------------------------------------- // Version : 0.9 // Autor : Molly Mustermann // // Aufgabe : Fenster uebernimmt die Ein-/Ausgabe und steuert die // Funktionen über ein GUI. // Das Programm demonstriert einige Grafik-Funktionen // Compiler : DELPHI 3.0 // Aenderung : V. 1.0 - 16-MAR-99 // **********************************************************************
interface // ====================================================================== uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, uGrafik;
type TFensterFrm = class(TForm) BildImg : TImage; SteuerPnl : TPanel; RechteckBtn : TButton; LoeschBtn : TButton; Ende : TButton;
procedure FormCreate(Sender: TObject); procedure RechteckBtnClick(Sender: TObject); procedure EndeClick(Sender: TObject); procedure LoeschBtnClick(Sender: TObject);
private procedure RechteckMachen;
public end;
var FensterFrm : TFensterFrm; Zeichenblatt : TZeichenblatt; Rechteck : TRechteck;
implementation {$R *.DFM} // ======================================================================
procedure TFensterFrm.FormCreate(Sender: TObject);
// ---------------------------------------------------------------------- begin Zeichenblatt := TZeichenblatt.Create; Zeichenblatt.SetLink(BildImg); // Image und Zeichenblatt verbinden Zeichenblatt.SetFuellFarbe(clwhite); Zeichenblatt.Zeigen;
Rechteck := TRechteck.Create; end;
procedure TFensterFrm.RechteckBtnClick(Sender: TObject); // ---------------------------------------------------------------------- begin
RechteckMachen; end;
procedure TFensterFrm.EndeClick(Sender: TObject); // ---------------------------------------------------------------------- begin Close; end;
procedure TFensterFrm.LoeschBtnClick(Sender: TObject); // ---------------------------------------------------------------------- begin Rechteck.Close; end;
// ======================= private Methoden ============================
procedure TFensterFrm.RechteckMachen; // ---------------------------------------------------------------------- begin Rechteck.SetPos(10,10,100,100); Rechteck.SetFuellFarbe(clBlue); Rechteck.Zeigen;
end;
END. // --------- UNIT -----------------
|