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

Нет иконки в заголовке формы под 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]

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

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

---

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

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



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