![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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
|
||||
|
||||
|
Ну после конструктора можно.
|
|
#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)
| ||