Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Nomadic © (2003-05-21 14:18:00)

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

Nomadic (2003-05-23 10:45:00) [1]

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

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

BaRToV (2003-05-21 17:49:00) [2]

А еще луще, самому сделать 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-21 17:24:00) [3]

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

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

BaRToV (2003-05-21 16:58:00) [4]

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

{$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 16:40:00) [5]

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

Nomadic (2003-05-21 16:09:00) [6]

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

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

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

Boguslaw (2003-05-21 15:05:00) [7]

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

Gandalf (2003-05-21 14:49:00) [8]

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

Наверх

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