fork(2) download

copy

procedure TForm1.Button23Click(Sender: TObject);
var
  First, Second, Green: TRect;
  fl, ft, fb, fr, fw, fh: Integer;
  sl, st, sb, sr, sw, sh: Integer;
  gl, gt, gb, gr: Integer;
  dcy, dcx, dy, dx: Integer;
  Flag: Boolean;
begin
  Canvas.Brush.Color := Color;
  Canvas.FillRect(ClientRect);
  fl := 100;
  ft := 100;
  fw := 100;
  fh := 100;
  fr := fl + fw;
  fb := ft + fh;
  First := Rect(fl, ft, fr, fb);
  Canvas.Pen.Color := clBlack;
  Canvas.Brush.Color := clGray;
  Canvas.Rectangle(First);
  Canvas.Brush.Style := bsClear;
  sl := 60 + Random(185);
  st := 60 + Random(180);
  sw := 30 + Random(150);
  sh := 30 + Random(150);
  sr := sl + sw;
  sb := st + sh;
  Second := Rect(sl, st, sr, sb);
  Canvas.Pen.Color := clBlue;
  Canvas.Rectangle(Second);
 
  dcy := (sb + st) - (fb + ft);  //doubled center y-difference
  dcx := (sl + sr) - (fl + fr);
  if (Abs(dcx) >= fw + sw) or ((Abs(dcy) >= fh + sh)) then  //no intersection
    Exit;
 
  dx := fw + sw - Abs(dcx);  //doubled  needed x-shift
  dy := fh + sh - Abs(dcy);
 
  if dx > dy then begin
    if dcy < 0 then
      dy := - dy div 2
    else
       dy := dy div 2;  //needed y-shift accounting for direction
    dx := 0;
  end else begin
    if dcy < 0 then
       dx :=  - dx div 2
     else
       dx :=  dx div 2;
    dy := 0;
  end;
 
  Green := Second;
  OffsetRect(Green, dx, dy);
  Canvas.Pen.Color := clGreen;
  Canvas.Rectangle(Green);
 
end;
 

Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(1,11) Error: Identifier not found "TForm1"
prog.pas(1,11) Error: class identifier expected
prog.pas(3,25) Error: Identifier not found "TRect"
prog.pas(3,30) Error: Error in type definition
prog.pas(10,3) Error: Identifier not found "Canvas"
prog.pas(10,25) Error: Identifier not found "Color"
prog.pas(11,3) Error: Identifier not found "Canvas"
prog.pas(11,19) Error: Identifier not found "ClientRect"
prog.pas(18,12) Error: Identifier not found "Rect"
prog.pas(19,3) Error: Identifier not found "Canvas"
prog.pas(19,23) Error: Identifier not found "clBlack"
prog.pas(20,3) Error: Identifier not found "Canvas"
prog.pas(20,25) Error: Identifier not found "clGray"
prog.pas(21,3) Error: Identifier not found "Canvas"
prog.pas(22,3) Error: Identifier not found "Canvas"
prog.pas(22,25) Error: Identifier not found "bsClear"
prog.pas(29,13) Error: Identifier not found "Rect"
prog.pas(30,3) Error: Identifier not found "Canvas"
prog.pas(30,23) Error: Identifier not found "clBlue"
prog.pas(31,3) Error: Identifier not found "Canvas"
prog.pas(56,3) Error: Identifier not found "OffsetRect"
prog.pas(57,3) Error: Identifier not found "Canvas"
prog.pas(57,23) Error: Identifier not found "clGreen"
prog.pas(58,3) Error: Identifier not found "Canvas"
prog.pas(61) Fatal: Syntax error, "BEGIN" expected but "end of file" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Standard output is empty