Trying Rosinsky

[Mário Reis]

Hi there,
Does any one know how to see the version Rosinsky componentes
I' trying to use them in a rPageControl to Dck and undock it gave fight but now is working ok
But i beleave have not the most recent version because some features do not apear on the Inspector ?
Beside If i need to change the default image onf the tabsheets i do not see how. I'm testing the demo and i just don't see how
Can any one help.

Best regards
Mário 

[Mário Reis]

Sorry i' using Delphi XE7
I do not find any of this:

• → Property TabStyle →  tsRounded or tsModern
• CloseButton (X) AllTabSheets → Propriedade ShowCloseButton →cbAllTabs (or just cbActiveTab )!?

[Tomas Rosinsky]

Hi,

I'm sorry but I do not fully understand your problem. 

Anyway there is some usefull information which should help you to use my Tab or Page Control.

Both are derived from standard components, so use also RAD help to find how to use it.

E.g. images are defined by ImageList, for TabControl image index is defined by TabIndex, for PageControl image is defined by ImageIndex of each page object.

See new properties on my page https://rosinsky.cz/delphi/tabpagecontrol.html 

See my rComponentsDemo project and f_tabcontrolex unit for example of usage.

There are also many events which can be used set colors and close button visibility for each tab/page separatelly.

See my demo:

procedure TTabControlExForm.rTabControlEx5TabPropsExTabGetProps(Sender: TObject; TabIndex: Integer; Font: TFont; var BkColor: TColor; var CanClose: Boolean);
begin
  CanClose:=TabIndex > 0;
end;

Any TabStyle with values tsRounded or tsModern do not exist. You can use some 3rd style if you like.

I hope it helps.

Tomas

Dne neděle 7. prosince 2025 v 20:12:34 UTC+1 uživatel mariod...@gmail.com napsal:

[Mário Reis]

I'd like to learne more about all this events:  
Creatting Pages in fly mode with diferrent length captions i loose the visibility  (the close button hides) it's there like a phantom becaus is i click on the border the tab closes, but i' do not see the button! Don't you heve a more detailed example?

 
procedure TForm10.rPageControlEx1TabPropsExDrawTabBackground(
  Sender: TCustomTabControl; TabIndex: Integer; PaneRect, TabRect: TRect;
  BkColor: TColor; Selected, Hot, CloseBtn: Boolean);
begin

end;

procedure TForm10.rPageControlEx1TabPropsExDrawTabCloseBtn(
  Sender: TCustomTabControl; TabIndex: Integer; PaneRect, TabRect: TRect;
  BkColor: TColor; Selected, Hot, CloseBtn: Boolean);
begin

end;

procedure TForm10.rPageControlEx1TabPropsExDrawTabContent(
  Sender: TCustomTabControl; TabIndex: Integer; PaneRect, TabRect: TRect;
  BkColor: TColor; Selected, Hot, CloseBtn: Boolean);
begin

end;

procedure TForm10.rPageControlEx1TabPropsExDrawTabFinalize(
  Sender: TCustomTabControl; TabIndex: Integer; PaneRect, TabRect: TRect;
  BkColor: TColor; Selected, Hot, CloseBtn: Boolean);
begin

end;

procedure TForm10.rPageControlEx1TabPropsExTabClose(Sender: TObject;
  TabIndex: Integer; var CanClose: Boolean);
begin

end;

procedure TForm10.rPageControlEx1TabPropsExTabGetPopupMenu(Sender: TObject;
  TabIndex: Integer; var PopupMenu: TPopupMenu);
begin

end;

procedure TForm10.rPageControlEx1TabPropsExTabGetProps(Sender: TObject;

  TabIndex: Integer; Font: TFont; var BkColor: TColor; var CanClose: Boolean);
begin

end;

[Tomas Rosinsky]

Hi,

you have to call AddSpaceForCloseBtn procedure after definition of all pages/tabs if you want to use close button.

Then free place is added. 

    { add spaces to all tabs to make place for close buttons } 

    procedure AddSpaceForCloseBtn(Center: Boolean = false);

Description of events is commented in source code or in the help file:

https://rosinsky.cz/delphi/doc_comp/rImprovedComps.TTabPropsEx.html

    { event for user defined state of tab }

    property OnTabGetProps: TTabGetPropsEvent read FOnTabGetProps write FOnTabGetProps;

    { event called after close button click }

    property OnTabClose: TTabCloseEvent read FOnTabClose write FOnTabClose;

    { event used for definition of tab popup }

    property OnTabGetPopupMenu: TTabGetPopupMenu read FOnTabGetPopupMenu write FOnTabGetPopupMenu;

    { event for user drawing of tab background }

    property OnDrawTabBackground: TTabDrawTabEvent read FOnDrawTabBackground write FOnDrawTabBackground;

    { event for user drawing of tab content }

    property OnDrawTabContent: TTabDrawTabEvent read FOnDrawTabContent write FOnDrawTabContent;

    { event for user drawing of tab close button }

    property OnDrawTabCloseBtn: TTabDrawTabEvent read FOnDrawTabCloseBtn write FOnDrawTabCloseBtn;

    { event for any additional user drawing after tab is drawn }

    property OnDrawTabFinalize: TTabDrawTabEvent read FOnDrawTabFinalize write FOnDrawTabFinalize;

I hope it helps

Tomas

Dne sobota 3. ledna 2026 v 21:16:57 UTC+1 uživatel mariod...@gmail.com napsal: