Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Вниз

Как по двойному щелчку по записи в гриде, зменить цвет шрифта ...   Найти похожие ветки 

← →
daser   (2007-02-02 15:54) [0]

...этой записи?

---

← →
clickmaker ©   (2007-02-02 15:55) [1]

OnDrawColumnCell

---

← →
daser   (2007-02-05 12:21) [2]

>OnDrawColumnCell
а поподробней.. как сделать?

---

← →
iXT ©   (2007-02-05 12:38) [3]

Статья "Разноцветный DBGrid" :)

---

← →
Ega23 ©   (2007-02-05 12:45) [4]

http://www.delphiplus.org/articles/components/multicolored_dbgrid/

---

← →
daser   (2007-02-15 15:41) [5]

>Ega23 ©   (05.02.07 12:45) [4]
прочитал, но того, что мне надо нет. Я так и не понял как по двойному щелчку изменить цвет активной записи (записи, где стоит курсор в гриде)...

---

← →
Плохиш ©   (2007-02-15 16:09) [6]

> daser   (15.02.07 15:41) [5]
> прочитал, но того, что мне надо нет. Я так и не понял как
> по двойному щелчку изменить цвет активной записи (записи,
>  где стоит курсор в гриде)...

Нужно, где-нибудь запомнить на какой строке грида кликнули и вызвать его перересовку.

---

← →
daser   (2007-02-15 16:26) [7]

>...и вызвать его перересовку.
вот этот момент как реализовать?

---

← →
Плохиш ©   (2007-02-15 16:31) [8]

Грид.Invalidate

---

← →
daser   (2007-02-15 17:16) [9]

>Плохиш ©   (15.02.07 16:31) [8]
ну туплю я..... не могу понять.... Если можно, покажите конкретный пример....

---

← →
daser   (2007-02-15 19:06) [10]

...помогите.. неужели никто не сталкивался с такой проблемкой?

---

← →
RASkov   (2007-02-15 19:39) [11]

> [10] daser   (15.02.07 19:06)

procedure TForm1.FormCreate(Sender: TObject);
var R, C: Integer;
begin
 for R:= 0 to StringGrid1.RowCount-1 do
  for C := 0 to StringGrid1.ColCount-1 do StringGrid1.Cells[R,C]:=Format("Cell [%d,%d]", [R, C]);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
........
 if ARow=StringGrid1.Tag then StringGrid1.Canvas.Font.Color:=clRed
  else StringGrid1.Canvas.Font.Color:=clBlue;
 StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+4, StringGrid1.Cells[ACol, ARow]);
........
end;

procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
 StringGrid1.Tag:=StringGrid1.Row;
 StringGrid1.Invalidate;
end;

Дальше сам думай и хватит тупить.

---

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

Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.046 c