![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Создаю компоненты таким образом:
Код:
Grid[0] := TDrawGrid.Create(Form1); Код:
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var s : String; begin case TDrawGrid(Sender).tag of 1: s := IntToStr(agres); 2: s := IntToStr(alcohol); 3: s := IntToStr(boss); end; TDrawGrid(Sender).Canvas.TextOut(35, 1, s); end; Код:
Grid[0] |
#2
|
||||
|
||||
![]() Ну после конструктора можно.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
![]() После конструктора это здесь:
Код:
Grid[0] := TDrawGrid.Create(Form1); Код:
Grid[0].DrawGrid1DrawCell(Sender; ACol, ARow; Rect; State); Код:
DrawGrid1DrawCell Код:
type TForm1 = class(TForm) Timer1: TTimer; procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); private |
#4
|
|||
|
|||
![]() Код:
Grid[0].OnDrawCell:=DrawGrid1DrawCell; |
Этот пользователь сказал Спасибо icWasya за это полезное сообщение: | ||
lostbananan (05.03.2013)
|