Вот некоторый код, который делает то, что вы хотите:
procedure WriteText(ACanvas: TCanvas; const ARect: TRect; DX, DY: Integer; const Text: string; Format: Word); var S: array[0..255] of Char; B, R: TRect; begin with ACanvas, ARect do begin case Format of DT_LEFT : ExtTextOut(Handle, Left + DX, Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text), Length(Text), nil); DT_RIGHT : ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text), Length(Text), nil); DT_CENTER : ExtTextOut(Handle, Left + (Right - Left - TextWidth(Text)) div 2, Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text), Length(Text), nil); end; end; end; procedure TBEFStringGrid.DrawCell(Col, Row: Longint; Rect: TRect; State: TGridDrawState); var procedure Display(const S: string; Alignment: TAlignment); const Formats: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER); begin WriteText(Canvas, Rect, 2, 2, S, Formats[Alignment]); end; begin { здесь задаем аргументы Col и Row, и форматируем как угодно ячейки } case Row of 0 : { Центрирование заголовков колонок } if (Col < ColCount) then Display(Cells[Col,Row], taCenter) else { Все другие данные имеют правое центрирование } Display(Cells[Col,Row], taRight); end; end; |
[001457]