Mattias Gaertner ha scritto:
On Wed, 05 Sep 2007 01:54:09 +0200
Giuliano Colla <[EMAIL PROTECTED]> wrote:
Matt ha scritto:
I have tnotebook control on my preferences windows for my little
program winff. I want page2 to show on windows and page3 on linux.
I tried a number of different things. The code works on windows,
but not on linux. I have tried a couple different ways, and tried
compiling for gtk1.2 and 2.0.x, but there is no difference. It's
strange because the notebook page shows up and the edit boxes show
up but not the labels for the edit boxes. If i show both pages on
linux the labels show up just fine. It must be how the labels are
attached to the notebook page, so i deleted them and remade them,
but still no difference.
here is the code:
procedure TForm4.FormCreate(Sender: TObject);
begin
{$ifdef win32}
page3.tabVisible:=false;
edit2.Text:= form1.getconfigvalue('win32/ffmpeg');
edit3.Text:= form1.getconfigvalue('win32/ffplay');
{$endif}
{$ifdef unix}
page2.tabvisible:=false;
edit4.Text:= form1.getconfigvalue('unix/ffmpeg');
edit5.Text:= form1.getconfigvalue('unix/ffplay');
edit6.Text:= form1.getconfigvalue('unix/terminal');
edit7.Text:= form1.getconfigvalue('unix/termoptions');
{$endif}
edit1.Text:= form1.getconfigvalue('general/destfolder');
if form1.getconfigvalue('general/rememberlast') = 'true' then
checkbox1.Checked := true
else
checkbox1.Checked := false;
if form1.getconfigvalue('general/pause') = 'true' then
checkbox2.Checked := true
else
checkbox2.Checked := false;
if form1.getconfigvalue('general/multithreading') = 'true' then
checkbox3.Checked := true
else
checkbox3.Checked := false;
end;
I've met similar problems with notebook pages. In my case the
solution has been to force a repaint of the active page with a
Notebook.PageName.Invalidate both on the OnEnter event handler and
OnPageChanged event handler.
I hope that it helps.
Is the bug already in the bug tracker?
Not yet because:
1) I discovered it during my vacation, with an unreliable 21.400 baud
internet connection.
2) I don't know how to enter a bug in the bug tracer. )-:
Giuliano
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
