Скачать: CL | DM;

выделение строк цветом в 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c