Скачать: CL | DM;

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

← →
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 указать чтоб было выравнивание по центру и по вертикали и по горизонтали? а не как только по горизонтали как у меня получается...
заранее ОЧЕНЬ благодарен!

---

← →
sniknik ©   (2003-01-20 12:56) [9]

сделай переменную 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)??

---

← →
sniknik ©   (2003-01-20 13:28) [11]

а в общемто пофигу посмотри 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 потому что просто скопировал из предыдущего поста, ну не хочется ручками писать. :-)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c