Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.03;
Скачать: CL | DM;

Вниз

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 вся ветка

Текущий архив: 2003.07.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-7409
OlDemon
2003-06-20 08:19
2003.07.03
Появление дочерних окон


3-7287
Shaman
2003-06-06 18:47
2003.07.03
Аналог генератора в


1-7543
Mishenka
2003-06-22 19:59
2003.07.03
Как выделить элемент в ListView???


14-7621
Giemgo
2003-06-17 21:23
2003.07.03
Как бросить курить ?


1-7513
pupil
2003-06-21 16:32
2003.07.03
Параллельная прокрутка