Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
Внизвыделение строк цветом в StringGrid Найти похожие ветки
← →
Adm. Beckett (2002-06-30 14:27) [0]Уважаемые Мастера!
Помогите с сабжем. Через canvas получается ерунда - при скроллинге grid`а все идет к черту... Может компонент какой есть?...
← →
Anatoly Podgoretsky (2002-06-30 14:49) [1]Чуть что так сразу компоненет, конечно есть другие компоненты, но проще рисовать в OnDrawCell
← →
Adm. Beckett (2002-06-30 14:55) [2]Подстажите, plz! Хотя бы кусок кода с выделенной цветом строкой!
← →
Anatoly Podgoretsky (2002-06-30 15:16) [3]F1|TstringGris|Events|OnDrawCell|Example
← →
jedi (2002-06-30 15:27) [4]const
cCursor=55295;
LYellow=14811135;
DYellow=8257535;
DDYellow=5150383;
procedure TfrmMain.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if StringGrid.ColWidths[ACol]<StringGrid.Canvas.TextWidth(StringGrid.Cells[ACol, ARow])-2 then
StringGrid.ColWidths[ACol]:=StringGrid.Canvas.TextWidth(StringGrid.Cells[ACol, ARow])+2;
if (ARow mod 2=1) then
StringGrid.Canvas.Brush.Color:=LYellow
else
StringGrid.Canvas.Brush.Color:=DYellow;
StringGrid.Canvas.Font.Style:=[];
StringGrid.Canvas.Font.Color:=clBlack;
if (gdSelected in State) then
StringGrid.Canvas.Brush.Color:=CCursor;
StringGrid.Canvas.Font.Name:="Courier New";
if ARow=0 then
begin
StringGrid.Canvas.Font.Name:="Courier New";
StringGrid.Canvas.Font.Style := [fsBold];
StringGrid.Canvas.Brush.Color:= clWhite;//CCursor;
end;
StringGrid.Canvas.TextRect(Rect, Rect.Left, Rect.Top, StringGrid.Cells[ACol, ARow]);
end;
← →
Adm. Beckett (2002-07-01 00:58) [5]хех :)) Спасибо вам, люди! Тема закрыта.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c