Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.038 c
2-1193064900
AlexeyNekrasov
2007-10-22 18:55
2007.11.18
TCheckBoxList


2-1193124346
QAlexey
2007-10-23 11:25
2007.11.18
TPopupMenu


15-1192174784
stupka_s
2007-10-12 11:39
2007.11.18
UTF8, String, WideString


2-1193115704
031178
2007-10-23 09:01
2007.11.18
Как программно выделить нужный пункт меню в TTreeView ?


15-1192545606
Slider007
2007-10-16 18:40
2007.11.18
С днем рождения ! 16 октября 2007 вторник





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский