Recent

Author Topic: DropDown Panel?? Custom Control  (Read 14615 times)

Never

  • Sr. Member
  • ****
  • Posts: 409
  • OS:Win7 64bit / Lazarus 1.4
Re: DropDown Panel?? Custom Control
« Reply #30 on: June 02, 2015, 12:58:54 am »
Thanks a lot @dietmar  but this is not was i had in mind

here 2 vids from what i have done until now to get the idea

the first one demo res 1 is a kind of a dirty demo
the second one demo res 2  is a test inside an app
i have lots to do to finish what i have in mind

by the way is anybody aware of a commercial component like this?
Νέπε Λάζαρε λάγγεψων οξωκά ο φίλοσ'ς αραεύσε

dietmar

  • Full Member
  • ***
  • Posts: 170
Re: DropDown Panel?? Custom Control
« Reply #31 on: June 04, 2015, 04:50:52 am »
Hi, thx for the info, nice components.
I tried them and in development demo, when I press Horizontal and single panel behaviour after one circle of clicks (1, 2 , 3 button) then just panel 1 works, can anybody confirm this?
Hm, I don't know exactly what you mean... I cannot find any 1, 2, 3 buttons in my developement demo project...
Nevertheless, I sent the link of your question to the developer, perhaps he will answer.

Dietmar
Lazarus 2.2.0RC1 with FPC 3.2.2 (32 Bit) on Windows10 (64Bit)

sin_dragan

  • Full Member
  • ***
  • Posts: 127
Re: DropDown Panel?? Custom Control
« Reply #32 on: June 04, 2015, 06:31:21 am »
@Dietmar

Hi, in development demo, program creates tri panels, try to click all of them (works fine) and then select the HotMouse radiobutton, when you go over buttons (1 2 3) the first time it works okay, but the next time only first buttons collapses panel. Even if I set multipanel radiobutton it still acts the same.

EDIT: It works the same if you try what I wrote in the previous post: ...when I press Horizontal and single panel behaviour after one circle of clicks (1, 2 , 3 button) then just panel 1 works, can anybody confirm this? Sorry, I meant first, second, third button, from the left to right  :)

Code: [Select]
ex1 := TExpandPanels.Create(self);

  p1 := TMyRollOut.Create(self);
  p2 := TMyRollOut.Create(self);
  p3 := TMyRollOut.Create(self);

  p1.Parent      := self;
  Calendar1.Parent := p1;
  Calendar1.Align := alClient;
  p2.Parent      := self;
  ListBox1.Parent := p2;
  ListBox1.Align := alClient;
  p3.Parent      := self;
  Button1.Parent := p3;

  ex1.AddPanel(p1);
  ex1.AddPanel(p2);
  ex1.AddPanel(p3);



  ex1.ButtonPosition := TAnchorKind(RButt.ItemIndex);
  ex1.CollapseKind   := TAnchorKind(RColl.ItemIndex);
  ex1.Behaviour      := TExpandPanelsBehaviour(RBehaviour.ItemIndex);
« Last Edit: June 04, 2015, 06:40:47 am by sin_dragan »
Windows 7 64 bit
Lazarus 1.4.1 (w/fixes) FPC 2.6.4 win32

 

TinyPortal © 2005-2018