Заголовок TDBGrid в две строкиDelphi , Компоненты и Классы , TDBGridЗаголовок TDBGrid в две строки
Оформил: DeeCo type TAccessDBGrid = class(TDBGrid); procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var S1, S2: String; begin with TAccessDBGrid(DBGrid1) do begin // Increase title height // Titelhohe vergrossern RowHeights[0] := 32; Canvas.Brush.Style := bsClear; // Column Titles // Spalten Titel setzen case Column.Index of 0: begin Column.Title.Caption := ''; S1 := 'Row 1'; S2 := 'Row 2'; end; 1: begin Column.Title.Caption := ''; S1 := 'Row 1'; S2 := 'Row 2'; end; end; // write title: // Titel ausgeben: Canvas.TextOut(Rect.Left+2, 2, S1); Canvas.TextOut(Rect.Left+2, 16, S2); end; end; Статья Заголовок TDBGrid в две строки раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросы:: 2011-09-03 22:31:32 :: re:Заголовок TDBGrid в две строкипользователь: Shoni. У меня прописывает нормально, но когда я начинаю листать DBGrid, выпадает ошибка - превышен индекс DBGrid-а, после удаления сего куска кода программа заработала исправно... :: 2011-10-12 21:18:10 :: re:Заголовок TDBGrid в две строкипользователь: kan. где именно выдаёт ошибку? :: 2015-10-15 18:59:44 :: re:Заголовок TDBGrid в две строкипользователь: Inna. Заголовки пишутся правильно в 2 строки, но при движении мышкой над ними, либо при горизонтальной прокрутке формы заголовки исчезают. В чем дело? Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |