Советы по Delphi

         

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


Создайте ваш собственный метод drawcell на примере того, что приведен ниже:

    procedure Tsearchfrm.Grid1DrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState); var l_oldalign : word;

begin
if
(row=0) or (col<2) then grid1.canvas.font.style:=grid1.canvas.font.style+[fsbold]; {устанавливаем заголовок в жирном начертании}
if col<>1 then begin

l_oldalign:=settextalign(grid1.canvas.handle,ta_right); {NB использует для рисования правую сторону квадрата} grid1.canvas.textrect(rect,rect.right-2, Rect.top+2,grid1.cells[col,row]); settextalign(grid1.canvas.handle,l_oldalign); end else begin grid1.canvas.textrect(rect,rect.left+2,rect.top+2,grid1.cells[col,row]); end;
grid1.canvas.font.style:=grid1.canvas.font.style-[fsbold];
end;

[001466]



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