Советы по Delphi

         

Выравнивание колонок StringGrid III


Вот некоторый код, который делает то, что вы хотите:

    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]



Содержание раздела