| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Привет. Вот плохой вопрос ;для вас. [D6, WinME]

Извращенец ©   (2002-07-31 20:53:00) 

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

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:00) [1]

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

---

Наверх