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

[sobol123]

Всем привет!Помогите пожалуйста нарисовать флаг Дании и Швейцарии в Delphi

[XE5]

Помочь, или сделать за тебя? Если помочь, то предоставляй наработки поможем. Если сделать за тебя, то какова цена помощи?

[Stilet]

Твои предидущие темы я удалил из-за названия темы. Тебя ничему что ли не научили в школе?
Это во-первых.
Во-вторых - чем помочь?

P.S. Впрочем чтоб моск поразмять и отвлечься от одной важной программы, я пожалуй покажу тебе код рисующий эти флаги:

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.

Это не совсем Делфи, но сам код тот же самый.

[sobol123]

я так понял,помощи тут не ждать

[Аватар]

Ну помогли же, показали как. Или помощь это нечто другое?

[XE5]

sobol123 Ну если ты читать (думать) не умеешь, то однозначно не ждать.
Аватар В понимании новичков, помощь, это папочка с проектом. Разве непонятно?

[eval]

я так понял,помощи тут не ждать

сразу как только мне с деньгами поможете, или тоже не ждать помощи?

[helpkz]

Сообщение от sobol123

я так понял,помощи тут не ждать

наглость, почти без границ

[Serge_Bliznykov]

Это не совсем Делфи, но сам код тот же самый.

я проверил. в Delphi всё собирается и работает.

[Stilet]

Serge_Bliznykov

Я просто предупредил )
Вдруг автор поверит что копипасте его спасет от армии )