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

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

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