Форум: "Media";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Вниз

Привет. Вот плохой вопрос для вас.   Найти похожие ветки 

← →
Извращенец   (2002-07-31 20:53) [0]

Вроде все правильно, но выскакивает ошибка, жму Ок, продолжается грузиться, но когда доходит до вывода текста прога виснет.
Вот проблемный код:

type
THrParam=Class
HrName: ShortString; {String приводит к тому же резалту}
...
end;

var
...
HrPrm: THrParam;
...;

implementation;

procedure TFMenu.FormCreate(Sender: TObject);
begin
...
HrPrm.HrName:="My String";
...
end;

procedure PaintName;
begin
BGr.Canvas.Font.Size:=35;
BGr.Canvas.Font.Name:="FlemishC";
BGr.Canvas.Font.Color:=clLime;
SetBkMode(BGr.Canvas.Handle,transparent);
BGr.Canvas.TextOut(200,400,HrPrm.HrName);
end;

---

← →
MJH   (2002-08-01 02:15) [1]

а ты свой класс криэйтишь?
зы: и для чего интересно брейкпоинты придамали....?

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c