KOL2FPC - проблемы с тестом TestKol3.dpr

← →
Stargazer © (2003-06-19 00:26) [0]

Привет!
Осваиваю потихоньку KOL для FreePascal и вот что не получается (виноваты мои кривые руки, скорее всего). Скачал GotoFPC, Kol2fpc, обновил версию kol.pas до 1.77 - все прекрасно компилируется, размер программ ну просто удивляет своими размерами. Класс!
Но, во первых, тест "TestKol3.dpr" из GotoFPC отказался компилироваться, пока не закомментарил три ассемблерные директивы в процедуре AssertMsg. Во-вторых, в том же GotoFPC недостает ресурса button5.res (для того же теста №3), из-за чего посмотреть на поведение контрола TBitBtn не представляется возможным.
Попытался сам создать такую же кнопку с иконкой (ну очень надо!), только вот при нажатии иконка как бы "прилипает" к форме, и возвращается на место только после потери фокуса кнопкой. (не хотелось бы грешить на несовместимость KOL с FPC - лучше уж кривые руки)
Вот такие дела. Подскажите, плизз, куда рыть? ? (очень нужна кнопка с иконкой)
Заранее спасибо.
С уважением,
Stargazer

← →
Vladimir Kladov (2003-06-19 16:19) [1]

ассемблер должен быть выставлен в Intel. Ресурс лежит в DemoKOLonly.zip, откуда и взяты все проекты для переделки под fpc. Есть еще один способ сделать кнопку с иконкой - тулбар.

← →
Stargazer © (2003-06-21 22:45) [2]

Владимир, спасибо за советы. Директиву дал, ресурс достал. Все заработало. Кроме иконки на кнопке - ведет себя неадекватно и с FPC, и с Delphi. Залипает... Разбираться в KOL.PAS пока не рискую :))) Тулбар тоже как-то не очень хочется использовать - все-таки немного другая у него задача.
С уважением.
P.S. Подсел я на KOL, чувствую, окончательно :)

← →
Vladimir Kladov (2003-06-22 17:58) [3]

И что, с TestKOL3 залипает? Странно это - у меня не залипает. Windows 2K. Проверил под VmWare в XP - с темами и без тем - не залипает. Я смотрел оригинальный непеределанный под fpc проект. Переделанный под fpc проект надо еще править, чтобы этот ресурс попал в собранный экзешник, но если результат удается получить, то он тоже не залипает, я проверял.

Значит, залипает только у меня, как ни обидно :)))
Вот исходный текст (в ресурсе - картиночка BMP 32x32x256.
Win98, FPC 1.0.6 ):

program Button;

{$APPTYPE GUI}
{$R BUTTON.RES}

uses
windows, messages, kol;

var W, B1, B2 : PControl;

procedure TestObjs;
begin
W := NewForm( Applet, "TBitBtn test" ).SetSize(200,200);
B1 := NewButton(W, "Press me").PlaceRight.SetSize(80,80);
B2 := NewBitBtn(W, "", [bboNoCaption], glyphTop,LoadBitmap(hInstance, "BUTTON"), 0).PlaceUnder.SetSize( 80, 80 );

Run(W);
end;

begin
TestObjs;
end.

Я чувствую, что чего-то не так делаю, но вот что именно - не понимаю. Облазил все примеры, ничего не получается...
P.S. Если желаете, могу выслать весь проект, он 20Кб в архиве.

KOL2FPC - проблемы с тестом TestKol3.dpr Найти похожие ветки