ФЛАГ РОССИИ ДЕЛФИ

unit FormFlagRussia;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color := clWhite;
Canvas.FillRect(ClientRect);
Canvas.Brush.Color := clRed;
Canvas.Pen.Width := 20;
Canvas.Rectangle(0, 0, ClientWidth, ClientHeight div 3);
Canvas.Brush.Color := clWhite;
Canvas.Rectangle(0, ClientHeight div 3, ClientWidth, ClientHeight div 3 * 2);
Canvas.Brush.Color := clBlue;
Canvas.Rectangle(0, ClientHeight div 3 * 2, ClientWidth, ClientHeight);
end;
end.

Для создания флага России на Delphi можно использовать графическую библиотеку Canvas, которая позволяет рисовать на форме. Необходимо нарисовать три прямоугольника нужных цветов (белый, синий и красный) при помощи метода Rectangle, и задать им координаты и размер. Пример кода приведен выше.

Задержаны за фото с американским флагом на фоне Кремля #shorts

День России! Как нарисовать российский флаг?

Бело-сине-белый флаг - новый символ российского протеста

Давайте сегодня попробуем отгадать все флаги стран, которые мы подготовили для тебя!

Russian flag cocktail-shot / Шот Русский флаг #shorts

🇺🇦 Над Крымом подняли УКРАИНСКИЙ ФЛАГ #shorts