Люди! можно ли в гриде как то заголовки увеличивать по толщине?

← →
Kurt_ (2003-01-17 18:51) [0]

Люди! можно ли в гриде как то заголовки увеличивать по толщине? ну чтоб в 2 строчки написать на Titles!
заранне благодарен?

← →
gsu © (2003-01-17 18:56) [1]

да

← →
MAD-Sudarchikov © (2003-01-17 18:56) [2]

Загляни на вопрос про TListView и DBGrid
там есть линк на сайт с TDBGridEh
я посмотрел скриншот, впечатляет!
Правда еще не пробовал :))

← →
Kurt_ (2003-01-18 20:00) [3]

а стандартным или из библиотеки RX можно?

gsu! и как?

← →
TTCustomDelphiMaster © (2003-01-18 20:09) [4]

type
TFriendGrid = class(TCustomGrid);

...

TFriendGrid(DBGrid1).RowHeights[0] := 50;

← →
Kurt_ (2003-01-20 11:44) [5]

а чтоб названия переносились, выравнивались? TTCustomDelphiMaster подскажи, плиз!

← →
sniknik © (2003-01-20 11:55) [6]

type TFriendGrid = class(TCustomGrid); procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); end; ... procedure TFriendGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); {сам заголовок рисуй, переноси, выравнивай ets.}

← →
gsu © (2003-01-20 12:15) [7]

передача эстафеты (-:|~

← →
Kurt_ (2003-01-20 12:27) [8]

извини, за торможение:-), но а как типа DBGrid-у сказать чтоб он перересовывал как в процедуре TFriendGrid.DrawCell?
и как все-таки в rect указать чтоб было выравнивание по центру и по вертикали и по горизонтали? а не как только по горизонтали как у меня получается...
заранее ОЧЕНЬ благодарен!

сделай переменную DBGrid1: TFriendGrid а не DBGrid1: TDBGrid и инициализируй в рантайме.

выравнивание по центру, например
DrawText(Canvas.Handle, PChar(lText), Length(lText), MyRect, DT_CENTER);
по вертикали MyRect.Top:= ???{чего хочется?};

← →
Kurt_ (2003-01-20 13:14) [10]

и последний вопрос если можно:-)
а почему обьявляется TFriendGrid = class(TCustomGrid),
а не TFriendGrid = class(TDBGrid)??

а в общемто пофигу посмотри unit DBGrids;
описание класса
TDBGrid = class(TCustomDBGrid)
не так много и теряеш из него.

но вообше у меня стоит так
TMyDBGrid = class(TDBGrid) procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override; Private IconACS, IconDESC: TIcon; public SortedField: integer; SortedOrder: integer; function CreateIcon(sMask, sIcon: string): TIcon; constructor Create(AOwner: TComponent); override; procedure ClearOrder; end;

что нужно то и бери. здесь написал TCustomGrid потому что просто скопировал из предыдущего поста, ну не хочется ручками писать. :-)

Люди! можно ли в гриде как то заголовки увеличивать по толщине? Найти похожие ветки