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

Вниз

Можно ли разукрашивать StringGrid в событии отличном от DrawCell?   Найти похожие ветки 

 
Германн ©   (2007-12-07 21:54) [40]


> А что такое "бр." ? )
>

Догадайся с трех раз :)
Или сам попробуй вызвать Invalidate в OnDrawCell.


 
{RASkov} ©   (2007-12-07 22:01) [41]

> [40] Германн ©   (07.12.07 21:54)
> Или сам попробуй вызвать Invalidate в OnDrawCell.

Легко:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 StringGrid1.Canvas.Brush.Color:=clRed;
 StringGrid1.Canvas.TextRect(Rect,Rect.Left, Rect.Top, "бр.бр.бр.бр.");
 StringGrid1.Invalidate;
end;

:)
У меня это "бр." выглядит как мелькающие полоски по всему гриду)
но грид читаем и как указано - красный.....
Ладно.... я в шутку спросил впрочем как и этот пост....
:о)


 
Германн ©   (2007-12-07 22:05) [42]


> У меня это "бр." выглядит как мелькающие полоски по всему
> гриду)
> но грид читаем и как указано - красный.....
>

А ты добавь кроме грида еще что-нибудь. Кнопочки например. Тогда и увидишь последствия бесконечной рекурсии :)


 
{RASkov} ©   (2007-12-07 22:18) [43]

> [42] Германн ©   (07.12.07 22:05)

Ага.... понял что есть бр :)
Но у меня и в этом случае все тип-топ :)
Во:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 StringGrid1.Canvas.Brush.Color:=clRed;
 StringGrid1.Canvas.TextRect(Rect,Rect.Left, Rect.Top, "бр.бр.бр.бр.");
 StringGrid1.Invalidate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage("бр");
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 Label1.Caption:=Edit1.Text;
end;

end.

Кнопочки тыкаются, сообщения показываются, текст метки меняется..... а в это время по гриду полоски бегаютЪ
Анамалия :)


 
Германн ©   (2007-12-08 02:18) [44]


> {RASkov} ©   (07.12.07 22:18) [43]
>
> > [42] Германн ©   (07.12.07 22:05)
>
> Ага.... понял что есть бр :)
> Но у меня и в этом случае все тип-топ :)


 
Германн ©   (2007-12-08 02:21) [45]


> Германн ©   (08.12.07 02:18) [44]
>
>
> > {RASkov} ©   (07.12.07 22:18) [43]
> >
> > > [42] Германн ©   (07.12.07 22:05)
> >
> > Ага.... понял что есть бр :)
> > Но у меня и в этом случае все тип-топ :)
>

Тогда попробуй сначала кинуть на форму кнопочки и другие компоненты, а потом StringGrid.


 
{RASkov} ©   (2007-12-08 11:49) [46]

> [45] Германн ©   (08.12.07 02:21)

:(
:)
Пострадал из набора (Грид, метка, кнопка, эдит) только эдит, остальные после первой полной перерисовки(свернуть-развернуть окно) нормолизовались
Ну все, Сергей, нужно завязывать с этими экспериментами......)

Одно скажу.... для автора вопроса и не только - Ни в коем случае не вызывайте Invalidate в OnDrawCell грида
это ужасно (
:о)


 
Германн ©   (2007-12-08 13:51) [47]


> Ну все, Сергей, нужно завязывать с этими экспериментами.
> .....)

Да я уже давно завязал :)


 
{RASkov} ©   (2007-12-08 14:04) [48]

> [47] Германн ©   (08.12.07 13:51)
> Да я уже давно завязал :)

А меня подталкивал на них.... не чесно :)


 
Германн ©   (2007-12-08 14:57) [49]


> А меня подталкивал на них.... не чесно :)

Ты сам напросился {RASkov} ©   (07.12.07 14:53) [34]
:)


 
{RASkov} ©   (2007-12-08 15:24) [50]

> [49] Германн ©   (08.12.07 14:57)
>
> > А меня подталкивал на них.... не чесно :)
>
> Ты сам напросился {RASkov} ©   (07.12.07 14:53) [34]
> :)

Я никуда не напрашивался :( Я просто поинтересовался у автора - не сделал-ли он глупость
:)



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

Форум: "Начинающим";
Текущий архив: 2008.01.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.53 MB
Время: 0.005 c
5-1164729857
Doma
2006-11-28 19:04
2008.01.06
Как узнать всех наследников TForm и TDataModule в проекте?


15-1196592345
homm
2007-12-02 13:45
2008.01.06
Вот так вот получается


2-1197042910
Zheksik
2007-12-07 18:55
2008.01.06
Почему 0.20 <= 0.20 ложь???


2-1197332815
San1
2007-12-11 03:26
2008.01.06
создание класса на основе TBitmap


2-1197137950
unknowing
2007-12-08 21:19
2008.01.06
Указатели





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский