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.