PHP DM Gate v0.9 » DefaultBtn set to false for the two button's <span class="vd">[Delphi]</span>

Hallif © (14.12.10 16:05) [0]

Если несложно, проверьте ниже приведенный код:

program DefaultBtn;

uses KOL,windows;

var Form,Button1,Button2: PControl;

begin
Applet := NewApplet( 'Test' );
Form := NewForm(Applet, 'Toolbar')^.SetSize(300,100);
Button1 := NewButton(Form,'Button1')^.SetPosition(0,3);
Button1^.DefaultBtn := false;// <-Applet^.EV.fOnMessage (TControl.SetDefaultBtn) is nil?
Button2 := NewButton(Form,'Button2')^.SetPosition(70,3);
Button2^.DefaultBtn := false;// also...
Run(Applet);
end.

<Цитата>
Jon © (14.12.10 19:45) [1]

Looks like a bug. Use these conditional defines: PAS_VERSION;NIL_EVENTS;

<Цитата>
Vladimir Kladov © (14.12.10 20:29) [2]

В этом коде нет смысла. Если i := 0, а потом поделить на i, тоже будет баг.

<Цитата>
Hallif © (14.12.10 21:05) [3]

Согласен с вами Владимир, но код создается генератором а не мной, и для булевых значений явно неопределенных как True, назначался генератором как False. Сейчас этот момент учтен. Просто попросил проверить в связи с тем что не полностью привел KOL к состоянию 3.01

<Цитата>
Vladimir Kladov © (15.12.10 15:58) [4]

Я почему-то так и подумал, что код написан не человеком :)

<Цитата>