Zeilen Erklären

[Satty67]

In FormCreate ist das Bild so groß, wie Du es zuvor festgelegt hast, eine Abfrage ist unnötig (außer Du hast uns eine Laderoutine im Vorfeld enthalten).

Delphi-Quellcode:

image1.Canvas.Pen.Color:=clBlack;       // Stift-Farbe, bei Retangle der Rahmen
image1.Canvas.Brush.Color:=clWhite;     // Pinselfarbe, bei Retangle die Füllung
image1.Canvas.Rectangle(0,0,image1.Width,image1.Height); // Retangle = rechteck
image1.Canvas.Brush.Color:=clBlack;     // Vorbeitung auf nächstes Objekt?

Bei so einfachen Dingen ist aber (r)einlesen sicher die effektivere Methode zu lernen. Erst wenn es komplizierter wird, ist vorkauen manchmal leichter verdaulich

[Zeb22]

Also Komplett sieht meine procedure FormCreate so aus.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);  // Procedure für die Form
var
 i: Integer;
 j: Integer;
 w: Integer;
begin
 if image1.Width = image1.Height then
 begin
 image1.Canvas.Pen.Color:=clBlack;
 image1.Canvas.Brush.Color:=clWhite;
 image1.Canvas.Rectangle(0,0,image1.Width,image1.Height);
 image1.Canvas.Brush.Color:=clBlack;
 w:=image1.Width div 8;
 for i := 0 to 1 do // Für die Senkrechte Linie
  begin
  for j := 0 to 3 do // Für die waagerechte Linie    / 4 blöcke / 1 block = 2zeilen
   begin
                                 //   X1        Y1         X2         Y2
    Rectangle(image1.Canvas.Handle, 0+i*w,   w+j*2*w-i*w, 1*w+i*w, 2*w+j*2*w-i*w);
    Rectangle(image1.Canvas.Handle, 2*w+i*w, w+j*2*w-i*w, 3*w+i*w, 2*w+j*2*w-i*w);
    Rectangle(image1.Canvas.Handle, 4*w+i*w, w+j*2*w-i*w, 5*w+i*w, 2*w+j*2*w-i*w);
    Rectangle(image1.Canvas.Handle, 6*w+i*w, w+j*2*w-i*w, 7*w+i*w, 2*w+j*2*w-i*w);
   end;
 end;
  Form1.Top:=((Screen.Monitors[0].Height div 2)-(Form1.Height div 2));
  Form1.Left:=((Screen.Monitors[0].Width div 2)-(Form1.Width div 2));




  Label6.Caption := DateToStr(Date); // Datum


 end;
end;

[mkinzler]

Man sollte allerdings nur in der Paint()-Methode auf dem Canvas zeichnen.
http://www.delphipraxis.net/internal...t.php?t=153682

[Zeb22]

Aber es Stimmt diese if Abfage(Width=Hight) brauch ich nicht