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

Вниз

Господа подскажите плз , не пойму в чем ошибка   Найти похожие ветки 

 
smartleds   (2007-10-24 01:19) [0]

хочу изменить размер заливки в ячейке компонента StringGrid
для чего в обработчике события ONDrawCell
Написал следующие

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);
var RC:TRect;
 begin
 RC:=RECT(Rect.Left,Rect.Top,Rect.right,Rect.Bottom );
StringGrid1.Canvas.Brush.Color:=RGB(k div 2,k div 2,k div 2);
StringGrid1.Canvas.FillRect(RC);
end;
В строке RC:=..... вылазит ошибка [Error] tab.pas(34): Missing operator or semicolon
Что она это значит?


 
Германн ©   (2007-10-24 01:37) [1]

Да забавно.

> хочу изменить размер заливки в ячейке компонента StringGrid

А где в коде эти самые "изменения"?
Не вижу!
Ну а то что
> В строке RC:=..... вылазит ошибка [Error] tab.pas(34): Missing
> operator or semicolon
так и что ты ожидал увидеть?


 
Германн ©   (2007-10-24 02:09) [2]


> Германн ©   (24.10.07 01:37) [1]
>
> Да забавно.
>

Да для Д6 это актуально. Компилятор Д6 не умеет различать вызов "стандартной функции" и обращения к параметру процедуры. Неужели это действительно для 2006,2007?


 
smartleds   (2007-10-24 14:34) [3]

Изменения я не внес чтобы код был более чиитаемым, написано для D7.
А в чем ошибка намекните если не трудно...


 
Ins ©   (2007-10-24 14:44) [4]


> А в чем ошибка намекните если не трудно...

Вам же намекнули :) Rect - это не только название функции, но и имя параметра, передаваемого в обработчик события.

И вообще зачем заводить лишнюю переменную и копировать в нее параметр Rect, почему бы сам параметр не использовать?


 
boa_kaa ©   (2007-10-24 14:46) [5]

В том, что Rect здесь не ф-ия, а параметр
RC := Classes.Rect();


 
smartleds   (2007-10-24 15:10) [6]

Спасибо дошло!



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

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

Наверх




Память: 0.47 MB
Время: 0.032 c
4-1178126275
Альберт
2007-05-02 21:17
2007.11.18
перевод 8 битного битмапа в 24 битный


2-1193340746
NikitaNovikov
2007-10-25 23:32
2007.11.18
RoundRect


2-1193139622
Quart
2007-10-23 15:40
2007.11.18
вставка


15-1191926118
нормальный человек
2007-10-09 14:35
2007.11.18
как найти работу студенту 2 курс


4-1178892438
P
2007-05-11 18:07
2007.11.18
IShellFolder незакрытые хендлеры