| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Kurt_ ©   (2003-01-17 18:51:00) 

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

---

sniknik   (2003-01-20 13:28:00) [1]

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

---

Kurt_   (2003-01-20 13:14:00) [2]

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

---

sniknik   (2003-01-20 12:56:00) [3]

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

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

---

Kurt_   (2003-01-20 12:27:00) [4]

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

---

gsu   (2003-01-20 12:15:00) [5]

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

---

sniknik   (2003-01-20 11:55:00) [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.}


---

Kurt_   (2003-01-20 11:44:00) [7]

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

---

TTCustomDelphiMaster   (2003-01-18 20:09:00) [8]

type
TFriendGrid = class(TCustomGrid);

...

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

---

Kurt_   (2003-01-18 20:00:00) [9]

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

gsu! и как?

---

gsu   (2003-01-17 18:56:00) [10]

да

---

MAD-Sudarchikov   (2003-01-17 18:56:00) [11]

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

---

Наверх