Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
Вниз
StringGird pt3 Найти похожие ветки
← →
Bobby Digital © (2005-01-21 20:11) [0]Как мне расскрасить, серым цветом, нулевую строку в SringGrid (у SringGrid св-ва fixedRow и fixedCol равны 0), и сделать чтоб весь текст в нулевой строке был подчеркнутым.
Если можно то на примере, пример по адресу http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988624493&n=17 работет не так как мне надо, я еще новичек в Делфи, и пока не сталкивался с рисованием на компонентах, заранее спасибо.
← →
begin...end © (2005-01-21 20:19) [1]> Bobby Digital © (21.01.05 20:11)
procedure TForm.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = 0) and (ARow = 0) then
with (Sender as TStringGrid), Canvas do
begin
Brush.Color := clSilver;
FillRect(Rect);
Font.Color := clWhite;
Font.Style := [fsUnderLine];
TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow])
end;
end.
← →
begin...end © (2005-01-21 20:28) [2]> Bobby Digital © (21.01.05 20:11)
А, извиняюсь. Ведь нужно, чтобы во всей нулевой строке текст был подчёркнутым.
Тогда так:procedure TForm.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid), Canvas do
if ARow = 0 then
begin
if ACol = 0 then
begin
Brush.Color := clSilver;
FillRect(Rect)
end;
Font.Color := clWhite;
Font.Style := [fsUnderLine];
TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow])
end
end.
← →
begin...end © (2005-01-21 20:37) [3]Со мной сегодня определённо чего-то не так :-)))
Вот окончательный вариант:procedure TForm.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid), Canvas do
if ARow = 0 then
begin
if ACol = 0 then
Brush.Color := clSilver;
FillRect(Rect);
Font.Color := clRed;
Font.Style := [fsUnderLine];
TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow])
end
end.
Всё... Пойду к экзамену готовиться...
← →
Bobby Digital © (2005-01-21 21:35) [4]спасибо ... я же не полный Ламер мне и первго варианта полне хватило
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.052 c
