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

Вниз

Прорисовка таблицы (StringGrid)   Найти похожие ветки 

 
ksa2002 ©   (2004-07-09 06:25) [0]

StringGrid1DrawCell (Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

Хочу запустить прорисовку вручную , но не все параметры могу задать , подскажите как задать параметр Rect ?


 
gek ©   (2004-07-09 07:48) [1]

Интересно, а разве он не задан?


 
KADAN ©   (2004-07-09 07:49) [2]

Rect за тебя уже задали :)
 if (acol=2) and (arow=1) then begin
   StringGrid1.Canvas.Brush.Color:=clred;
   StringGrid1.Canvas.Rectangle(Rect);
   StringGrid1.Canvas.TextOut(rect.Left+2,rect.Top+2,":)");
 end;


 
ksa2002 ©   (2004-07-09 08:01) [3]

Не непоняли я хочу так...
if (length(trim(DBGrid2.Columns[0].Field.AsString)))>0  then
     begin
     Stringgrid1.Cells[5,ib7c]:=(DBGrid2.Columns[0].Field.AsString);
     red_sg_1:=ib7c;
     end;
StringGrid1DrawCell (StringGrid1,1,red_sg_1,RECT,0);
  end;


Как задать Rect


 
KADAN ©   (2004-07-09 08:28) [4]

Rect можно задать, пробежавшись циклом по RowHeights и ColWidths, при этом не забыв учесть GridLineWidth.
Но неужели это обязательно, прорисовка сама вызовется когда ей надо, с заданным Rect"ом. Или, если уж это обязательно, просто вызвать Refresh или Repaint.


 
ЮЮ ©   (2004-07-09 08:35) [5]

ksa2002 ©   (09.07.04 08:01) [3]
>Не непоняли я хочу так...
>StringGrid1DrawCell (StringGrid1,1,red_sg_1,RECT,0);

А вот этого уже не надо. StringGrid сам перерисует все что нужно после изменения его Cells.
Максимум, что стоит сделать StringGrid1.Repaint или подобное



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

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

Наверх




Память: 0.48 MB
Время: 0.04 c
3-1088490793
Dark Elf
2004-06-29 10:33
2004.07.25
Программное изменение типа ячейки в БД


1-1089616108
mochoni
2004-07-12 11:08
2004.07.25
считать строки из текстового файла


4-1087278653
Tolea
2004-06-15 09:50
2004.07.25
Перенаправить стандартны ввод с клавиатуры


1-1089714118
Бывалый
2004-07-13 14:21
2004.07.25
Lotus Notes & Delphi


1-1089378089
MadGhost
2004-07-09 17:01
2004.07.25
Как прикрутить справку *.hlp к приложению