Форум: "KOL";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];

Вниз

Pcanvas + TRect   Найти похожие ветки 

← →
keymaster   (2002-10-25 00:10) [0]

есть такой код:

procedure Proc;
var
Rec : PRect;
begin
Rec.Left := 0;
Rec.Top := 0;
Rec.Right := 100;
Rec.Bottom := 22;
Canv.FillRect(Rec);
end;

Проблема в том, что он не работает, при компиляции указывает на строчку
Canv.FillRect(Rec); и говорит, про несоответсвие типов TRect и PRectЛюди, что делать?

---

← →
SPeller   (2002-10-25 01:00) [1]

А зачем тебе PRect? Чем TRect не угодил? Ну раз уж ты его используешь, то тогда код будет такой:

procedure Proc;
var
Rec : PRect;
begin
New( Rec );
Rec.Left := 0;
Rec.Top := 0;
Rec.Right := 100;
Rec.Bottom := 22;
Canv.FillRect(Rec^);
Dispose( Rec );
end;

Или ещё проще:

procedure Proc;
var
Rec : TRect;
begin
Rec.Left := 0;
Rec.Top := 0;
Rec.Right := 100;
Rec.Bottom := 22;
Canv.FillRect(Rec);
end;

---

← →
keymaster   (2002-10-25 01:52) [2]

использование TRect приведёт к подключению модуля Graphics,
увеличению размера ехе и увеличению объёма занимаемой памяти,
чего я хочу избежать

---

← →
blackalex   (2002-10-25 13:04) [3]

использование TRect приведёт к подключению модуля Graphics
Как так? Ведь TRect находиться вроде в Windows.pas

---

← →
SPeller   (2002-10-25 14:06) [4]

> keymaster © (25.10.02 01:52)
> использование TRect приведёт к подключению модуля Graphics

:-)))

---

← →
keymaster   (2002-10-25 14:45) [5]

Сорри.... проглючило меня :)

---

Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c