| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Pcanvas + TRect [Delphi, Windows]

keymaster ©   (2002-10-25 00:10:00) 

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

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Люди, что делать?

---

keymaster   (2002-10-25 14:45:00) [1]

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

---

SPeller   (2002-10-25 14:06:00) [2]

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

:-)))

---

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

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

---

keymaster   (2002-10-25 01:52:00) [4]

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

---

SPeller   (2002-10-25 01:00:00) [5]

А зачем тебе 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;

---

Наверх