Lazarus

Programming => Packages and Libraries => KOL => Topic started by: josD on November 20, 2008, 02:09:21 pm

Title: TKOLScrollBox
Post 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.
Title: TKOLScrollBox
Post by: JohnvdWaeter on November 28, 2008, 08:41:02 pm
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
TinyPortal © 2005-2018