Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 21.09.2005 10:47 475

Drucker-Wartung mit Prozedur Lösung

Der Quelltext (wieder blau hervorgehoben), der sich in der vorher gehenden Übung wiederholt hat, ist jetzt in der Prozedur testDruckkopf. Der Quelltext für die Prozedur ist rot hervorgehoben.

unit mDruckerwartung;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TfDruckerwartung = class(TForm)
    btTestSchwarz: TButton;
    Image1: TImage;
    btTestCyan: TButton;
    btTestGelb: TButton;
    btTestMagenta: TButton;
    procedure btTestSchwarzClick(Sender: TObject);
    procedure btTestCyanClick(Sender: TObject);
    procedure btTestGelbClick(Sender: TObject);
    procedure btTestMagentaClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure testDruckkopf;
  public
    { Public-Deklarationen }
  end;

var
  fDruckerwartung: TfDruckerwartung;

implementation

{$R *.dfm}

procedure TfDruckerwartung.FormCreate(Sender: TObject);
begin
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
end;

procedure TfDruckerwartung.btTestSchwarzClick(Sender: TObject);
begin
  Image1.Canvas.Pen.Color := clBlack;
  Image1.Canvas.Brush.Color := clBlack;
  testDruckkopf;
end;

procedure TfDruckerwartung.btTestCyanClick(Sender: TObject);
begin
  Image1.Canvas.Pen.Color := clBlue;
  Image1.Canvas.Brush.Color := clBlue;
  testDruckkopf;
end;

procedure TfDruckerwartung.btTestGelbClick(Sender: TObject);
begin
  Image1.Canvas.Pen.Color := clYellow;
  Image1.Canvas.Brush.Color := clYellow;
  testDruckkopf;
end;

procedure TfDruckerwartung.btTestMagentaClick(Sender: TObject);
begin
  Image1.Canvas.Pen.Color := clRed;
  Image1.Canvas.Brush.Color := clRed;
  testDruckkopf;
end;

procedure TfDruckerwartung.testDruckkopf;
var i,j, x,y: Integer;
begin
  y := 60;
  for i:=1 to 5 do
  begin
    x := 20;
    for j:=1 to 15 do
    begin
      Image1.Canvas.Rectangle(x,y,x+5,y+3);
      Inc(x,10);
      Dec(y,2)
    end;
    Inc(y,60);
  end;
end;
end.