Рисуем Флаги На Форме.

[Sascha]

Кидаем на форму PaintBox находим в Events OnPaint нажимаем и прописываем код:

procedure TForm2.PaintBox1Paint(Sender: TObject);
var
  x: integer;
  r: TRect;
begin
  with PaintBox1.Canvas do
  begin

    // Итальянский флаг
    Brush.Color := clGreen;
    Rectangle(20, 20, 46, 70);
    Brush.Color := clWhite;
    Rectangle(45, 20, 71, 70);
    Brush.Color := clRed;
    Rectangle(70, 20, 96, 70);
    Brush.Style := bsClear;
    Font.Name := 'Tahoma';
    Font.Size := 10;
    x := 20 + (75 - TextWidth('Италия')) div 2;
    TextOut(x, 70 + Font.Size, 'Италия');

    // Французкий флаг
    Brush.Color := clBlue;
    Pen.Color := clBlue;
    Rectangle(140, 20, 166, 70);
    Brush.Color := clWhite;
    Pen.Color := clWhite;
    Rectangle(165, 20, 191, 70);
    Pen.Color := clRed;
    Brush.Color := clRed;
    Rectangle(190, 20, 216, 70);

    // контур флага
    Pen.Color := clBlack;
    Brush.Style := bsClear; // "прозрачная" кисть
    Rectangle(140, 20, 216, 70);
    Brush.Style := bsClear;
    Pen.Color := clBlack;
    x := 140 + (75 - TextWidth('Франция')) div 2;
    TextOut(x, 70 + Font.Size, 'Франция');

    // Германия
    r := Rect(260, 20, 336, 37);
    Brush.Color := clBlack;
    FillRect(r);
    r.Top := 37;
    r.Bottom := 54;
    Brush.Color := clRed;
    FillRect(r);
    r.Top := 54;
    r.Bottom := 71;
    Brush.Color := clYellow;
    FillRect(r);
    r.Top := 20;
    Brush.Color := clBlack;
    FrameRect(r);
    Font.Name := 'Tahoma';
    Font.Size := 10;
    Brush.Style := bsClear;
    Pen.Color := clBlack;
    x := 260 + (75 - TextWidth('Германия')) div 2;
    TextOut(x, 70 + Font.Size, 'Германия');

  end;
end;

Получаем в результате:


Не забываем ставить лаки!drink