Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

26th
Авг

Нарисовать флаг Дании и Швейцарии

Posted by Chas under Delphi

Stilet

unit Unit1;
{$mode objfpc}{$H+}
interface
uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,

  ExtCtrls;
type
  { TForm1 }
  TForm1 = class(TForm)

    Timer1: TTimer;

    procedure FormPaint(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;
var fl:Boolean;

  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormPaint(Sender: TObject);

begin

  with Canvas do begin

    Brush.Color:=clRed;

    Rectangle(0,0,Width,Height);

    Pen.Color:=clWhite;

    Pen.Width:=10;

    if fl then begin

     MoveTo(Width div 3,0); LineTo(Width div 3,Height);

     MoveTo(0,Height div 3); LineTo(Width,Height div 3);

    end else begin

      MoveTo((Width div 2)-(Width div 4),Height div 2); LineTo((Width div 2)+(Width div 4),Height div 2);

      MoveTo(Width div 2,(Height div 2)-(Height div 4)); LineTo(Width div 2,(Height div 2)+(Height div 4));

    end;

  end;

end;
procedure TForm1.Timer1Timer(Sender: TObject);

begin

 fl:=not fl;

 Repaint;

end;
end.