54716119b3
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2450 8e941d3f-bd1b-0410-a28a-d453659cc2b4
1637 lines
54 KiB
ObjectPascal
1637 lines
54 KiB
ObjectPascal
unit SpkToolbar;
|
|
|
|
{$mode delphi}
|
|
{.$Define EnhancedRecordSupport}
|
|
|
|
(*******************************************************************************
|
|
* *
|
|
* Plik: SpkToolbar.pas *
|
|
* Opis: G³ówny komponent toolbara *
|
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u¿ycie komponentu bez *
|
|
* uprzedniego uzyskania licencji od autora stanowi z³amanie *
|
|
* prawa autorskiego! *
|
|
* *
|
|
*******************************************************************************)
|
|
|
|
{
|
|
changes by Werner Pamler --> version 0.2 (c) 2012:
|
|
* add TSpkCheckbox and TSpkRadiobutton (unit spkt_Checkboxes.pas)
|
|
* apply ImageIndex when assigning an action
|
|
* add property editor for image index
|
|
- use specialized ImageIndexPropertyEditor to link to the imagelist
|
|
- assign default values to ImageIndex properties
|
|
- use types TImageIndex instead of integer
|
|
* make sure that properties (caption, imageindex etc) are updated when the
|
|
action changes
|
|
* Fixed button state to change immediately after mouse-up from pressed to hover
|
|
* Found bug in ComponentEditor form causing "Class not found" error: added tabs,
|
|
panes, or items were nameless. Assigning a name by FDesigner.UniqueName fixed
|
|
the issue.
|
|
* Duplicate components after Cut & Paste because missing destruction of
|
|
components after deletion from internal list
|
|
* Naming issue of components added by designer (counter starting at 2, not 1) fixed
|
|
* Change default color of the SpkToolbar to clSkyBlue
|
|
* add component icon
|
|
* Add events for OnClick (Tab), and OnTabChanging and OnTabChange (Toolbar)
|
|
|
|
- Still open: units of the added controls are not added to uses clause automatically
|
|
Note: add some other component to form and the missing units are added!
|
|
}
|
|
|
|
interface
|
|
|
|
uses
|
|
LCLType, LMessages, Graphics, SysUtils, Controls, Classes, Math, Dialogs,
|
|
Types, SpkGraphTools, SpkGUITools, SpkMath,
|
|
spkt_Appearance, spkt_BaseItem, spkt_Const, spkt_Dispatch, spkt_Tab,
|
|
spkt_Pane, spkt_Types;
|
|
|
|
type /// <summary>Typ opisuj¹cy regiony toolbara, które s¹ u¿ywane podczas
|
|
/// obs³ugi interakcji z mysz¹</summary>
|
|
TSpkMouseToolbarElement = (teNone, teToolbarArea, teTabs, teTabContents);
|
|
|
|
TSpkTabChangingEvent = procedure (Sender: TObject; OldIndex, NewIndex: Integer;
|
|
var Allowed: Boolean) of object;
|
|
|
|
type TSpkToolbar = class;
|
|
|
|
/// <summary>Klasa dyspozytora s³u¿¹ca do bezpiecznego przyjmowania
|
|
/// informacji oraz ¿¹dañ od pod-elementów</summary>
|
|
TSpkToolbarDispatch = class(TSpkBaseToolbarDispatch)
|
|
private
|
|
/// <summary>Komponent toolbara, który przyjmuje informacje i ¿¹dania
|
|
/// od pod-elementów</summary>
|
|
FToolbar : TSpkToolbar;
|
|
protected
|
|
public
|
|
// *******************
|
|
// *** Konstruktor ***
|
|
// *******************
|
|
|
|
/// <summary>Konstruktor</summary>
|
|
constructor Create(AToolbar : TSpkToolbar);
|
|
|
|
// ******************************************************************
|
|
// *** Implementacja abstrakcyjnych metod TSpkBaseToolbarDispatch ***
|
|
// ******************************************************************
|
|
|
|
/// <summary>Metoda wywo³ywana, gdy zmieni siê zawartoœæ obiektu wygl¹du
|
|
/// zawieraj¹cego kolory i czcionki u¿ywane do rysowania toolbara.
|
|
/// </summary>
|
|
procedure NotifyAppearanceChanged; override;
|
|
/// <summary>Metoda wywo³ywana, gdy zmieni siê lista pod-elementów jednego
|
|
/// z elementów toolbara</summary>
|
|
procedure NotifyItemsChanged; override;
|
|
/// <summary>Metoda wywo³ywana, gdy zmieni siê rozmiar lub po³o¿enie
|
|
/// (metryka) jednego z elementów toolbara</summary>
|
|
procedure NotifyMetricsChanged; override;
|
|
/// <summary>Metoda wywo³ywana, gdy zmieni siê wygl¹d jednego z elementów
|
|
/// toolbara, nie wymagaj¹cy jednak przebudowania metryk.</summary>
|
|
procedure NotifyVisualsChanged; override;
|
|
/// <summary>Metoda ¿¹da dostarczenia przez toolbar pomocniczej
|
|
/// bitmapy u¿ywanej - przyk³adowo - do obliczania rozmiarów renderowanego
|
|
/// tekstu</summary>
|
|
function GetTempBitmap : TBitmap; override;
|
|
/// <summary>Metoda przelicza wspó³rzêdne toolbara na wspó³rzêdne
|
|
/// ekranu, co umo¿liwia - na przyk³ad - rozwiniêcie popup menu.</summary>
|
|
function ClientToScreen(Point : T2DIntPoint) : T2DIntPoint; override;
|
|
end;
|
|
|
|
/// <summary>Rozszerzony pasek narzêdzi inspirowany Microsoft Fluent
|
|
/// UI</summary>
|
|
|
|
{ TSpkToolbar }
|
|
|
|
TSpkToolbar = class(TCustomControl)
|
|
private
|
|
/// <summary>Instancja obiektu dyspozytora przekazywanego elementom
|
|
/// toolbara</summary>
|
|
FToolbarDispatch : TSpkToolbarDispatch;
|
|
|
|
/// <summary>Bufor w którym rysowany jest toolbar</summary>
|
|
FBuffer : TBitmap;
|
|
/// <summary>Pomocnicza bitmapa przekazywana na ¿yczenie elementom
|
|
/// toolbara</summary>
|
|
FTemporary : TBitmap;
|
|
|
|
/// <summary>Tablica rectów "uchwytów" zak³adek</summary>
|
|
FTabRects : array of T2DIntRect;
|
|
/// <summary>Cliprect obszaru "uchwytów" zak³adek</summary>
|
|
FTabClipRect : T2DIntRect;
|
|
/// <summary>Cliprect obszaru zawartoœci zak³adki</summary>
|
|
FTabContentsClipRect : T2DIntRect;
|
|
|
|
/// <summary>Element toolbara znajduj¹cy siê obecnie pod myszk¹</summary>
|
|
FMouseHoverElement : TSpkMouseToolbarElement;
|
|
/// <summary>Element toolbara maj¹cy obecnie wy³¹cznoœæ na otrzymywanie
|
|
/// komunikatów od myszy</summary>
|
|
FMouseActiveElement : TSpkMouseToolbarElement;
|
|
|
|
/// <summary>"Uchwyt" zak³adki, nad którym znajduje siê obecnie mysz
|
|
/// </summary>
|
|
FTabHover : integer;
|
|
|
|
/// <summary>Flaga informuj¹ca o tym, czy metryki toolbara i jego elementów
|
|
/// s¹ aktualne</summary>
|
|
FMetricsValid : boolean;
|
|
/// <summary>Flaga informuj¹ca o tym, czy zawartoœæ bufora jest aktualna
|
|
/// </summary>
|
|
FBufferValid : boolean;
|
|
/// <summary>Flaga InternalUpdating pozwala na zablokowanie walidacji
|
|
/// metryk i bufora w momencie, gdy komponent przebudowuje swoj¹ zawartoœæ.
|
|
/// FInternalUpdating jest zapalana i gaszona wewnêtrznie, przez komponent.
|
|
/// </summary>
|
|
FInternalUpdating : boolean;
|
|
/// <summary>Flaga IUpdating pozwala na zablokowanie walidacji
|
|
/// metryk i bufora w momencie, gdy u¿ytkownik przebudowuje zawartoœæ
|
|
/// komponentu. FUpdating jest sterowana przez u¿ytkownika.</summary>
|
|
FUpdating : boolean;
|
|
|
|
FOnTabChanging: TSpkTabChangingEvent;
|
|
FOnTabChanged: TNotifyEvent;
|
|
|
|
protected
|
|
/// <summary>Instancja obiektu wygl¹du, przechowuj¹cego kolory i czcionki
|
|
/// u¿ywane podczas renderowania komponentu</summary>
|
|
FAppearance : TSpkToolbarAppearance;
|
|
/// <summary>Zak³adki toolbara</summary>
|
|
FTabs : TSpkTabs;
|
|
/// <summary>Indeks wybranej zak³adki</summary>
|
|
FTabIndex : integer;
|
|
/// <summary>Lista ma³ych obrazków elementów toolbara</summary>
|
|
FImages : TImageList;
|
|
/// <summary>Lista ma³ych obrazków w stanie "disabled". Jeœli nie jest
|
|
/// przypisana, obrazki w stanie "disabled" bêd¹ generowane automatycznie.
|
|
/// </summary>
|
|
FDisabledImages : TImageList;
|
|
/// <summary>Lista du¿ych obrazków elementów toolbara</summary>
|
|
FLargeImages : TImageList;
|
|
/// <summary>Lista du¿ych obrazków w stanie "disabled". Jeœli nie jest
|
|
/// przypisana, obrazki w stanie "disabled" bêd¹ generowane automatycznie.
|
|
/// </summary>
|
|
FDisabledLargeImages : TImageList;
|
|
|
|
function DoTabChanging(OldIndex, NewIndex: Integer): Boolean;
|
|
// *******************************************
|
|
// *** Zarz¹dzanie stanem metryki i bufora ***
|
|
// *******************************************
|
|
|
|
/// <summary>Metoda gasi flagi: FMetricsValid oraz FBufferValid</summary>
|
|
procedure SetMetricsInvalid;
|
|
/// <summary>Metoda gasi flagê FBufferValid</summary>
|
|
procedure SetBufferInvalid;
|
|
/// <summary>Metoda waliduje metryki toolbara i jego elementów</summary>
|
|
procedure ValidateMetrics;
|
|
/// <summary>Metoda waliduje zawartoϾ bufora</summary>
|
|
procedure ValidateBuffer;
|
|
/// <summary>Metoda w³¹cza tryb wewnêtrznej przebudowy - zapala flagê
|
|
/// FInternalUpdating</summary>
|
|
procedure InternalBeginUpdate;
|
|
/// <summary>Metoda wy³¹cza tryb wewnêtrznej przebudowy - gasi flagê
|
|
/// FInternalUpdating</summary>
|
|
procedure InternalEndUpdate;
|
|
|
|
// ********************************************
|
|
// *** Pokrycie metod z dziedziczonych klas ***
|
|
// ********************************************
|
|
|
|
/// <summary>Zmiana rozmiaru komponentu</summary>
|
|
procedure Resize; override;
|
|
/// <summary>Metoda wywo³ywana po opuszczeniu obszaru komponentu przez
|
|
/// wskaŸnik myszy</summary>
|
|
procedure MouseLeave;
|
|
/// <summary>Metoda wywo³ywana po wciœniêciu przycisku myszy</summary>
|
|
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
|
|
X, Y: Integer); override;
|
|
/// <summary>Metoda wywo³ywana, gdy nad komponentem przesunie siê wskaŸnik
|
|
/// myszy</summary>
|
|
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
|
|
/// <summary>Metoda wywo³ywana po puszczeniu przycisku myszy</summary>
|
|
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
|
|
X, Y: Integer); override;
|
|
/// <summary>Metoda wywo³ywana, gdy ca³y komponent wczyta siê z DFMa
|
|
/// </summary>
|
|
procedure Loaded; override;
|
|
/// <summary>Metoda wywo³ywana, gdy komponent staje siê Ownerem innego
|
|
/// komponentu, b¹dŸ gdy jeden z jego pod-komponentów jest zwalniany
|
|
/// </summary>
|
|
procedure Notification(AComponent: TComponent;
|
|
Operation: TOperation); override;
|
|
|
|
// ******************************************
|
|
// *** Obs³uga zdarzeñ myszy dla zak³adek ***
|
|
// ******************************************
|
|
|
|
/// <summary>Metoda wywo³ywana po opuszczeniu przez wskaŸnik myszy obszaru
|
|
/// "uchwytów" zak³adek</summary>
|
|
procedure TabMouseLeave;
|
|
/// <summary>Metoda wywo³ywana po wciœniêciu przycisku myszy, gdy wskaŸnik
|
|
/// jest nad obszarem zak³adek</summary>
|
|
procedure TabMouseDown(Button: TMouseButton; Shift: TShiftState;
|
|
X, Y: Integer);
|
|
/// <summary>Metoda wywo³ywana, gdy mysz przesunie siê ponad obszarem
|
|
/// "uchwytów" zak³adek</summary>
|
|
procedure TabMouseMove(Shift: TShiftState; X, Y: Integer);
|
|
/// <summary>Metoda wywo³ywana, gdy jeden z przycisków myszy zostanie
|
|
/// puszczony, gdy obszar zak³adek by³ aktywnym elementem toolbara
|
|
/// </summary>
|
|
procedure TabMouseUp(Button: TMouseButton; Shift: TShiftState;
|
|
X, Y: Integer);
|
|
|
|
// ******************
|
|
// *** Pomocnicze ***
|
|
// ******************
|
|
|
|
/// <summary>Metoda sprawdza, czy choæ jedna zak³adka ma ustawion¹ flagê
|
|
/// widocznoœci (Visible)</summary>
|
|
function AtLeastOneTabVisible : boolean;
|
|
|
|
// ***************************
|
|
// *** Obs³uga komunikatów ***
|
|
// ***************************
|
|
|
|
/// <summary>Komunikat odbierany, gdy mysz opuœci obszar komponentu
|
|
/// </summary>
|
|
procedure CMMouseLeave(var msg : TLMessage); message CM_MOUSELEAVE;
|
|
|
|
// ********************************
|
|
// *** Obs³uga designtime i DFM ***
|
|
// ********************************
|
|
|
|
/// <summary>Metoda zwraca elementy, które maj¹ zostaæ zapisane jako
|
|
/// pod-elementy komponentu</summary>
|
|
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
|
|
/// <summary>Metoda pozwala na zapisanie lub odczytanie dodatkowych
|
|
/// w³asnoœci komponentu</summary>
|
|
procedure DefineProperties(Filer : TFiler); override;
|
|
|
|
// *************************
|
|
// *** Gettery i settery ***
|
|
// *************************
|
|
|
|
/// <summary>Getter dla w³asnoœci Height</summary>
|
|
function GetHeight: integer;
|
|
/// <summary>Setter dla w³asnoœci Appearance</summary>
|
|
procedure SetAppearance(const Value: TSpkToolbarAppearance);
|
|
/// <summary>Getter dla w³asnoœci Color</summary>
|
|
function GetColor: TColor;
|
|
/// <summary>Setter dla w³asnoœci Color</summary>
|
|
procedure SetColor(const Value: TColor);
|
|
/// <summary>Setter dla w³asnoœci TabIndex</summary>
|
|
procedure SetTabIndex(const Value: integer);
|
|
/// <summary>Setter dla w³asnoœci Images</summary>
|
|
procedure SetImages(const Value: TImageList);
|
|
/// <summary>Setter dla w³asnoœci DisabledImages</summary>
|
|
procedure SetDisabledImages(const Value : TImageList);
|
|
/// <summary>Setter dla w³asnoœci LargeImages</summary>
|
|
procedure SetLargeImages(const Value : TImageList);
|
|
/// <summary>Setter dla w³asnoœci DisabledLargeImages</summary>
|
|
procedure SetDisabledLargeImages(const Value : TImageList);
|
|
public
|
|
|
|
// ***********************************
|
|
// *** Obs³uga zdarzeñ dyspozytora ***
|
|
// ***********************************
|
|
|
|
/// <summary>Reakcja na zmianê struktury elementów toolbara</summary>
|
|
procedure NotifyItemsChanged;
|
|
/// <summary>Reakcja na zmianê metryki elementów toolbara</summary>
|
|
procedure NotifyMetricsChanged;
|
|
/// <summary>Reakcja na zmianê wygl¹du elementów toolbara</summary>
|
|
procedure NotifyVisualsChanged;
|
|
/// <summary>Reakcja na zmianê zawartoœci klasy wygl¹du toolbara</summary>
|
|
procedure NotifyAppearanceChanged;
|
|
/// <summary>Metoda zwraca instancjê pomocniczej bitmapy</summary>
|
|
function GetTempBitmap : TBitmap;
|
|
|
|
// ********************************
|
|
// *** Konstruktor i destruktor ***
|
|
// ********************************
|
|
|
|
/// <summary>Konstruktor</summary>
|
|
constructor Create(AOwner : TComponent); override;
|
|
/// <summary>Destruktor</summary>
|
|
destructor Destroy; override;
|
|
|
|
// *****************
|
|
// *** Rysowanie ***
|
|
// *****************
|
|
|
|
/// <summary>Metoda odrysowuje zawartoϾ komponentu</summary>
|
|
procedure Paint; override;
|
|
/// <summary>Metoda wymusza przebudowanie metryk i bufora</summary>
|
|
procedure ForceRepaint;
|
|
/// <summary>Metoda prze³¹cza komponent w tryb aktualizacji zawartoœci
|
|
/// poprzez zapalenie flagi FUpdating</summary>
|
|
procedure BeginUpdate;
|
|
/// <summary>Metoda wy³¹cza tryb aktualizacji zawartoœci poprzez zgaszenie
|
|
/// flagi FUpdating</summary>
|
|
procedure EndUpdate;
|
|
|
|
// *************************
|
|
// *** Obs³uga elementów ***
|
|
// *************************
|
|
|
|
/// <summary>Metoda wywo³ywana w momencie, gdy jedna z zak³adek
|
|
/// jest zwalniana</summary>
|
|
/// <remarks>Nie nale¿y wywo³ywaæ metody FreeingTab z kodu! Jest ona
|
|
/// wywo³ywana wewnêtrznie, a jej zadaniem jest zaktualizowanie wewnêtrznej
|
|
/// listy zak³adek.</remarks>
|
|
procedure FreeingTab(ATab : TSpkTab);
|
|
|
|
// **************************
|
|
// *** Dostêp do zak³adek ***
|
|
// **************************
|
|
|
|
/// <summary>W³asnoœæ daje dostê do zak³adek w trybie runtime. Do edycji
|
|
/// zak³adek w trybie designtime s³u¿y odpowiedni edytor, zaœ zapisywanie
|
|
/// i odczytywanie z DFMa jest zrealizowane manualnie.</summary>
|
|
property Tabs : TSpkTabs read FTabs;
|
|
published
|
|
/// <summary>Kolor t³a komponentu</summary>
|
|
property Color : TColor read GetColor write SetColor default clSkyBlue;
|
|
/// <summary>Obiekt zawieraj¹cy atrybuty wygl¹du toolbara</summary>
|
|
property Appearance : TSpkToolbarAppearance read FAppearance write SetAppearance;
|
|
/// <summary>WysokoϾ toolbara (tylko do odczytu)</summary>
|
|
property Height : integer read GetHeight;
|
|
/// <summary>Aktywna zak³adka</summary>
|
|
property TabIndex : integer read FTabIndex write SetTabIndex;
|
|
/// <summary>Lista ma³ych obrazków</summary>
|
|
property Images : TImageList read FImages write SetImages;
|
|
/// <summary>Lista ma³ych obrazków w stanie "disabled"</summary>
|
|
property DisabledImages : TImageList read FDisabledImages write SetDisabledImages;
|
|
/// <summary>Lista du¿ych obrazków</summary>
|
|
property LargeImages : TImageList read FLargeImages write SetLargeImages;
|
|
/// <summary>Lista du¿ych obrazków w stanie "disabled"</summary>
|
|
property DisabledLargeImages : TImageList read FDisabledLargeImages write SetDisabledLargeImages;
|
|
|
|
// <summary>Events called before and after a different tab is selected</summary>
|
|
property OnTabChanging: TSpkTabChangingEvent read FOnTabChanging write FOnTabChanging;
|
|
property OnTabChanged: TNotifyEvent read FOnTabChanged write FOnTabChanged;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
LCLIntf;
|
|
|
|
{ TSpkToolbarDispatch }
|
|
|
|
function TSpkToolbarDispatch.ClientToScreen(Point: T2DIntPoint): T2DIntPoint;
|
|
begin
|
|
{$IFDEF EnhancedRecordSupport}
|
|
if FToolbar<>nil then
|
|
result:=FToolbar.ClientToScreen(Point) else
|
|
result:=T2DIntPoint.Create(-1,-1);
|
|
{$ELSE}
|
|
if FToolbar<>nil then
|
|
result:=FToolbar.ClientToScreen(Point) else
|
|
result.Create(-1,-1);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
constructor TSpkToolbarDispatch.Create(AToolbar: TSpkToolbar);
|
|
begin
|
|
inherited Create;
|
|
FToolbar:=AToolbar;
|
|
end;
|
|
|
|
function TSpkToolbarDispatch.GetTempBitmap: TBitmap;
|
|
begin
|
|
if FToolbar<>nil then
|
|
result:=FToolbar.GetTempBitmap else
|
|
result:=nil;
|
|
end;
|
|
|
|
procedure TSpkToolbarDispatch.NotifyAppearanceChanged;
|
|
begin
|
|
if FToolbar<>nil then
|
|
FToolbar.NotifyAppearanceChanged;
|
|
end;
|
|
|
|
procedure TSpkToolbarDispatch.NotifyMetricsChanged;
|
|
begin
|
|
if FToolbar<>nil then
|
|
FToolbar.NotifyMetricsChanged;
|
|
end;
|
|
|
|
procedure TSpkToolbarDispatch.NotifyItemsChanged;
|
|
begin
|
|
if FToolbar<>nil then
|
|
FToolbar.NotifyItemsChanged;
|
|
end;
|
|
|
|
procedure TSpkToolbarDispatch.NotifyVisualsChanged;
|
|
begin
|
|
if FToolbar<>nil then
|
|
FToolbar.NotifyVisualsChanged;
|
|
end;
|
|
|
|
{ TSpkToolbar }
|
|
|
|
function TSpkToolbar.AtLeastOneTabVisible: boolean;
|
|
|
|
var i : integer;
|
|
TabVisible : boolean;
|
|
|
|
begin
|
|
result:=FTabs.count>0;
|
|
if result then
|
|
begin
|
|
TabVisible:=false;
|
|
i:=FTabs.count-1;
|
|
while (i>=0) and not(TabVisible) do
|
|
begin
|
|
TabVisible:=FTabs[i].Visible;
|
|
dec(i);
|
|
end;
|
|
result:=result and TabVisible;
|
|
end;
|
|
end;
|
|
|
|
procedure TSpkToolbar.BeginUpdate;
|
|
begin
|
|
FUpdating:=true;
|
|
end;
|
|
|
|
procedure TSpkToolbar.CMMouseLeave(var msg: TLMessage);
|
|
begin
|
|
inherited;
|
|
MouseLeave;
|
|
end;
|
|
|
|
constructor TSpkToolbar.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
|
|
// Inicjacja dziedziczonych w³asnoœci
|
|
inherited Align:=alTop;
|
|
//todo: not found in lcl
|
|
//inherited AlignWithMargins:=true;
|
|
inherited Height:=TOOLBAR_HEIGHT;
|
|
inherited Doublebuffered:=true;
|
|
|
|
// Inicjacja wewnêtrznych pól danych
|
|
FToolbarDispatch:=TSpkToolbarDispatch.Create(self);
|
|
|
|
FBuffer:=TBitmap.create;
|
|
FBuffer.PixelFormat:=pf24bit;
|
|
|
|
FTemporary:=TBitmap.create;
|
|
FTemporary.Pixelformat:=pf24bit;
|
|
|
|
setlength(FTabRects,0);
|
|
|
|
{$IFDEF EnhancedRecordSupport}
|
|
FTabClipRect:=T2DIntRect.create(0,0,0,0);
|
|
FTabContentsClipRect:=T2DIntRect.create(0,0,0,0);
|
|
{$ELSE}
|
|
FTabClipRect.create(0,0,0,0);
|
|
FTabContentsClipRect.create(0,0,0,0);
|
|
{$ENDIF}
|
|
|
|
FMouseHoverElement:=teNone;
|
|
FMouseActiveElement:=teNone;
|
|
|
|
FTabHover:=-1;
|
|
|
|
// Inicjacja pól
|
|
FAppearance:=TSpkToolbarAppearance.Create(FToolbarDispatch);
|
|
|
|
FTabs:=TSpkTabs.Create(self);
|
|
FTabs.ToolbarDispatch:=FToolbarDispatch;
|
|
FTabs.Appearance:=FAppearance;
|
|
|
|
FTabIndex:=-1;
|
|
Color := clSkyBlue;
|
|
end;
|
|
|
|
procedure TSpkToolbar.DefineProperties(Filer: TFiler);
|
|
begin
|
|
inherited DefineProperties(Filer);
|
|
|
|
Filer.DefineProperty('Tabs',FTabs.ReadNames,FTabs.WriteNames,true);
|
|
end;
|
|
|
|
destructor TSpkToolbar.Destroy;
|
|
begin
|
|
// Zwalniamy pola
|
|
FTabs.Free;
|
|
|
|
FAppearance.Free;
|
|
|
|
// Zwalniamy wewnêtrzne pola
|
|
FTemporary.Free;
|
|
FBuffer.Free;
|
|
|
|
FToolbarDispatch.Free;
|
|
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TSpkToolbar.EndUpdate;
|
|
begin
|
|
FUpdating:=false;
|
|
|
|
ValidateMetrics;
|
|
ValidateBuffer;
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.ForceRepaint;
|
|
begin
|
|
SetMetricsInvalid;
|
|
SetBufferInvalid;
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.FreeingTab(ATab: TSpkTab);
|
|
begin
|
|
FTabs.RemoveReference(ATab);
|
|
end;
|
|
|
|
procedure TSpkToolbar.GetChildren(Proc: TGetChildProc; Root: TComponent);
|
|
|
|
var i : integer;
|
|
|
|
begin
|
|
inherited;
|
|
|
|
if FTabs.Count>0 then
|
|
for i := 0 to FTabs.Count - 1 do
|
|
Proc(FTabs.Items[i]);
|
|
end;
|
|
|
|
function TSpkToolbar.GetColor: TColor;
|
|
begin
|
|
result:=inherited Color;
|
|
end;
|
|
|
|
function TSpkToolbar.GetHeight: integer;
|
|
begin
|
|
result:=inherited Height;
|
|
end;
|
|
|
|
function TSpkToolbar.GetTempBitmap: TBitmap;
|
|
begin
|
|
result:=FTemporary;
|
|
end;
|
|
|
|
procedure TSpkToolbar.InternalBeginUpdate;
|
|
begin
|
|
FInternalUpdating:=true;
|
|
end;
|
|
|
|
procedure TSpkToolbar.InternalEndUpdate;
|
|
begin
|
|
FInternalUpdating:=false;
|
|
|
|
// Po wewnêtrznych zmianach odœwie¿amy metryki i bufor
|
|
ValidateMetrics;
|
|
ValidateBuffer;
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.Loaded;
|
|
begin
|
|
inherited;
|
|
|
|
InternalBeginUpdate;
|
|
|
|
if FTabs.ListState = lsNeedsProcessing then
|
|
begin
|
|
FTabs.ProcessNames(self.Owner);
|
|
end;
|
|
|
|
InternalEndUpdate;
|
|
|
|
// Proces wewnêtrznego update'u zawsze odœwie¿a na koñcu metryki i bufor oraz
|
|
// odrysowuje komponent.
|
|
end;
|
|
|
|
procedure TSpkToolbar.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
|
|
Y: Integer);
|
|
|
|
begin
|
|
// Podczas procesu przebudowy mysz jest ignorowana.
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
|
|
inherited MouseDown(Button, Shift, X, Y);
|
|
|
|
// Mo¿liwe, ¿e zosta³ wciœniêty kolejny przycisk myszy. W takiej sytuacji
|
|
// aktywny obiekt otrzymuje kolejn¹ notyfikacjê.
|
|
if FMouseActiveElement=teTabs then
|
|
begin
|
|
TabMouseDown(Button, Shift, X, Y);
|
|
end else
|
|
if FMouseActiveElement=teTabContents then
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseDown(Button, Shift, X, Y);
|
|
end else
|
|
if FMouseActiveElement = teToolbarArea then
|
|
begin
|
|
// Placeholder, jeœli zajdzie potrzeba obs³ugi tego zdarzenia
|
|
end else
|
|
// Jeœli nie ma aktywnego elementu, aktywnym staje siê ten, który obecnie
|
|
// jest pod mysz¹.
|
|
if FMouseActiveElement=teNone then
|
|
begin
|
|
if FMouseHoverElement = teTabs then
|
|
begin
|
|
FMouseActiveElement:=teTabs;
|
|
TabMouseDown(Button, Shift, X, Y);
|
|
end else
|
|
if FMouseHoverElement = teTabContents then
|
|
begin
|
|
FMouseActiveElement:=teTabContents;
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseDown(Button, Shift, X, Y);
|
|
end else
|
|
if FMouseHoverElement = teToolbarArea then
|
|
begin
|
|
FMouseActiveElement:=teToolbarArea;
|
|
|
|
// Placeholder, jeœli zajdzie potrzeba obs³ugi tego zdarzenia
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TSpkToolbar.MouseLeave;
|
|
|
|
begin
|
|
// Podczas procesu przebudowy mysz jest ignorowana.
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
|
|
// MouseLeave nie ma szans byæ zawo³ane dla obiektu aktywnego, bo po
|
|
// wciœniêciu przycisku myszy ka¿dy jej ruch jest przekazywany jako
|
|
// MouseMove. Jeœli mysz wyjedzie za obszar komponentu, MouseLeave
|
|
// zostanie zawo³any zaraz po MouseUp - ale MouseUp czyœci aktywny
|
|
// obiekt.
|
|
if FMouseActiveElement = teNone then
|
|
begin
|
|
// Jeœli nie ma obiektu aktywnego, obs³ugujemy elementy pod mysz¹
|
|
if FMouseHoverElement = teTabs then
|
|
begin
|
|
TabMouseLeave;
|
|
end else
|
|
if FMouseHoverElement = teTabContents then
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseLeave;
|
|
end else
|
|
if FMouseHoverElement = teToolbarArea then
|
|
begin
|
|
// Placeholder, jeœli bêdzie potrzeba obs³ugi tego zdarzenia
|
|
end;
|
|
end;
|
|
|
|
FMouseHoverElement:=teNone;
|
|
end;
|
|
|
|
procedure TSpkToolbar.MouseMove(Shift: TShiftState; X, Y: Integer);
|
|
|
|
var NewMouseHoverElement : TSpkMouseToolbarElement;
|
|
MousePoint : T2DIntVector;
|
|
|
|
begin
|
|
// Podczas procesu przebudowy mysz jest ignorowana.
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
|
|
inherited MouseMove(Shift, X, Y);
|
|
|
|
// Sprawdzamy, który obiekt jest pod mysz¹
|
|
{$IFDEF EnhancedRecordSupport}
|
|
MousePoint:=T2DIntVector.create(x,y);
|
|
{$ELSE}
|
|
MousePoint.create(x,y);
|
|
{$ENDIF}
|
|
|
|
if FTabClipRect.Contains(MousePoint) then
|
|
NewMouseHoverElement:=teTabs else
|
|
if FTabContentsClipRect.Contains(MousePoint) then
|
|
NewMouseHoverElement:=teTabContents else
|
|
if (X>=0) and (Y>=0) and (X<self.width) and (Y<self.height) then
|
|
NewMouseHoverElement:=teToolbarArea else
|
|
NewMouseHoverElement:=teNone;
|
|
|
|
// Jeœli jest jakiœ aktywny obiekt, to on ma wy³¹cznoœæ na komunikaty
|
|
if FMouseActiveElement = teTabs then
|
|
begin
|
|
TabMouseMove(Shift, X, Y);
|
|
end else
|
|
if FMouseActiveElement = teTabContents then
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseMove(Shift, X, Y);
|
|
end else
|
|
if FMouseActiveElement = teToolbarArea then
|
|
begin
|
|
// Placeholder, jeœli zajdzie potrzeba obs³ugi tego zdarzenia
|
|
end else
|
|
if FMouseActiveElement = teNone then
|
|
begin
|
|
// Jeœli element pod mysz¹ siê zmienia, informujemy poprzedni element o
|
|
// tym, ¿e mysz opuszcza jego obszar
|
|
if NewMouseHoverElement<>FMouseHoverElement then
|
|
begin
|
|
if FMouseHoverElement = teTabs then
|
|
begin
|
|
TabMouseLeave;
|
|
end else
|
|
if FMouseHoverElement = teTabContents then
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseLeave;
|
|
end else
|
|
if FMouseHoverElement = teToolbarArea then
|
|
begin
|
|
// Placeholder, jeœli zajdzie potrzeba obs³ugi tego zdarzenia
|
|
end;
|
|
end;
|
|
|
|
// Element pod mysz¹ otrzymuje MouseMove
|
|
if NewMouseHoverElement = teTabs then
|
|
begin
|
|
TabMouseMove(Shift, X, Y);
|
|
end else
|
|
if NewMouseHoverElement = teTabContents then
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseMove(Shift, X, Y);
|
|
end else
|
|
if NewMouseHoverElement = teToolbarArea then
|
|
begin
|
|
// Placeholder, jeœli zajdzie potrzeba obs³ugi tego zdarzenia
|
|
end;
|
|
end;
|
|
|
|
FMouseHoverElement:=NewMouseHoverElement;
|
|
end;
|
|
|
|
procedure TSpkToolbar.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
|
|
Y: Integer);
|
|
|
|
var ClearActive: Boolean;
|
|
|
|
begin
|
|
// Podczas procesu przebudowy mysz jest ignorowana.
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
|
|
inherited MouseUp(Button, Shift, X, Y);
|
|
|
|
ClearActive:=not(ssLeft in Shift) and not(ssMiddle in Shift) and not(ssRight in Shift);
|
|
|
|
// Jeœli jest jakiœ aktywny obiekt, to on ma wy³¹cznoœæ na otrzymywanie
|
|
// komunikatów
|
|
if FMouseActiveElement=teTabs then
|
|
begin
|
|
TabMouseUp(Button, Shift, X, Y);
|
|
end else
|
|
if FMouseActiveElement=teTabContents then
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseUp(Button, Shift, X, Y);
|
|
end else
|
|
if FMouseActiveElement = teToolbarArea then
|
|
begin
|
|
// Placeholder, jeœli zajdzie potrzeba obs³ugi tego zdarzenia
|
|
end;
|
|
|
|
// Jeœli puszczono ostatni przycisk i mysz nie znajduje siê nad aktywnym
|
|
// obiektem, trzeba dodatkowo wywo³aæ MouseLeave dla aktywnego i MouseMove
|
|
// dla obiektu pod mysz¹.
|
|
if ClearActive and (FMouseActiveElement<>FMouseHoverElement) then
|
|
begin
|
|
if FMouseActiveElement = teTabs then
|
|
TabMouseLeave else
|
|
if FMouseActiveElement = teTabContents then
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseLeave;
|
|
end else
|
|
if FMouseActiveElement = teToolbarArea then
|
|
begin
|
|
// Placeholder, jeœli zajdzie potrzeba obs³ugi tego zdarzenia
|
|
end;
|
|
|
|
if FMouseHoverElement=teTabs then
|
|
TabMouseMove(Shift, X, Y) else
|
|
if FMouseHoverElement=teTabContents then
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].MouseMove(Shift, X, Y);
|
|
end else
|
|
if FMouseHoverElement = teToolbarArea then
|
|
begin
|
|
// Placeholder, jeœli zajdzie potrzeba obs³ugi tego zdarzenia
|
|
end;
|
|
end;
|
|
|
|
// MouseUp gasi aktywny obiekt, o ile zosta³y puszczone wszystkie
|
|
// przyciski
|
|
if ClearActive then
|
|
FMouseActiveElement:=teNone;
|
|
end;
|
|
|
|
procedure TSpkToolbar.Notification(AComponent: TComponent;
|
|
Operation: TOperation);
|
|
|
|
var Tab : TSpkTab;
|
|
Pane : TSpkPane;
|
|
Item : TSpkBaseItem;
|
|
|
|
begin
|
|
inherited;
|
|
|
|
if Operation <> opRemove then
|
|
exit;
|
|
|
|
if AComponent is TSpkTab then
|
|
begin
|
|
FreeingTab(AComponent as TSpkTab);
|
|
end else
|
|
if AComponent is TSpkPane then
|
|
begin
|
|
Pane:=AComponent as TSpkPane;
|
|
if (Pane.Parent<>nil) and (Pane.Parent is TSpkTab) then
|
|
begin
|
|
Tab:=Pane.Parent as TSpkTab;
|
|
Tab.FreeingPane(Pane);
|
|
end;
|
|
end else
|
|
if AComponent is TSpkBaseItem then
|
|
begin
|
|
Item:=AComponent as TSpkBaseItem;
|
|
if (Item.Parent<>nil) and (Item.Parent is TSpkPane) then
|
|
begin
|
|
Pane:=Item.Parent as TSpkPane;
|
|
Pane.FreeingItem(Item);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TSpkToolbar.NotifyAppearanceChanged;
|
|
begin
|
|
SetMetricsInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.NotifyMetricsChanged;
|
|
begin
|
|
SetMetricsInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.NotifyItemsChanged;
|
|
var
|
|
OldTabIndex: Integer;
|
|
begin
|
|
OldTabIndex := FTabIndex;
|
|
// Poprawianie TabIndex o ile zachodzi taka potrzeba
|
|
if not(AtLeastOneTabVisible) then FTabIndex:=-1
|
|
else
|
|
begin
|
|
FTabIndex:=max(0,min(FTabs.count-1,FTabIndex));
|
|
|
|
// Wiem, ¿e przynajmniej jedna zak³adka jest widoczna (z wczeœniejszego
|
|
// warunku), wiêc poni¿sza pêtla na pewno siê zakoñczy.
|
|
while not(FTabs[FTabIndex].Visible) do
|
|
FTabIndex:=(FTabIndex + 1) mod FTabs.count;
|
|
end;
|
|
FTabHover:=-1;
|
|
|
|
if DoTabChanging(OldTabIndex, FTabIndex) then begin
|
|
SetMetricsInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
|
|
if Assigned(FOnTabChanged) then FOnTabChanged(self);
|
|
end else
|
|
FTabIndex := OldTabIndex;
|
|
|
|
end;
|
|
|
|
procedure TSpkToolbar.NotifyVisualsChanged;
|
|
begin
|
|
SetBufferInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.Paint;
|
|
|
|
begin
|
|
// Jeœli trwa proces przebudowy (wewnêtrznej lub u¿ytkownika), walidacja metryk
|
|
// i bufora nie jest przeprowadzana, jednak bufor jest rysowany w takiej
|
|
// postaci, w jakiej zosta³ zapamiêtany przed rozpoczêciem procesu przebudowy.
|
|
if not(FInternalUpdating or FUpdating) then
|
|
begin
|
|
if not(FMetricsValid) then
|
|
ValidateMetrics;
|
|
if not(FBufferValid) then
|
|
ValidateBuffer;
|
|
end;
|
|
|
|
self.canvas.draw(0, 0, FBuffer);
|
|
end;
|
|
|
|
procedure TSpkToolbar.Resize;
|
|
begin
|
|
inherited Height:=TOOLBAR_HEIGHT;
|
|
|
|
SetMetricsInvalid;
|
|
SetBufferInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
|
|
inherited;
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetBufferInvalid;
|
|
begin
|
|
FBufferValid:=false;
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetColor(const Value: TColor);
|
|
begin
|
|
inherited Color:=Value;
|
|
SetBufferInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetDisabledImages(const Value: TImageList);
|
|
begin
|
|
FDisabledImages := Value;
|
|
FTabs.DisabledImages := Value;
|
|
SetMetricsInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetDisabledLargeImages(const Value: TImageList);
|
|
begin
|
|
FDisabledLargeImages := Value;
|
|
FTabs.DisabledLargeImages := Value;
|
|
SetMetricsInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetImages(const Value: TImageList);
|
|
begin
|
|
FImages := Value;
|
|
FTabs.Images := Value;
|
|
SetMetricsInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetLargeImages(const Value: TImageList);
|
|
begin
|
|
FLargeImages := Value;
|
|
FTabs.LargeImages := Value;
|
|
SetMetricsInvalid;
|
|
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
function TSpkToolbar.DoTabChanging(OldIndex, NewIndex: Integer): Boolean;
|
|
begin
|
|
Result := True;
|
|
if Assigned(FOnTabChanging) then
|
|
FOnTabChanging(Self, OldIndex, NewIndex, Result);
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetMetricsInvalid;
|
|
begin
|
|
FMetricsValid:=false;
|
|
FBufferValid:=false;
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetTabIndex(const Value: integer);
|
|
var
|
|
OldTabIndex: Integer;
|
|
begin
|
|
OldTabIndex := FTabIndex;
|
|
|
|
if not(AtLeastOneTabVisible) then FTabIndex:=-1
|
|
else
|
|
begin
|
|
FTabIndex:=max(0,min(FTabs.count-1, Value));
|
|
|
|
// Wiem, ¿e przynajmniej jedna zak³adka jest widoczna (z wczeœniejszego
|
|
// warunku), wiêc poni¿sza pêtla na pewno siê zakoñczy.
|
|
while not(FTabs[FTabIndex].Visible) do
|
|
FTabIndex:=(FTabIndex + 1) mod FTabs.count;
|
|
end;
|
|
FTabHover:=-1;
|
|
|
|
if DoTabChanging(OldTabIndex, FTabIndex) then begin
|
|
SetMetricsInvalid;
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
if Assigned(FOnTabChanged) then FOnTabChanged(self);
|
|
end else
|
|
FTabIndex := OldTabIndex;
|
|
end;
|
|
|
|
procedure TSpkToolbar.TabMouseDown(Button: TMouseButton; Shift: TShiftState; X,
|
|
Y: Integer);
|
|
|
|
var SelTab: Integer;
|
|
TabRect: T2DIntRect;
|
|
i: Integer;
|
|
|
|
begin
|
|
// Podczas procesu przebudowy mysz jest ignorowana.
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
|
|
SelTab:=-1;
|
|
if AtLeastOneTabVisible then
|
|
for i := 0 to FTabs.count - 1 do
|
|
if FTabs[i].visible then
|
|
begin
|
|
if FTabClipRect.IntersectsWith(FTabRects[i], TabRect) then
|
|
{$IFDEF EnhancedRecordSupport}
|
|
if TabRect.Contains(T2DIntPoint.Create(x, y)) then
|
|
{$ELSE}
|
|
if TabRect.Contains(x, y) then
|
|
{$ENDIF}
|
|
SelTab:=i;
|
|
end;
|
|
|
|
// Jeœli klikniêta zosta³a któraœ zak³adka, ró¿na od obecnie zaznaczonej,
|
|
// zmieñ zaznaczenie.
|
|
if (Button = mbLeft) and (SelTab<>-1) and (SelTab<>FTabIndex) then
|
|
begin
|
|
if DoTabChanging(FTabIndex, SelTab) then begin
|
|
FTabIndex:=SelTab;
|
|
SetMetricsInvalid;
|
|
Repaint;
|
|
if Assigned(FOnTabChanged) then FOnTabChanged(self);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TSpkToolbar.TabMouseLeave;
|
|
begin
|
|
// Podczas procesu przebudowy mysz jest ignorowana.
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
|
|
if FTabHover<>-1 then
|
|
begin
|
|
FTabHover:=-1;
|
|
SetBufferInvalid;
|
|
Repaint;
|
|
end;
|
|
end;
|
|
|
|
procedure TSpkToolbar.TabMouseMove(Shift: TShiftState; X, Y: Integer);
|
|
|
|
var NewTabHover : integer;
|
|
TabRect : T2DIntRect;
|
|
i : integer;
|
|
|
|
begin
|
|
// Podczas procesu przebudowy mysz jest ignorowana.
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
|
|
NewTabHover:=-1;
|
|
if AtLeastOneTabVisible then
|
|
for i := 0 to FTabs.count - 1 do
|
|
if FTabs[i].Visible then
|
|
begin
|
|
if FTabClipRect.IntersectsWith(FTabRects[i], TabRect) then
|
|
{$IFDEF EnhancedRecordSupport}
|
|
if TabRect.Contains(T2DIntPoint.Create(x, y)) then
|
|
{$ELSE}
|
|
if TabRect.Contains(x, y) then
|
|
{$ENDIF}
|
|
NewTabHover:=i;
|
|
end;
|
|
|
|
if NewTabHover<>FTabHover then
|
|
begin
|
|
FTabHover:=NewTabHover;
|
|
SetBufferInvalid;
|
|
Repaint;
|
|
end;
|
|
end;
|
|
|
|
procedure TSpkToolbar.TabMouseUp(Button: TMouseButton; Shift: TShiftState; X,
|
|
Y: Integer);
|
|
begin
|
|
// Podczas procesu przebudowy mysz jest ignorowana.
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
|
|
if (FTabIndex > -1) then
|
|
FTabs[FTabIndex].ExecOnClick;
|
|
|
|
// Zak³adki nie potrzebuj¹ obs³ugi MouseUp.
|
|
end;
|
|
|
|
procedure TSpkToolbar.SetAppearance(const Value: TSpkToolbarAppearance);
|
|
begin
|
|
FAppearance.assign(Value);
|
|
|
|
SetBufferInvalid;
|
|
if not(FInternalUpdating or FUpdating) then
|
|
Repaint;
|
|
end;
|
|
|
|
procedure TSpkToolbar.ValidateBuffer;
|
|
|
|
procedure DrawBackgroundColor;
|
|
|
|
begin
|
|
FBuffer.canvas.brush.color:=Color;
|
|
FBuffer.canvas.brush.style:=bsSolid;
|
|
FBuffer.canvas.fillrect(Rect(0, 0, self.width, self.height));
|
|
end;
|
|
|
|
procedure DrawBody;
|
|
|
|
var FocusedAppearance : TSpkToolbarAppearance;
|
|
i: Integer;
|
|
|
|
begin
|
|
// Pobieramy appearance aktualnie zaznaczonej zak³adki (b¹dŸ
|
|
// FToolbarAppearance, jeœli zaznaczona zak³adka nie ma ustawionego
|
|
// OverrideAppearance
|
|
if (FTabIndex<>-1) and (FTabs[FTabIndex].OverrideAppearance) then
|
|
FocusedAppearance:=FTabs[FTabIndex].CustomAppearance else
|
|
FocusedAppearance:=FAppearance;
|
|
|
|
TGuiTools.DrawRoundRect(FBuffer.Canvas,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntRect.Create(0,
|
|
TOOLBAR_TAB_CAPTIONS_HEIGHT,
|
|
self.width-1,
|
|
self.Height-1),
|
|
{$ELSE}
|
|
Create2DIntRect(0,
|
|
TOOLBAR_TAB_CAPTIONS_HEIGHT,
|
|
self.width-1,
|
|
self.Height-1),
|
|
{$ENDIF}
|
|
TOOLBAR_CORNER_RADIUS,
|
|
FocusedAppearance.Tab.GradientFromColor,
|
|
FocusedAppearance.Tab.GradientToColor,
|
|
FocusedAppearance.Tab.GradientType);
|
|
TGuiTools.DrawAARoundCorner(FBuffer,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntPoint.Create(0, TOOLBAR_TAB_CAPTIONS_HEIGHT),
|
|
{$ELSE}
|
|
Create2DIntPoint(0, TOOLBAR_TAB_CAPTIONS_HEIGHT),
|
|
{$ENDIF}
|
|
TOOLBAR_CORNER_RADIUS,
|
|
cpLeftTop,
|
|
FocusedAppearance.Tab.BorderColor);
|
|
TGuiTools.DrawAARoundCorner(FBuffer,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntPoint.Create(self.width - TOOLBAR_CORNER_RADIUS, TOOLBAR_TAB_CAPTIONS_HEIGHT),
|
|
{$ELSE}
|
|
Create2DIntPoint(self.width - TOOLBAR_CORNER_RADIUS, TOOLBAR_TAB_CAPTIONS_HEIGHT),
|
|
{$ENDIF}
|
|
TOOLBAR_CORNER_RADIUS,
|
|
cpRightTop,
|
|
FocusedAppearance.Tab.BorderColor);
|
|
TGuiTools.DrawAARoundCorner(FBuffer,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntPoint.Create(0, self.height - TOOLBAR_CORNER_RADIUS),
|
|
{$ELSE}
|
|
Create2DIntPoint(0, self.height - TOOLBAR_CORNER_RADIUS),
|
|
{$ENDIF}
|
|
TOOLBAR_CORNER_RADIUS,
|
|
cpLeftBottom,
|
|
FocusedAppearance.Tab.BorderColor);
|
|
TGuiTools.DrawAARoundCorner(FBuffer,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntPoint.Create(self.width - TOOLBAR_CORNER_RADIUS, self.height - TOOLBAR_CORNER_RADIUS),
|
|
{$ELSE}
|
|
Create2DIntPoint(self.width - TOOLBAR_CORNER_RADIUS, self.height - TOOLBAR_CORNER_RADIUS),
|
|
{$ENDIF}
|
|
TOOLBAR_CORNER_RADIUS,
|
|
cpRightBottom,
|
|
FocusedAppearance.Tab.BorderColor);
|
|
TGuiTools.DrawVLine(FBuffer, 0, TOOLBAR_TAB_CAPTIONS_HEIGHT + TOOLBAR_CORNER_RADIUS, self.height - TOOLBAR_CORNER_RADIUS, FocusedAppearance.Tab.BorderColor);
|
|
TGuiTools.DrawHLine(FBuffer, TOOLBAR_CORNER_RADIUS, self.Width-TOOLBAR_CORNER_RADIUS, self.height-1, FocusedAppearance.Tab.BorderColor);
|
|
TGuiTools.DrawVLine(FBuffer, self.width-1, TOOLBAR_TAB_CAPTIONS_HEIGHT + TOOLBAR_CORNER_RADIUS, self.height - TOOLBAR_CORNER_RADIUS, FocusedAppearance.Tab.BorderColor);
|
|
|
|
if not(AtLeastOneTabVisible) then
|
|
begin
|
|
// Jeœli nie ma zak³adek, rysujemy poziom¹ liniê
|
|
TGuiTools.DrawHLine(FBuffer, TOOLBAR_CORNER_RADIUS, self.width - TOOLBAR_CORNER_RADIUS, TOOLBAR_TAB_CAPTIONS_HEIGHT, FocusedAppearance.Tab.BorderColor);
|
|
end
|
|
else
|
|
begin
|
|
// Jeœli s¹, pozostawiamy miejsce na zak³adki
|
|
// Szukamy ostatniej widocznej
|
|
i:=FTabs.count-1;
|
|
while not(FTabs[i].Visible) do
|
|
dec(i);
|
|
|
|
// Tylko prawa czêœæ, reszta bêdzie narysowana wraz z zak³adkami
|
|
if FTabRects[i].Right<self.width - TOOLBAR_CORNER_RADIUS - 1 then
|
|
TGuiTools.DrawHLine(FBuffer, FTabRects[i].Right+1, self.width - TOOLBAR_CORNER_RADIUS, TOOLBAR_TAB_CAPTIONS_HEIGHT, FocusedAppearance.Tab.BorderColor);
|
|
end;
|
|
end;
|
|
|
|
procedure DrawTabs;
|
|
|
|
var i: Integer;
|
|
TabRect: T2DIntRect;
|
|
CurrentAppearance : TSpkToolbarAppearance;
|
|
FocusedAppearance : TSpkToolbarAppearance;
|
|
|
|
procedure DrawTabText(index : integer; AFont : TFont);
|
|
|
|
var
|
|
x, y: integer;
|
|
TabRect : T2DIntRect;
|
|
|
|
begin
|
|
TabRect:=FTabRects[index];
|
|
|
|
FBuffer.canvas.font.assign(AFont);
|
|
x:=TabRect.left + (TabRect.Width - FBuffer.Canvas.textwidth(FTabs[index].caption)) div 2;
|
|
y:=TabRect.top + (TabRect.Height - FBuffer.Canvas.Textheight('Wy')) div 2;
|
|
|
|
TGuiTools.DrawText(FBuffer.Canvas,
|
|
x,
|
|
y,
|
|
FTabs[index].Caption,
|
|
AFont.Color,
|
|
FTabClipRect);
|
|
end;
|
|
|
|
procedure DrawTab(index : integer;
|
|
Border, GradientFrom, GradientTo, TextColor : TColor);
|
|
|
|
var TabRect : T2DIntRect;
|
|
TabRegion : HRGN;
|
|
TmpRegion, TmpRegion2 : HRGN;
|
|
|
|
begin
|
|
// * Notatka! * Zak³adki zachodz¹ jednym pikslem na obszar toolbara,
|
|
// poniewa¿ musz¹ narysowaæ krawêdŸ, która zgra siê z krawêdzi¹ obszaru.
|
|
TabRect:=FTabRects[index];
|
|
|
|
// Œrodkowy prostok¹t
|
|
TabRegion:=CreateRectRgn(TabRect.Left + TAB_CORNER_RADIUS - 1,
|
|
TabRect.Top + TAB_CORNER_RADIUS,
|
|
TabRect.Right - TAB_CORNER_RADIUS + 1 + 1,
|
|
TabRect.Bottom + 1);
|
|
|
|
// Górna czêœæ z górnymi zaokr¹gleniami wypuk³ymi
|
|
TmpRegion:=CreateRectRgn(TabRect.Left + 2*TAB_CORNER_RADIUS - 1,
|
|
TabRect.Top,
|
|
TabRect.Right - 2*TAB_CORNER_RADIUS + 1 + 1,
|
|
TabRect.Top + TAB_CORNER_RADIUS);
|
|
CombineRgn(TabRegion, TabRegion, TmpRegion, RGN_OR);
|
|
DeleteObject(TmpRegion);
|
|
|
|
TmpRegion:=CreateEllipticRgn(TabRect.Left + TAB_CORNER_RADIUS - 1,
|
|
TabRect.Top,
|
|
TabRect.Left + 3 * TAB_CORNER_RADIUS,
|
|
TabRect.Top + 2 * TAB_CORNER_RADIUS + 1);
|
|
CombineRgn(TabRegion, TabRegion, TmpRegion, RGN_OR);
|
|
DeleteObject(TmpRegion);
|
|
|
|
TmpRegion:=CreateEllipticRgn(TabRect.Right - 3 * TAB_CORNER_RADIUS + 2,
|
|
TabRect.Top,
|
|
TabRect.Right - TAB_CORNER_RADIUS + 3,
|
|
TabRect.Top + 2 * TAB_CORNER_RADIUS + 1);
|
|
CombineRgn(TabRegion, TabRegion, TmpRegion, RGN_OR);
|
|
DeleteObject(TmpRegion);
|
|
|
|
// Dolna czêœæ z dolnymi zaokr¹gleniami wklês³ymi
|
|
|
|
TmpRegion:=CreateRectRgn(TabRect.Left,
|
|
TabRect.Bottom - TAB_CORNER_RADIUS,
|
|
TabRect.Right + 1,
|
|
TabRect.Bottom + 1);
|
|
|
|
TmpRegion2:=CreateEllipticRgn(TabRect.Left - TAB_CORNER_RADIUS,
|
|
TabRect.Bottom - 2 * TAB_CORNER_RADIUS + 1,
|
|
TabRect.Left + TAB_CORNER_RADIUS + 1,
|
|
TabRect.Bottom + 2);
|
|
CombineRgn(TmpRegion, TmpRegion, TmpRegion2, RGN_DIFF);
|
|
DeleteObject(TmpRegion2);
|
|
|
|
TmpRegion2:=CreateEllipticRgn(TabRect.Right - TAB_CORNER_RADIUS + 1,
|
|
TabRect.Bottom - 2 * TAB_CORNER_RADIUS + 1,
|
|
TabRect.Right + TAB_CORNER_RADIUS + 2,
|
|
TabRect.Bottom + 2);
|
|
CombineRgn(TmpRegion, TmpRegion, TmpRegion2, RGN_DIFF);
|
|
DeleteObject(TmpRegion2);
|
|
|
|
CombineRgn(TabRegion, TabRegion, TmpRegion, RGN_OR);
|
|
DeleteObject(TmpRegion);
|
|
|
|
TGUITools.DrawRegion(FBuffer.Canvas,
|
|
TabRegion,
|
|
TabRect,
|
|
GradientFrom,
|
|
GradientTo,
|
|
bkVerticalGradient);
|
|
|
|
DeleteObject(TabRegion);
|
|
|
|
// Ramka
|
|
TGuiTools.DrawAARoundCorner(FBuffer,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntPoint.create(TabRect.left, TabRect.bottom - TAB_CORNER_RADIUS + 1),
|
|
{$ELSE}
|
|
Create2DIntPoint(TabRect.left, TabRect.bottom - TAB_CORNER_RADIUS + 1),
|
|
{$ENDIF}
|
|
TAB_CORNER_RADIUS,
|
|
cpRightBottom,
|
|
Border,
|
|
FTabClipRect);
|
|
TGuiTools.DrawAARoundCorner(FBuffer,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntPoint.create(TabRect.right - TAB_CORNER_RADIUS + 1, TabRect.bottom - TAB_CORNER_RADIUS + 1),
|
|
{$ELSE}
|
|
Create2DIntPoint(TabRect.right - TAB_CORNER_RADIUS + 1, TabRect.bottom - TAB_CORNER_RADIUS + 1),
|
|
{$ENDIF}
|
|
TAB_CORNER_RADIUS,
|
|
cpLeftBottom,
|
|
Border,
|
|
FTabClipRect);
|
|
|
|
TGuiTools.DrawVLine(FBuffer,
|
|
TabRect.left + TAB_CORNER_RADIUS - 1,
|
|
TabRect.top + TAB_CORNER_RADIUS,
|
|
TabRect.Bottom - TAB_CORNER_RADIUS + 1,
|
|
Border,
|
|
FTabClipRect);
|
|
TGuiTools.DrawVLine(FBuffer,
|
|
TabRect.Right - TAB_CORNER_RADIUS + 1,
|
|
TabRect.top + TAB_CORNER_RADIUS,
|
|
TabRect.Bottom - TAB_CORNER_RADIUS + 1,
|
|
Border,
|
|
FTabClipRect);
|
|
|
|
TGuiTools.DrawAARoundCorner(FBuffer,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntPoint.create(TabRect.left + TAB_CORNER_RADIUS - 1, 0),
|
|
{$ELSE}
|
|
Create2DIntPoint(TabRect.left + TAB_CORNER_RADIUS - 1, 0),
|
|
{$ENDIF}
|
|
TAB_CORNER_RADIUS,
|
|
cpLeftTop,
|
|
Border,
|
|
FTabClipRect);
|
|
TGuiTools.DrawAARoundCorner(FBuffer,
|
|
{$IFDEF EnhancedRecordSupport}
|
|
T2DIntPoint.Create(TabRect.right - 2*TAB_CORNER_RADIUS + 2, 0),
|
|
{$ELSE}
|
|
Create2DIntPoint(TabRect.right - 2*TAB_CORNER_RADIUS + 2, 0),
|
|
{$ENDIF}
|
|
TAB_CORNER_RADIUS,
|
|
cpRightTop,
|
|
Border,
|
|
FTabClipRect);
|
|
|
|
TGuiTools.DrawHLine(FBuffer,
|
|
TabRect.left + 2*TAB_CORNER_RADIUS - 1,
|
|
TabRect.right - 2*TAB_CORNER_RADIUS + 2,
|
|
0,
|
|
Border,
|
|
FTabClipRect);
|
|
end;
|
|
|
|
procedure DrawBottomLine(index : integer;
|
|
Border : TColor);
|
|
|
|
var TabRect : T2DIntRect;
|
|
|
|
begin
|
|
TabRect:=FTabRects[index];
|
|
|
|
TGUITools.DrawHLine(FBuffer,
|
|
TabRect.left,
|
|
TabRect.right,
|
|
TabRect.bottom,
|
|
Border,
|
|
FTabClipRect);
|
|
end;
|
|
|
|
begin
|
|
// Zak³adam, ¿e zak³adki maj¹ rozs¹dne rozmiary
|
|
|
|
// Pobieramy appearance aktualnie zaznaczonej zak³adki (jej appearance, jeœli
|
|
// ma zapalon¹ flagê OverrideAppearance, FToolbarAppearance w przeciwnym
|
|
// wypadku)
|
|
if (FTabIndex<>-1) and (FTabs[FTabIndex].OverrideAppearance) then
|
|
FocusedAppearance:=FTabs[FTabIndex].CustomAppearance else
|
|
FocusedAppearance:=FAppearance;
|
|
|
|
if FTabs.count>0 then
|
|
for i := 0 to FTabs.count - 1 do
|
|
if FTabs[i].Visible then
|
|
begin
|
|
// Jest sens rysowaæ?
|
|
if not(FTabClipRect.IntersectsWith(FTabRects[i])) then
|
|
continue;
|
|
|
|
// Pobieramy appearance rysowanej w³aœnie zak³adki
|
|
if (FTabs[i].OverrideAppearance) then
|
|
CurrentAppearance:=FTabs[i].CustomAppearance else
|
|
CurrentAppearance:=FAppearance;
|
|
|
|
TabRect:=FTabRects[i];
|
|
|
|
// Rysujemy zak³adkê
|
|
if i = FTabIndex then
|
|
begin
|
|
if i = FTabHover then
|
|
begin
|
|
DrawTab(i,
|
|
CurrentAppearance.Tab.BorderColor,
|
|
TColorTools.Brighten(TColorTools.Brighten(CurrentAppearance.Tab.GradientFromColor, 50),50),
|
|
CurrentAppearance.Tab.GradientFromColor,
|
|
CurrentAppearance.Tab.TabHeaderFont.Color);
|
|
end
|
|
else
|
|
begin
|
|
DrawTab(i,
|
|
CurrentAppearance.Tab.BorderColor,
|
|
TColorTools.Brighten(CurrentAppearance.Tab.GradientFromColor, 50),
|
|
CurrentAppearance.Tab.GradientFromColor,
|
|
CurrentAppearance.Tab.TabHeaderFont.color);
|
|
end;
|
|
|
|
DrawTabText(i, CurrentAppearance.Tab.TabHeaderFont);
|
|
end
|
|
else
|
|
begin
|
|
if i = FTabHover then
|
|
begin
|
|
DrawTab(i,
|
|
TColorTools.Shade(self.Color,CurrentAppearance.Tab.BorderColor,50),
|
|
TColorTools.Shade(self.color,TColorTools.brighten(CurrentAppearance.Tab.GradientFromColor,50),50),
|
|
TColorTools.Shade(self.color,CurrentAppearance.Tab.GradientFromColor, 50),
|
|
CurrentAppearance.Tab.TabHeaderFont.color);
|
|
end;
|
|
|
|
// Dolna kreska
|
|
// Uwaga: Niezale¿nie od zak³adki rysowana kolorem appearance
|
|
// aktualnie zaznaczonej zak³adki!
|
|
DrawBottomLine(i, FocusedAppearance.Tab.BorderColor);
|
|
|
|
// Tekst
|
|
DrawTabText(i, CurrentAppearance.Tab.TabHeaderFont);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure DrawTabContents;
|
|
|
|
begin
|
|
if FTabIndex<>-1 then
|
|
FTabs[FTabIndex].Draw(FBuffer, FTabContentsClipRect);
|
|
end;
|
|
|
|
begin
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
if FBufferValid then
|
|
exit;
|
|
|
|
// ValidateBuffer mo¿e byæ wywo³ane tylko wtedy, gdy metrics zosta³y obliczone.
|
|
// Metoda zak³ada, ¿e bufor ma ju¿ odpowiednie rozmiary oraz ¿e wszystkie
|
|
// recty, zarówno toolbara jak i elementów podrzêdnych, zosta³y poprawnie
|
|
// obliczone.
|
|
|
|
// *** T³o komponentu ***
|
|
DrawBackgroundColor;
|
|
|
|
// *** Generowanie t³a dla toolbara ***
|
|
DrawBody;
|
|
|
|
// *** Zak³adki ***
|
|
DrawTabs;
|
|
|
|
// *** Zawartoœæ zak³adek ***
|
|
DrawTabContents;
|
|
|
|
// Bufor jest poprawny
|
|
FBufferValid:=true;
|
|
end;
|
|
|
|
procedure TSpkToolbar.ValidateMetrics;
|
|
|
|
var i : integer;
|
|
x : integer;
|
|
TabWidth: Integer;
|
|
TabAppearance : TSpkToolbarAppearance;
|
|
|
|
begin
|
|
if FInternalUpdating or FUpdating then
|
|
exit;
|
|
if FMetricsValid then
|
|
exit;
|
|
|
|
FBuffer.SetSize(self.width, self.height);
|
|
|
|
// *** Zak³adki ***
|
|
|
|
// Cliprect zak³adek (zawgórn¹ ramkê komponentu)
|
|
{$IFDEF EnhancedRecordSupport}
|
|
FTabClipRect:=T2DIntRect.Create(TOOLBAR_CORNER_RADIUS,
|
|
0,
|
|
self.width - TOOLBAR_CORNER_RADIUS - 1,
|
|
TOOLBAR_TAB_CAPTIONS_HEIGHT);
|
|
{$ELSE}
|
|
FTabClipRect.Create(TOOLBAR_CORNER_RADIUS,
|
|
0,
|
|
self.width - TOOLBAR_CORNER_RADIUS - 1,
|
|
TOOLBAR_TAB_CAPTIONS_HEIGHT);
|
|
{$ENDIF}
|
|
|
|
// Recty nag³ówków zak³adek (zawieraj¹ górn¹ ramkê komponentu)
|
|
setlength(FTabRects, FTabs.Count);
|
|
if FTabs.count>0 then
|
|
begin
|
|
x:=TOOLBAR_CORNER_RADIUS;
|
|
for i := 0 to FTabs.count - 1 do
|
|
if FTabs[i].Visible then
|
|
begin
|
|
// Pobieramy appearance zak³adki
|
|
if FTabs[i].OverrideAppearance then
|
|
TabAppearance:=FTabs[i].CustomAppearance else
|
|
TabAppearance:=FAppearance;
|
|
FBuffer.Canvas.font.assign(TabAppearance.Tab.TabHeaderFont);
|
|
|
|
TabWidth:=2 + // Ramka
|
|
2*TAB_CORNER_RADIUS + // Zaokr¹glenia
|
|
2*TOOLBAR_TAB_CAPTIONS_TEXT_HPADDING + // Wewnêtrzne marginesy
|
|
max(TOOLBAR_MIN_TAB_CAPTION_WIDTH,
|
|
FBuffer.Canvas.TextWidth(FTabs.Items[i].Caption)); // SzerokoϾ tekstu
|
|
|
|
FTabRects[i].Left:=x;
|
|
FTabRects[i].Right:=x + TabWidth - 1;
|
|
FTabRects[i].Top:=0;
|
|
FTabRects[i].Bottom:=TOOLBAR_TAB_CAPTIONS_HEIGHT;
|
|
|
|
x:=FTabRects[i].right+1;
|
|
end
|
|
else
|
|
begin
|
|
{$IFDEF EnhancedRecordSupport}
|
|
FTabRects[i]:=T2DIntRect.Create(-1,-1,-1,-1);
|
|
{$ELSE}
|
|
FTabRects[i].Create(-1,-1,-1,-1);
|
|
{$ENDIF}
|
|
end;
|
|
end;
|
|
|
|
// *** Tafle ***
|
|
|
|
if FTabIndex<>-1 then
|
|
begin
|
|
// Rect obszaru zak³adki
|
|
{$IFDEF EnhancedRecordSupport}
|
|
FTabContentsClipRect:=T2DIntRect.Create(TOOLBAR_BORDER_WIDTH + TAB_PANE_LEFTPADDING,
|
|
TOOLBAR_TAB_CAPTIONS_HEIGHT + TOOLBAR_BORDER_WIDTH + TAB_PANE_TOPPADDING,
|
|
self.width - 1 - TOOLBAR_BORDER_WIDTH - TAB_PANE_RIGHTPADDING,
|
|
self.Height - 1 - TOOLBAR_BORDER_WIDTH - TAB_PANE_BOTTOMPADDING);
|
|
{$ELSE}
|
|
FTabContentsClipRect.Create(TOOLBAR_BORDER_WIDTH + TAB_PANE_LEFTPADDING,
|
|
TOOLBAR_TAB_CAPTIONS_HEIGHT + TOOLBAR_BORDER_WIDTH + TAB_PANE_TOPPADDING,
|
|
self.width - 1 - TOOLBAR_BORDER_WIDTH - TAB_PANE_RIGHTPADDING,
|
|
self.Height - 1 - TOOLBAR_BORDER_WIDTH - TAB_PANE_BOTTOMPADDING);
|
|
{$ENDIF}
|
|
|
|
FTabs[FTabIndex].Rect:=FTabContentsClipRect;
|
|
end;
|
|
|
|
FMetricsValid:=true;
|
|
end;
|
|
|
|
end.
|