[FERNANDO]

Вот я пытаюсь нарисовать на форме прям, или окружность. Вроде бы сделал правильно, но в форме ничего нету. Как мне нарисовать?

Код:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  procedure FormPaint(Sender: TObject);
  private
    { Private declarations }


  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  r1: TRect;

implementation
{ TForm1 }

procedure TForm1.FormPaint(Sender: TObject);

begin
r1:= Rect(100,100,100,100);
 Form1.Canvas.Brush.Color:=clBlack;

  Canvas.FillRect(r1);
end;

{$R *.dfm}

end.

Админ: Пользуемся тегами для оформления кода!

[PS11011010]

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

r1:= Rect(100,100,100,100);

Тут должен один пиксель нарисоваться. Может ты его просто не замечаешь?

[NumLock]

потому что:

Код:

  Canvas.Brush.Color:=clBlack;
  Canvas.FillRect(Rect(100, 100, 101, 101));

Use FillRect to fill a rectangular region using the current brush. The region is filled including the top and left sides of the rectangle, but excluding the bottom and right edges.

[UmnovPA]

Верно написал выше коллега))

координаты, что ты задал рисуют точку))

Canvas.Rectangle(x1, y1, x2, y2); - рисует прямоугольник по двум диагональным точкам. Координаты первой точки (x1, y1), координаты второй (x2, y2). Порядок указания точек не имеет значения.

Пример:
Begin
Canvas.Rectangle(100, 5, 60, 70);
End;

Особенности системы координат в программировании:
Начало координат находится в левом верхнем углу серой области формы, так как нельзя рисовать на заголовке, ось Ох направлена вправо, ось Оу направлена вниз. Масштаб измеряется в точках экрана.

[FERNANDO]

я тоже так попробовал, но прямоугольника нет.

[NumLock]

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color:=clBlack;
  Canvas.Brush.Style:=bsClear;
  Canvas.Rectangle(Rect(10, 10, ClientWidth-10, ClientHeight-10));
end;

[FERNANDO]

А у тебя показывает прямоугольник? Я попробовал твой код но нет прямоугольника(((

[NumLock]

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

А у тебя показывает прямоугольник? Я попробовал твой код но нет прямоугольника(((

да, естественно показывает. у меня ведь событие подцеплено к форме

[R-18Rus]

А у тебя показывает прямоугольник? Я попробовал твой код но нет прямоугольника(((

Может, попробовать добавить на форму изображение. У меня в image.canvas всё рисуется.
Например:

Код:

with Image4.Canvas do
    begin
    Pen.Color:=clGray;
    Brush.Color:=clBlack;
    rectangle(10,10,100,100);
    end;

- чёрный квадрат с серым краем.

[NumLock]

Сообщение от R-18Rus

Может

Не стоит

[Yurk@]

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

r1:= Rect(100,100,100,100);
Form1.Canvas.Brush.Color:=clBlack;
Canvas.FillRect(r1);

я даж нашел эту точку ... она рисуется))

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

А у тебя показывает прямоугольник? Я попробовал твой код но нет прямоугольника(((

есть прямоугольник ... нормальный такой))

[NumLock]

Сообщение от Yurk@

я даж нашел эту точку ... она рисуется))

это у тебя битый пиксель на мониторе)))

[FERNANDO]

понятно спасибо