PHP DM Gate v0.9 » Проблема с иконкой в KOL <span class="vd">[Delphi, Windows]</span>

Сергей (01.11.07 23:51) [0]

Привет всем! Недавно перешёл на KOL и не могу понять как наделить прогу иконкой (загрузить из файла). Подскажите пожалуйста. И ещё
такая ситуация: надо заставить кнопку ехать (не спрашивайте зачем) по коду grushButton1.left := grushButton1.left + 1; {в цикле}кнопка едет и оставляет за собой страшенный след, а когда начинаешь другую грашкнопку двигать, то след другого цвета, и ваще все в следах (правда когда кнопка приезжает след исчезает), можно этого избежать?
Заранее благодарю.

<Цитата>
Compiler © (02.11.07 00:38) [1]

> надо заставить кнопку ехать

var
i:integer;
begin
for i:=0 to 400 do
begin
Applet.ProcessMessages;
grushButton1.left := grushButton1.left + 1 ;
end;
> загрузить из файла

var
i:PIcon;
begin
i:=NewIcon;
i.LoadFromFile('1.ico');
//Работаем с иконкой
i.Free;
end;

<Цитата>
Дмитрий К © (02.11.07 00:46) [2]

> как наделить прогу иконкой

Если MCK, то у KOLProject1 выставить dprResource в True, дальше как обычно, Project > Options > Application > Load Icon.

<Цитата>
ANTPro © (02.11.07 00:53) [3]

> [0] Сергей (01.11.07 23:51)
> grushButton1.left := grushButton1.left + 1; {в цикле}

Apllet.ProcessMessages;

импользуется внутри цикла?

> [0] Сергей (01.11.07 23:51)
> как наделить прогу иконкой (загрузить из файла)

Определись загрузить иконку из файла или просто сменить иконку по-умолчанию? (Если второе то поменять иконку в res файле)

<Цитата>
ANTPro © (02.11.07 00:56) [4]

Не только мне не спится %)

<Цитата>