DrawGrid непонятная ошибка в TextOut

[lostbananan]

Здравствуйте!
Помогите разобраться!!!
Написал такой код:
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var s : String;
begin
TextOut(1, 1, 'Owner Drawn text');
end;
Компилятор ругается на коде с TextOut, что типы Интежер и Стринг несовместимы!
В чем подвох??

[Stilet]

Правильно ругается, ибо

BOOL TextOut(

HDC hdc, // handle of device context
int nXStart, // x-coordinate of starting position
int nYStart, // y-coordinate of starting position
LPCTSTR lpString, // address of string
int cbString // number of characters in string
);

Другое дело:

 TDrawGrid(Sender).Canvas.TextOut(Rect.Left, Rect.Top, 'Owner Drawn text');

[lostbananan]

Большое спасибо!!!

У меня на форме будет 11 DrawGrid, для всех них написал/:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s : String;
begin
  case tag of
    1:  s := IntToStr(agres);
    2:  s := IntToStr(alcohol);
    3:  s := IntToStr(boss);
  end;
  TDrawGrid(Sender).Canvas.TextOut(35, 1, s);
end;

Но, почему-то текст в ячейки не выводится.
В чем здесь проблема?

[Stilet]

В чем здесь проблема?

Во-первых в банальном неуважении к правилам форума: Код нужно выделять спецтегом.
Во-вторых в невнимательном читании того что тебе пишут. Сравни свое:

TextOut(35, 1, s);

и это:

TextOut(Rect.Left, Rect.Top, 'Owner Drawn text');

И найди отличия.

[evg_m]

case tag of  //  Form1.tag, Form1.DrawGrid1.tag, ... form1.DrawGrid11.tag какой из ?

(sender as TDrawGrid).tag

[phomm]

Для всех них писать не надо, им всем надо назначить этот единственный обработчик события в инспекторе, и по тегу определять кто именно должен на себе отобразить.
Tag Вы непонятно откуда берёте - его надо брать тоже из грида TDrawGrid(Sender).Tag

[lostbananan]

Конречно обработчик события у меня один для все гридов, в операторе касе текст назначается в зависимости от тага грида...
Спасибо в обработчике события сделал изменения и заработала программа как надо:

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;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

lostbananan, Вы зря не читаете то, что Вам пишут!

Перечитывайте пост #4 (у Вас ошибка в параметрах TextOut ) до ПОЛНОГО прояснения!



p.s. И код нужно ФОРМАТИРОВАТЬ!!!

[lostbananan]

Непонятные ошибки времени исполнения возникают.
Если программу запускаю в той директории в которой ее делал - ошибок нет, копируюю в другую директорию (вместе с ини-файлом) - ошибка аксес виолатион на чтение...
такая же ошибка возникает если немного изменить координаты эллементов.
Что это может быть и как с этим бороться?
А вообще, может кто подскажеть как создать "на лету" прогресьар и лабел?

Прбывал так:

Grid := TDrawGrid.Create(Sender);

так компилятор ругается: о несовместимости TComponent и TObject

Написал так:

    Grid := TDrawGrid.Create(Sender as TComponent);
  Grid.Left := 10;
  Grid.Top := 10;
  Grid.RowCount := 1;
  Grid.ColCount := 1;
  Grid.Show;
  Caption := Grid.ClassName();

Компилятор неругается, но драв грида на форме нету, а заголовок формы становиться TDrawGrid, т.е. грид я таки создал, но почему его невдно на форме?

Код такой написал и все заработало:

  Grid := TDrawGrid.Create(Form1);
  Grid.Left := 10;
  Grid.Top := 10;
  Grid.RowCount := 1;
  Grid.ColCount := 1;
  Grid.Enabled := true;
  Grid.Height := 120;
  Grid.Tag := 1;
  Grid.Cursor := crHandPoint;
  Grid.Parent:=Form1;
  Grid.Canvas.Brush.Color:=clBlack;
  Grid.Canvas.FillRect(Grid.CellRect(1,1));
  Caption := Grid.ClassName()+' tag='+IntToStr(Grid.Tag);

Остался вопрос как указать Гриду, созданому во время исполнения обработчик события?

[evg_m]

Tform1 =class(Tform)
  procedure MyDrawGrid(sender: Tobject;.....);

xxx:=TdrawGrid.Create(self);
....
xxx.OnDrawGrid:=MyDrawGrid;