Zeilen Erklären

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