[SOLVED] SpkToolbar Customizing

[Swirl]

Hi

I need to customize SpkToolBar -> Appearance -> Pane -> Style at runtime and I do not know how to set Style to psRectangleEtched.
I read the souces but I am not smart enough to derive a solution. Can anyone help?

Regards
Mike [aka swirl]

[howardpc]

Code: Pascal  [Select][+][-]

1. procedure TForm1.StyleBtnClick(Sender: TObject);
2. begin
3.   if SpkToolbar1.Appearance.Pane.Style <> psRectangleEtched then
4.     SpkToolbar1.Appearance.Pane.Style := psRectangleEtched;
5. end;

[Swirl]

Thx 4 your quick answer.
But sorry - SpkToolbar1.Appearance.Pane.Style := psRectangleEtched; does not work though.
I tried it the same way - without success. Lazarus gives me unit1.pas(41,40) Error: Identifier not found "psRectangleEtched"

The operating system I use ist openSUSE Leap 15.0 (64Bit). spktoolbarpackage.lpk tells me "<Version Minor="1" Release="6"/>"
SpkToolbar was installed via Online-Package-Manager.

Regards
Mike

[wp]

You can do it in object inspector (property Appearance > Pane > Style) which knows where the declarations are.

If you want to do it at runtime like howardpc proposed, you must add the unit spkt_Appearance to "uses".

[valdir.marcos]

I need to customize SpkToolBar -> Appearance -> Pane -> Style at runtime and I do not know how to set Style to psRectangleEtched.
I read the souces but I am not smart enough to derive a solution. Can anyone help?

Code: Pascal  [Select][+][-]

1. procedure TForm1.StyleBtnClick(Sender: TObject);
2. begin
3.   if SpkToolbar1.Appearance.Pane.Style <> psRectangleEtched then
4.     SpkToolbar1.Appearance.Pane.Style := psRectangleEtched;
5. end;

Thx 4 your quick answer.
But sorry - SpkToolbar1.Appearance.Pane.Style := psRectangleEtched; does not work though.
I tried it the same way - without success. Lazarus gives me unit1.pas(41,40) Error: Identifier not found "psRectangleEtched"

The operating system I use ist openSUSE Leap 15.0 (64Bit). spktoolbarpackage.lpk tells me "<Version Minor="1" Release="6"/>"
SpkToolbar was installed via Online-Package-Manager.

Just add spkt_Appearance to your uselist:

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes, ..., SpkToolbar, spkt_Tab,
9.   spkt_Pane, spkt_Buttons, spkt_Checkboxes, spkt_Appearance;
10.  

[Swirl]

Thanks,

works like a charm now!

Regards
Mike