ошибка с фонтом

← →
Kirill (2002-07-12 19:11) [0]

var vFont : PGraphicTool; ... App:=NewApplet(""); App.Visible:=False; App.Icon:=ExtractIcon(hInstance, "shell32.dll", 27); vFont:=NewFont; // vFont.FontName:= "verdana"; vFont.FontHeight:=8; winM:=NewForm(App,"").SetSize(290,180).Tabulate; winM.CenterOnParent; winM.HasCaption:=false; winM.HasBorder:=false; winM.CanResize:=false; winM.StayOnTop:=true; winM.Font.Assign(vFont); // здесь возникает ошибка
В чем может быть проблема?

← →
Kirill (2002-07-12 19:14) [1]

Поставил в конец (перед RUN()) - заработало!?
Но никаких результатов. Я так понимаю, что все объекты должны были изменить шрифт. Что ему надо было еще указать?

← →
HekTo (2002-07-12 19:40) [2]

Чтобы все контролы шрифт изменили нужно было Font изменять перед их созданием. Но ошибка у тебя, IMHO, в чем-то другом. Я это (.Font.Assign(vFont);) подставил в свой пример - все работает.
PS: А что за App - в KOL же вроде есть определенный по умолчанию - Applet ?

← →
Gandalf (2002-07-12 20:08) [3]

Так издалека и на вскидку невидно, если хочешь шли мне код, посмотрю.

← →
Kirill (2002-07-17 11:27) [4]

Куда скинуть?
Пытался на Genalf_the_gr@mail.ru - пишет что такого адреса нет.

← →
BorisMor (2002-07-17 11:54) [5]

Адресс правильный.
Но Genalf сейчас в отпуске так что вряд ли откликнится.
Пиши на мой. Может разберусь :)

← →
Vladimir Kladov (2002-07-17 12:41) [6]

Что тут разбираться. HekTo сказал правильно: есть переменная Applet, свою использовать не надо. This behavior is by design. Все :)

← →
Kirill (2002-07-17 13:33) [7]

Владимир, поменял я на Applet - ошибка продолжает возникать. При ошибке она выкидывает в Kol.pas
{$IFDEF ASM_VERSION} procedure TCanvas.SetHandle(Value: HDC); asm PUSH EBX MOV EBX, EAX MOV ECX, [EBX].fHandle CMP ECX, EDX JZ @@exit JECXZ @@chk_val PUSH EDX PUSH ECX CALL DeselectHandles POP EDX MOV ECX, [EBX].fOwnerControl //курсор встает здесь JECXZ @@chk_Release CMP [ECX].TControl.fPaintDC, EDX JE @@clr_Handle

← →
Kirill (2002-07-17 15:23) [8]

Все, вопрос сам решился. Версия кол оказалась не последней. Скачал уже давно последнюю версию, а обновить забыл.
Спасибо, вопрос закрыт.

ошибка с фонтом Найти похожие ветки