is-Logo

Einführung in Grafikprogrammierung
Uebung 2 - Quellcode

S. Spolwig


[Home | Unterrichtssequenzen]
[Startseite]

Diese Seite erscheint einmalig als Muster für die Einbindung unserer Grafikobjekte. Die Struktur bleibt bei allen anderen Programmen die gleiche.

  • Die Teile, die sich auf die Grafikobjekte beziehen, sind GRÜN herausgehoben.

  • Ereignismethoden, die nur durch Doppelklick erzeugt werden dürfen, in ROT

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

 

 


©    30. Oktober 2009    Siegfried Spolwig