VLC > FMX

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.width:=Image1.height;//сделаем Image квадратным
end;
procedure TForm1.Button1Click(Sender: TObject);
var x,y,w,h,i,j,x1,y1,x2,c:integer;
const cv:array[0..5] of integer=
(clRed,clBlue,clLime ,clYellow,clAqua,clFuchsia);
begin
randomize;
w:=(Image1.Width-50)div 9;//размер квадрата
h:=w div 2;//высота сплющенного квадрата,можно изменить
//назначим координаты начала отсчета
//так чтобы кубик был в центре
x:=(Image1.Width-3*w-3*h)div 2;
y:=(Image1.Height-3*w-3*h)div 2+3*h;
with Image1.Canvas do
 begin
  //рисуем верх
  for i:=0 to 2 do
   begin
    y1:=y-i*h;
    x1:=x+i*h;
    for j:=0 to 2 do
     begin
      x2:=x1+j*w;
      c:=cv[random(6)];
      pen.color:=c;
      brush.Color:=c;
      moveto(x2,y1);lineto(x2+h,y1-h);
      moveto(x2+h,y1-h);lineto(x2+h+w,y1-h);
      moveto(x2+h+w,y1-h);lineto(x2+w,y1);
      moveto(x2+w,y1);lineto(x2,y1);
      floodfill(x2+5,y1-2,c,fsBorder);
      pen.Width:=2;
      pen.Color:=clBlack;
      moveto(x2,y1);lineto(x2+h,y1-h);
      moveto(x2+h,y1-h);lineto(x2+h+w,y1-h);
      moveto(x2+h+w,y1-h);lineto(x2+w,y1);
      moveto(x2,y1);lineto(x2+w,y1);
     end;
    end;
//рисуем перед
for i:=0 to 2 do
 begin
  y1:=y+i*w;
  x1:=x;
  for j:=0 to 2 do
   begin
    c:=cv[random(6)];
    pen.color:=c;
    brush.Color:=c;
    rectangle(x1+j*w,y1,x1+(j+1)*w,y1+w);
    //floodfill(x1+j*w+5,y1+5,c);
    pen.color:=clBlack;
    pen.Width:=2;
    rectangle(x1+j*w,y1,x1+(j+1)*w,y1+w);
   end;
 end;
//рисуем правую сторону
x:=x+3*w;
for i:=0 to 2 do
 begin
  y1:=y+i*(w);
  x1:=x;
  for j:=0 to 2 do
   begin
    x2:=x1+j*h;
    c:=cv[random(6)];
    pen.color:=c;
    brush.Color:=c;
    moveto(x2,y1);lineto(x2+h,y1-h);
    moveto(x2+h,y1-h);lineto(x2+h,y1-h+w);
    moveto(x2+h,y1-h+w);lineto(x2,y1+w);
    moveto(x2,y1+w);lineto(x2,y1);
    floodfill(x2+5,y1-2,c,fsBorder);
    pen.color:=clBlack;
    pen.Width:=2;
    moveto(x2,y1);lineto(x2+h,y1-h);
    moveto(x2+h,y1-h);lineto(x2+h,y1-h+w);
    moveto(x2+h,y1-h+w);lineto(x2,y1+w);
    moveto(x2,y1+w);lineto(x2,y1);
    y1:=y1-h;
   end;
  end;
end;
end;
end.

  img :TImage;
  b :TBitmap;
...
  img.Bitmap := b;