Скачать: CL | DM;

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

← →
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]

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

---

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

Скачать: CL | DM;



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