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;

Спасибо

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