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

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

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

Kirill ©   (2002-07-12 19:11:00) 


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

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

---

Kirill   (2002-07-17 13:33:00) [2]

Владимир, поменял я на 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


---

Vladimir Kladov   (2002-07-17 12:41:00) [3]

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

---

BorisMor   (2002-07-17 11:54:00) [4]

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

---

Kirill   (2002-07-17 11:27:00) [5]

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

---

Gandalf   (2002-07-12 20:08:00) [6]

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

---

HekTo   (2002-07-12 19:40:00) [7]

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

---

Kirill   (2002-07-12 19:14:00) [8]

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

---

Наверх