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

Вниз

Можно ли разукрашивать 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;
Скачать: CL | DM;

Наверх




Память: 0.56 MB
Время: 0.015 c
2-1197206756
fog
2007-12-09 16:25
2008.01.06
Shell Controls


2-1197204556
istok
2007-12-09 15:49
2008.01.06
Запись в файл на winapi


15-1196791428
@!!ex
2007-12-04 21:03
2008.01.06
Драйвер на Windows 2003 Server


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


15-1196759620
boriskb
2007-12-04 12:13
2008.01.06
Прошу высказать мнения о книге