Нет иконки в заголовке формы под KOL 1.73

← →
Nomadic (2003-05-21 14:18) [0]

Нет иконки в заголовке формы при компиляции старого проекта под KOL 1.73, вместо нее стандартный белый квадратик. При компиляции под какойто старой версией КОЛа было все ок (под какой не помню, затер новой...).

← →
Gandalf © (2003-05-21 14:49) [1]

Проверь ресурс. Или пришли - поглядим.

← →
Boguslaw (2003-05-21 15:05) [2]

program RegTest;

uses
Windows,
Kol;

var
Window: PControl;
begin
Applet:=NewApplet("Demo App");
Window:=NewForm(Applet, "Demo Form").SetSize(400, 240).CenterOnParent;
Window.Style:=WS_BORDER or WS_CAPTION or WS_SYSMENU ;
Window.ExStyle:=WS_EX_DLGMODALFRAME;
Window.Icon := THandle(-1);
Run(Applet);
end.

Just put -1 for Icon or use MAINICON and edit *.res file.

Boguslaw

← →
Nomadic (2003-05-21 16:09) [3]

MAINICON в *.res есть полюбому, проводник иконку показывает без проблем

Window.Icon := THandle(-1);
не помог

Исходник выслать не могу - комерческий проект

← →
Nomadic (2003-05-21 16:40) [4]

Ради интереса создал с нуля проект под 1.73, подключил res с MAINICON - все ОК. Старый никак при вроде тех же настройках. Переделывать его под 1.73 с нуля облом :(

← →
BaRToV (2003-05-21 16:58) [5]

> Исходник выслать не могу - комерческий проект
Воздержусь от коментария... Не рано ли в комерцию?... ;-)

{$R prog.res}

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
Form.Icon := LoadIcon(hInstance, "MAINICON");
end;

или
у KOLProject ставим свойство dprResourse = True,
KOLForm - Icon = ICON.

← →
Nomadic (2003-05-21 17:24) [6]

Получилось!
dprResourse = True // и так стояло
KOLForm - Icon = MAINICON
Спасибо!

>> Воздержусь от коментария... Не рано ли в комерцию?... ;-)
кейгены тоже неплохо продаются ;)

← →
BaRToV (2003-05-21 17:49) [7]

А еще луще, самому сделать icons.rc
ic1 ICON "icon.ico"
ic2 ICON "draw.ico"
ic3 ICON "bubble.ico"

brcc32 icons.rc -> icons.res

Подключаем к форме {$R icons.res} и форма возьмет первую иконку.

> кейгены тоже неплохо продаются ;)
может приКОЛистам бесплатно?... ;-)

← →
Nomadic (2003-05-23 10:45) [8]

> может приКОЛистам бесплатно?... ;-)

не думаю что когото заинтересует специализированный продукт
да и варезы думаю на этом форуме запрещены :)

Нет иконки в заголовке формы под KOL 1.73 Найти похожие ветки