Советы по 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]
