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

Вниз

Multi Languages StringGrid   Найти похожие ветки 

← →
proc ©   (2002-08-03 14:12) [0]

Можно ли в StringGrid использовать в заголовке RUSSIAN_CHARSET, а в теле BALTIK_CHARSET?

Спасибо.

---

← →
Dimka Maslov ©   (2002-08-03 16:35) [1]

Можно, обрабатывая прорисовку ячеек вручную через событие OnDrawCell

---

← →
Dimka Maslov ©   (2002-08-03 16:43) [2]

К примеру вот так:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Canvas: TCanvas;
begin
Canvas:=StringGrid1.Canvas;
if gdFixed in State then begin // отрисовывается заголовок
Canvas.Brush.Color := clBtnFace;
Canvas.Font.Charset:=RUSSIAN_CHARSET;
// в Object Inspector StringGrid1.Font.Charset
// должно быть BALTIC_CHARSET
Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol, ARow]);
end;
end;

---

← →
Dimka Maslov ©   (2002-08-03 16:44) [3]

А ещё лучше будет, когда
Canvas.Brush.Color := StringGrid1.FixedColor;

---

← →
proc ©   (2002-08-03 17:58) [4]

Спасибо

---

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

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

Наверх

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