Форум: "Базы";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];
Вниз
Люди! можно ли в гриде как то заголовки увеличивать по толщине? Найти похожие ветки
← →
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 вся ветка
Форум: "Базы";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
