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

Вниз

Как закрасить опр. ячейку в StringGride или DrawGride опр. цветом   Найти похожие ветки 

 
maxim2 ©   (2002-10-28 08:19) [0]

Привет всем!
Подскажите кто знает, а то никак.


 
Separator ©   (2002-10-28 08:20) [1]

FillRect


 
MBo ©   (2002-10-28 08:22) [2]

OnDrawCell+Separator © (28.10.02 08:20)


 
Separator ©   (2002-10-28 08:30) [3]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Text: string;
begin
Text:= (Sender as TStringGrid).Cells[ACol, ARow];
with (Sender as TStringGrid).Canvas do
begin
Brush.Color:= clBlue;
FillRect(Rect);
TextOut(Rect.Left + 1, Rect.Top + ((Rect.Bottom - Rect.Top - TextHeight(Text)) div 2), Text);
end
end;


 
maxim2 ©   (2002-10-28 09:11) [4]

Не так закрашивается весь StringGrid а мне надо, например кликнул по ячейке и для нее выбрал цвет.


 
Separator ©   (2002-10-28 09:37) [5]

procedure TForm1.StringGrid1Click(Sender: TObject);
var
Text: string;
Rect: TRect;
begin
if ColorDialog1.Execute then
with (Sender as TStringGrid) do
begin
Text:= Cells[Col, Row];
Rect:= CellRect(Col, Row);
with (Sender as TStringGrid).Canvas do
begin
Brush.Color:= ColorDialog1.Color;
FillRect(Rect);
TextOut(Rect.Left + 1, Rect.Top + ((Rect.Bottom - Rect.Top - TextHeight(Text)) div 2), Text);
end;
end
end;

и DefaultDrawing:= false, но придётся самому обрабатывать OnDrawCell


 
maxim2 ©   (2002-10-28 09:43) [6]

Сенкс, все получилось.



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
1-21543
and1
2002-10-29 15:43
2002.11.07
Новичку ответье


6-21714
AndOrXor
2002-09-10 09:11
2002.11.07
Может кто подскажет


3-21454
BAY
2002-10-21 11:13
2002.11.07
Виснет клиент


1-21658
Yonic
2002-10-26 09:17
2002.11.07
WebBrowser


1-21502
cybermonk
2002-10-24 12:55
2002.11.07
Word