Форум: "KOL";
Текущий архив: 2009.06.21;
Скачать: [xml.tar.bz2];
ВнизApplet and Forms? Найти похожие ветки
← →
Jon © (2008-02-13 04:05) [0]If I set HasBorder or HasCaption to False to forms within a multi-form applet, then the form is not shown:
program Project1;
uses
KOL;
var
Form1, Form2: PControl;
begin
Applet := NewApplet("");
Form1 := NewForm(Applet,"Form1");
Form2 := NewForm(Applet,"Form2");
Form1.HasBorder := False; // Form will not show
// Form2.HasBorder := False;
// Form1.HasCaption := False;
// Form2.HasCaption := False;
Run(Applet)
end.
If I remove the Applet, then the forms work correctly. Bug?
← →
Jon © (2008-02-15 03:38) [1]I found the problem:
program Project1;
uses
KOL;
var
Form1, Form2: PControl;
begin
Applet := NewApplet("");
Form1 := NewForm(Applet,"Form1").SetSize(640,480);
Form2 := NewForm(Applet,"Form2").SetSize(640,480);
Form1.HasBorder := False;
// Form2.HasBorder := False;
// Form1.HasCaption := False;
// Form2.HasCaption := False;
Run(Applet)
end.
The size of the form has to be defined.
I hope that I did not waste anyone"s time.
← →
_vadim (2008-02-15 05:57) [2]To Jon:
Yes, Yes... :-)
If to write:
Form1.HasBorder := False; // Form will not show
MsgOk(Int2Str(Form1.Width)+", "+Int2Str(Form1.Height)); // -- My addition
Run(Applet)
then I can see "0, 0"... :-)
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2009.06.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c