Lazarus
Programming => Packages and Libraries => KOL => Topic started by: josD on November 20, 2008, 02:09:21 pm
-
Hey,
The ScrollBox don't seems to Scroll ?
The vertical scrollbar is visible, but do anything.
TForm1 = {$IFDEF KOLCLASSES}class{$ELSE}object{$ENDIF}({$IFDEF LAZIDE_MCK}TForm{$ELSE}TObj{$ENDIF})
Button1: TKOLButton;
........
Form: PControl;
KOLForm1: TKOLForm;
KOLProject1: TKOLProject;
ScrollBox1: TKOLScrollBox;
procedure Button1Click(Sender: PObj);
...........
private
{ private declarations }
FCount:Integer;
......
public
{ public declarations }
end;
var
Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
pnlAppointment: PControl;
.........
Tprocedure TForm1.Button1Click(Sender: PObj);
begin
inc(FCount);
pnlAppointment := newPanel(Form1^.Scrollbox1, esNone);
pnlAppointment.OnClick :=
TOnEvent(MakeMethod(nil, @AppointmentClick));
pnlAppointment.Top := 25*FCount;
pnlAppointment.Left := 12*FCount;
pnlAppointment.Width := 12;
pnlAppointment.Height := 64;
pnlAppointment.Color := clWhite;
pnlAppointment.Show;
end;
.......................
After several hitting Button1, the new created pnlAppointment is place outside the visual partion of the TKolScrollBox.
But when I click or track on the scrollbar nothing happens.
Any help is welcome. :)
Groetjes,
Jos.
-
Hi,
I've got a similar problem with TKOLScrollbox, maybe related.
I have a Pagecontrol with 2 pages. On one of the pages there is a TKolScrollbox, containing some buttons/editboxes etc, more than the visual part can handle, so a scrollbar should be visible (at least at runtime).
If I build the project with the page containing the scrollbox visible, no scrollbar appears (where it should).
If I build the project with the other page active, and at runtime I switch to the page with the scrollbox, it works as expected: there is the scrollbar.
Maybe related?
tia!
John