Увеличение ячейки TStringGrid при увеличении числа строкDelphi , Компоненты и Классы , TStringGrid и TDrawGridУвеличение ячейки TStringGrid при увеличении числа строкАвтор: Пётр Соболь procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Format: Word; C: array[0..255] of Char; r: integer; begin C := ''; Format := DT_LEFT or DT_WORDBREAK; (Sender as TStringGrid).Canvas.FillRect(Rect); StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]); if c <> '' then //если есть значения begin r := WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C, StrLen(C), Rect, Format); if r > (Sender as TStringGrid).RowHeights[Arow] then //если высота колонки меньше (Sender as TStringGrid).RowHeights[Arow] := r; end; end; Статья Увеличение ячейки TStringGrid при увеличении числа строк раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TStringGrid и TDrawGrid ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |