You've already forked lazarus-ccr
* initial import of spktoolbar
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1690 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2380
components/spktoolbar/SpkGUITools/SpkGUITools.pas
Normal file
2380
components/spktoolbar/SpkGUITools/SpkGUITools.pas
Normal file
File diff suppressed because it is too large
Load Diff
555
components/spktoolbar/SpkGraphTools/SpkGraphTools.pas
Normal file
555
components/spktoolbar/SpkGraphTools/SpkGraphTools.pas
Normal file
@@ -0,0 +1,555 @@
|
|||||||
|
unit SpkGraphTools;
|
||||||
|
|
||||||
|
{$DEFINE SPKGRAPHTOOLS}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Graphics, Classes, Math, Sysutils, Dialogs,
|
||||||
|
SpkMath;
|
||||||
|
|
||||||
|
const NUM_ZERO = 0.00000001;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Proste struktury *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
type // Wska�nik do tablicy TRGBTriple
|
||||||
|
PRGBTripleArray = ^TRGBTripleArray;
|
||||||
|
// Tablica TRGBTriple (u�ywana podczas operacji ze ScanLine)
|
||||||
|
TRGBTripleArray = array[word] of TRGBTriple;
|
||||||
|
|
||||||
|
type THSLTriple = record
|
||||||
|
H, S, L : extended;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type // Typ u�ywany podczas rysowania gradient�w
|
||||||
|
TRIVERTEX = packed record
|
||||||
|
x,y : DWORD;
|
||||||
|
Red,
|
||||||
|
Green,
|
||||||
|
Blue,
|
||||||
|
Alpha : Word;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type // Rodzaj gradientu
|
||||||
|
TGradientType = (gtVertical, gtHorizontal);
|
||||||
|
// Rodzaj linii gradientowej (miejsce rozmycia)
|
||||||
|
TGradientLineShade = (lsShadeStart, lsShadeEnds, lsShadeCenter, lsShadeEnd);
|
||||||
|
// Rodzaj linii gradientowej (wypuk�o��)
|
||||||
|
TGradient3dLine = (glRaised, glLowered);
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Nag��wki dla zewn�trznych funkcji *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
function GradientFill(DC : hDC; pVertex : Pointer; dwNumVertex : DWORD; pMesh : Pointer; dwNumMesh, dwMode: DWORD) : DWord; stdcall; external 'msimg32.dll';
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Klasy narz�dziowe *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
type TColorTools = class(TObject)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
class function Darken(kolor : TColor; percentage : byte) : TColor;
|
||||||
|
class function Brighten(kolor : TColor; percentage : byte) : TColor;
|
||||||
|
class function Shade(kol1,kol2 : TColor; percentage : byte) : TColor; overload;
|
||||||
|
class function Shade(kol1,kol2 : TColor; Step : extended) : TColor; overload;
|
||||||
|
class function AddColors(c1, c2 : TColor) : TColor;
|
||||||
|
class function MultiplyColors(c1, c2 : TColor) : TColor;
|
||||||
|
class function MultiplyColor(color : TColor; scalar : integer) : TColor; overload;
|
||||||
|
class function MultiplyColor(color : TColor; scalar : extended) : TColor; overload;
|
||||||
|
class function percent(min, pos, max : integer) : byte;
|
||||||
|
class function RGB2HSL(ARGB : TRGBTriple) : THSLTriple;
|
||||||
|
class function HSL2RGB(AHSL : THSLTriple) : TRGBTriple;
|
||||||
|
class function RgbTripleToColor(ARgbTriple : TRGBTriple) : TColor;
|
||||||
|
class function ColorToRgbTriple(AColor : TColor) : TRGBTriple;
|
||||||
|
class function ColorToGrayscale(AColor : TColor) : TColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TGradientTools = class(TObject)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
class procedure HGradient(canvas : TCanvas; cStart,cEnd : TColor; rect : T2DIntRect); overload;
|
||||||
|
class procedure HGradient(canvas : TCanvas; cStart,cEnd : TColor; p1, p2 : TPoint); overload;
|
||||||
|
class procedure HGradient(canvas : TCanvas; cStart,cEnd : TColor; x1,y1,x2,y2 : integer); overload;
|
||||||
|
|
||||||
|
class procedure VGradient(canvas : TCanvas; cStart,cEnd : TColor; rect : T2DIntRect); overload;
|
||||||
|
class procedure VGradient(canvas : TCanvas; cStart,cEnd : TColor; p1, p2 : TPoint); overload;
|
||||||
|
class procedure VGradient(canvas : TCanvas; cStart,cEnd : TColor; x1,y1,x2,y2 : integer); overload;
|
||||||
|
|
||||||
|
class procedure Gradient(canvas : TCanvas; cStart,cEnd : TColor; rect : T2DIntRect; GradientType : TGradientType); overload;
|
||||||
|
class procedure Gradient(canvas : TCanvas; cStart,cEnd : TColor; p1, p2 : TPoint; GradientType : TGradientType); overload;
|
||||||
|
class procedure Gradient(canvas : TCanvas; cStart,cEnd : TColor; x1,y1,x2,y2 : integer; GradientType : TGradientType); overload;
|
||||||
|
|
||||||
|
class procedure HGradientLine(canvas : TCanvas; cBase, cShade : TColor; x1, x2 , y : integer; ShadeMode : TGradientLineShade);
|
||||||
|
class procedure VGradientLine(canvas : TCanvas; cBase, cShade : TColor; x, y1 , y2 : integer; ShadeMode : TGradientLineShade);
|
||||||
|
|
||||||
|
class procedure HGradient3dLine(canvas : TCanvas; x1,x2,y : integer; ShadeMode : TGradientLineShade; A3dKind : TGradient3dLine = glLowered);
|
||||||
|
class procedure VGradient3dLine(canvas : TCanvas; x,y1,y2 : integer; ShadeMode : TGradientLineShade; A3dKind : TGradient3dLine = glLowered);
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TTextTools = class
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
class procedure OutlinedText(Canvas : TCanvas; x, y : integer; text : string);
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TColorTools }
|
||||||
|
|
||||||
|
class function TColorTools.Darken(kolor : TColor; percentage : byte) : TColor;
|
||||||
|
|
||||||
|
var r,g,b : byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
r:=round(GetRValue(ColorToRGB(kolor))*(100-percentage)/100);
|
||||||
|
g:=round(GetGValue(ColorToRGB(kolor))*(100-percentage)/100);
|
||||||
|
b:=round(GetBValue(ColorToRGB(kolor))*(100-percentage)/100);
|
||||||
|
result:=rgb(r,g,b);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.Brighten(kolor : TColor; percentage : byte) : TColor;
|
||||||
|
|
||||||
|
var r,g,b : byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
r:=round(GetRValue(ColorToRGB(kolor))+( (255-GetRValue(ColorToRGB(kolor)))*(percentage/100) ));
|
||||||
|
g:=round(GetGValue(ColorToRGB(kolor))+( (255-GetGValue(ColorToRGB(kolor)))*(percentage/100) ));
|
||||||
|
b:=round(GetBValue(ColorToRGB(kolor))+( (255-GetBValue(ColorToRGB(kolor)))*(percentage/100) ));
|
||||||
|
result:=rgb(r,g,b);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.Shade(kol1,kol2 : TColor; percentage : byte) : TColor;
|
||||||
|
|
||||||
|
var r,g,b : byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
r:=round(GetRValue(ColorToRGB(kol1))+( (GetRValue(ColorToRGB(kol2))-GetRValue(ColorToRGB(kol1)))*(percentage/100) ));
|
||||||
|
g:=round(GetGValue(ColorToRGB(kol1))+( (GetGValue(ColorToRGB(kol2))-GetGValue(ColorToRGB(kol1)))*(percentage/100) ));
|
||||||
|
b:=round(GetBValue(ColorToRGB(kol1))+( (GetBValue(ColorToRGB(kol2))-GetBValue(ColorToRGB(kol1)))*(percentage/100) ));
|
||||||
|
result:=rgb(r,g,b);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.Shade(kol1,kol2 : TColor; Step : extended) : TColor;
|
||||||
|
|
||||||
|
var r,g,b : byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
r:=round(GetRValue(ColorToRGB(kol1))+( (GetRValue(ColorToRGB(kol2))-GetRValue(ColorToRGB(kol1)))*(Step) ));
|
||||||
|
g:=round(GetGValue(ColorToRGB(kol1))+( (GetGValue(ColorToRGB(kol2))-GetGValue(ColorToRGB(kol1)))*(Step) ));
|
||||||
|
b:=round(GetBValue(ColorToRGB(kol1))+( (GetBValue(ColorToRGB(kol2))-GetBValue(ColorToRGB(kol1)))*(Step) ));
|
||||||
|
result:=rgb(r,g,b);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.AddColors(c1, c2 : TColor) : TColor;
|
||||||
|
|
||||||
|
begin
|
||||||
|
result:=rgb(max( 0,min( 255,GetRValue(c1)+GetRValue(c2) ) ),
|
||||||
|
max( 0,min( 255,GetGValue(c1)+GetGValue(c2) ) ),
|
||||||
|
max( 0,min( 255,GetBValue(c1)+GetBValue(c2) ) ));
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.MultiplyColors(c1, c2 : TColor) : TColor;
|
||||||
|
|
||||||
|
begin
|
||||||
|
result:=rgb(max( 0,min( 255,GetRValue(c1)*GetRValue(c2) ) ),
|
||||||
|
max( 0,min( 255,GetGValue(c1)*GetGValue(c2) ) ),
|
||||||
|
max( 0,min( 255,GetBValue(c1)*GetBValue(c2) ) ));
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.MultiplyColor(color : TColor; scalar : integer) : TColor;
|
||||||
|
|
||||||
|
begin
|
||||||
|
result:=rgb(max( 0,min( 255,GetRValue(color)*scalar ) ),
|
||||||
|
max( 0,min( 255,GetGValue(color)*scalar ) ),
|
||||||
|
max( 0,min( 255,GetBValue(color)*scalar ) ));
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.MultiplyColor(color : TColor; scalar : extended) : TColor;
|
||||||
|
|
||||||
|
begin
|
||||||
|
result:=rgb(max( 0,min( 255,round(GetRValue(color)*scalar) ) ),
|
||||||
|
max( 0,min( 255,round(GetGValue(color)*scalar) ) ),
|
||||||
|
max( 0,min( 255,round(GetBValue(color)*scalar) ) ));
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.Percent(min, pos, max : integer) : byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if max=min then result:=max else
|
||||||
|
result:=round((pos-min)*100/(max-min));
|
||||||
|
end;
|
||||||
|
|
||||||
|
{.$MESSAGE WARN 'Por�wnywanie liczb rzeczywistych? Trzeba poprawi�'}
|
||||||
|
class function TColorTools.RGB2HSL(ARGB : TRGBTriple) : THSLTriple;
|
||||||
|
|
||||||
|
var RGBmin, RGBmax : extended;
|
||||||
|
R, G, B : extended;
|
||||||
|
H, S, L : extended;
|
||||||
|
|
||||||
|
begin
|
||||||
|
R:=ARGB.rgbtRed/255;
|
||||||
|
G:=ARGB.rgbtGreen/255;
|
||||||
|
B:=ARGB.rgbtBlue/255;
|
||||||
|
|
||||||
|
RGBmin:=min(R,min(G,B));
|
||||||
|
RGBmax:=max(R,min(G,B));
|
||||||
|
|
||||||
|
H:=0;
|
||||||
|
if RGBmax=RGBmin then
|
||||||
|
begin
|
||||||
|
// H jest nieoznaczone, ale przyjmijmy zero dla sensowno�ci oblicze�
|
||||||
|
H:=0;
|
||||||
|
end else
|
||||||
|
if (R=RGBmax) and (G>=B) then
|
||||||
|
begin
|
||||||
|
H:=(pi/3)*((G-B)/(RGBmax-RGBmin))+0;
|
||||||
|
end else
|
||||||
|
if (R=RGBmax) and (G<B) then
|
||||||
|
begin
|
||||||
|
H:=(pi/3)*((G-B)/(RGBmax-RGBmin))+(2*pi);
|
||||||
|
end else
|
||||||
|
if (G=RGBmax) then
|
||||||
|
begin
|
||||||
|
H:=(pi/3)*((B-R)/(RGBmax-RGBmin))+(2*pi/3);
|
||||||
|
end else
|
||||||
|
if (B=RGBmax) then
|
||||||
|
begin
|
||||||
|
H:=(pi/3)*((R-G)/(RGBmax-RGBmin))+(4*pi/3);
|
||||||
|
end;
|
||||||
|
|
||||||
|
L:=(RGBmax+RGBmin)/2;
|
||||||
|
|
||||||
|
S:=0;
|
||||||
|
if (L<NUM_ZERO) or (rgbMin=rgbMax) then
|
||||||
|
begin
|
||||||
|
S:=0;
|
||||||
|
end else
|
||||||
|
if (L<=0.5) then
|
||||||
|
begin
|
||||||
|
S:=((RGBmax-RGBmin)/(2*L));
|
||||||
|
end else
|
||||||
|
if (L>0.5) then
|
||||||
|
begin
|
||||||
|
S:=((RGBmax-RGBmin)/(2-2*L));
|
||||||
|
end;
|
||||||
|
|
||||||
|
result.H:=H/(2*pi);
|
||||||
|
result.S:=S;
|
||||||
|
result.L:=L;
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.HSL2RGB(AHSL : THSLTriple) : TRGBTriple;
|
||||||
|
|
||||||
|
var R, G, B : extended;
|
||||||
|
TR, TG, TB : extended;
|
||||||
|
Q, P : extended;
|
||||||
|
|
||||||
|
function ProcessColor(Tc : extended) : extended;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if (Tc<(1/6)) then
|
||||||
|
result:=P+((Q-P)*6.0*Tc) else
|
||||||
|
if (Tc<(1/2)) then
|
||||||
|
result:=Q else
|
||||||
|
if (Tc<(2/3)) then
|
||||||
|
result:=P+((Q-P)*((2/3)-Tc)*6.0) else
|
||||||
|
result:=P;
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if AHSL.S<NUM_ZERO then
|
||||||
|
begin
|
||||||
|
R:=AHSL.L;
|
||||||
|
G:=AHSL.L;
|
||||||
|
B:=AHSL.L;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
if (AHSL.L<0.5) then
|
||||||
|
Q:=AHSL.L*(AHSL.S+1.0) else
|
||||||
|
Q:=AHSL.L+AHSL.S-(AHSL.L*AHSL.S);
|
||||||
|
|
||||||
|
P:=2.0*AHSL.L-Q;
|
||||||
|
|
||||||
|
TR:=AHSL.H+(1/3);
|
||||||
|
TG:=AHSL.H;
|
||||||
|
TB:=AHSL.H-(1/3);
|
||||||
|
|
||||||
|
if (TR<0) then TR:=TR+1 else
|
||||||
|
if (TR>1) then TR:=TR-1;
|
||||||
|
|
||||||
|
if (TG<0) then TG:=TG+1 else
|
||||||
|
if (TG>1) then TG:=TG-1;
|
||||||
|
|
||||||
|
if (TB<0) then TB:=TB+1 else
|
||||||
|
if (TB>1) then TB:=TB-1;
|
||||||
|
|
||||||
|
R:=ProcessColor(TR);
|
||||||
|
G:=ProcessColor(TG);
|
||||||
|
B:=ProcessColor(TB);
|
||||||
|
end;
|
||||||
|
|
||||||
|
result.rgbtRed:=round(255*R);
|
||||||
|
result.rgbtGreen:=round(255*G);
|
||||||
|
result.rgbtBlue:=round(255*B);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.RgbTripleToColor(ARgbTriple : TRGBTriple) : TColor;
|
||||||
|
|
||||||
|
begin
|
||||||
|
result:=rgb(ARgbTriple.rgbtRed,ARgbTriple.rgbtGreen,ARgbTriple.rgbtBlue);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.ColorToGrayscale(AColor: TColor): TColor;
|
||||||
|
|
||||||
|
var avg : byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
avg:=(GetRValue(Acolor) + GetGValue(AColor) + GetBValue(AColor)) div 3;
|
||||||
|
result:=rgb(avg,avg,avg);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TColorTools.ColorToRgbTriple(AColor : TColor) : TRGBTriple;
|
||||||
|
|
||||||
|
begin
|
||||||
|
result.rgbtRed:=GetRValue(AColor);
|
||||||
|
result.rgbtGreen:=GetGValue(AColor);
|
||||||
|
result.rgbtBlue:=GetBValue(AColor);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TGradientTools }
|
||||||
|
|
||||||
|
class procedure TGradientTools.HGradient(canvas : TCanvas; cStart,cEnd : TColor; rect : T2DIntRect);
|
||||||
|
|
||||||
|
var vert : array[0..1] of TRIVERTEX;
|
||||||
|
gRect : _GRADIENT_RECT;
|
||||||
|
Col1,Col2 : TColor;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Col1:=ColorToRGB(cStart);
|
||||||
|
Col2:=ColorToRGB(cEnd);
|
||||||
|
with vert[0] do
|
||||||
|
begin
|
||||||
|
x:=rect.left;
|
||||||
|
y:=rect.top;
|
||||||
|
Red:=GetRValue(Col1) shl 8;
|
||||||
|
Green:=GetGValue(Col1) shl 8;
|
||||||
|
Blue:=GetBValue(Col1) shl 8;
|
||||||
|
Alpha:=0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with vert[1] do
|
||||||
|
begin
|
||||||
|
x:=rect.right;
|
||||||
|
y:=rect.bottom;
|
||||||
|
Red:=GetRValue(Col2) shl 8;
|
||||||
|
Green:=GetGValue(Col2) shl 8;
|
||||||
|
Blue:=GetBValue(Col2) shl 8;
|
||||||
|
Alpha:=0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
gRect.UpperLeft:=0;
|
||||||
|
gRect.LowerRight:=1;
|
||||||
|
GradientFill(canvas.Handle,@vert,2,@gRect,1,GRADIENT_FILL_RECT_H);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.HGradient(canvas : TCanvas; cStart,cEnd : TColor; p1, p2 : TPoint);
|
||||||
|
|
||||||
|
begin
|
||||||
|
HGradient(canvas,cstart,cend,rect(p1.x,p1.y,p2.x,p2.y));
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.HGradient(canvas : TCanvas; cStart,cEnd : TColor; x1,y1,x2,y2 : integer);
|
||||||
|
|
||||||
|
begin
|
||||||
|
HGradient(canvas,cstart,cend,rect(x1,y1,x2,y2));
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.VGradient(canvas : TCanvas; cStart,cEnd : TColor; rect : T2DIntRect);
|
||||||
|
|
||||||
|
var vert : array[0..1] of TRIVERTEX;
|
||||||
|
gRect : _GRADIENT_RECT;
|
||||||
|
Col1,Col2 : TColor;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Col1:=ColorToRGB(cStart);
|
||||||
|
Col2:=ColorToRGB(cEnd);
|
||||||
|
with vert[0] do
|
||||||
|
begin
|
||||||
|
x:=rect.left;
|
||||||
|
y:=rect.top;
|
||||||
|
Red:=GetRValue(Col1) shl 8;
|
||||||
|
Green:=GetGValue(Col1) shl 8;
|
||||||
|
Blue:=GetBValue(Col1) shl 8;
|
||||||
|
Alpha:=0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with vert[1] do
|
||||||
|
begin
|
||||||
|
x:=rect.right;
|
||||||
|
y:=rect.bottom;
|
||||||
|
Red:=GetRValue(Col2) shl 8;
|
||||||
|
Green:=GetGValue(Col2) shl 8;
|
||||||
|
Blue:=GetBValue(Col2) shl 8;
|
||||||
|
Alpha:=0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
gRect.UpperLeft:=0;
|
||||||
|
gRect.LowerRight:=1;
|
||||||
|
GradientFill(canvas.Handle,@vert,2,@gRect,1,GRADIENT_FILL_RECT_V);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.VGradient(canvas : TCanvas; cStart,cEnd : TColor; p1, p2 : TPoint);
|
||||||
|
|
||||||
|
begin
|
||||||
|
VGradient(canvas,cstart,cend,rect(p1.x,p1.y,p2.x,p2.y));
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.VGradient(canvas : TCanvas; cStart,cEnd : TColor; x1,y1,x2,y2 : integer);
|
||||||
|
|
||||||
|
begin
|
||||||
|
VGradient(canvas,cstart,cend,rect(x1,y1,x2,y2));
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.Gradient(canvas : TCanvas; cStart,cEnd : TColor; rect : T2DIntRect; GradientType : TGradientType);
|
||||||
|
|
||||||
|
begin
|
||||||
|
if GradientType=gtVertical then VGradient(canvas, cStart, cEnd, rect) else
|
||||||
|
HGradient(canvas, cStart, cEnd, rect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.Gradient(canvas : TCanvas; cStart,cEnd : TColor; p1, p2 : TPoint; GradientType : TGradientType);
|
||||||
|
|
||||||
|
begin
|
||||||
|
if GradientType=gtVertical then VGradient(canvas, cStart, cEnd, p1, p2) else
|
||||||
|
HGradient(canvas, cStart, cEnd, p1, p2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.Gradient(canvas : TCanvas; cStart,cEnd : TColor; x1,y1,x2,y2 : integer; GradientType : TGradientType);
|
||||||
|
|
||||||
|
begin
|
||||||
|
if GradientType=gtVertical then VGradient(canvas, cStart, cEnd, x1, y1, x2, y2) else
|
||||||
|
HGradient(canvas, cStart, cEnd, x1, y1, x2, y2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.HGradientLine(canvas : TCanvas; cBase, cShade : TColor; x1, x2 , y : integer; ShadeMode : TGradientLineShade);
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if x1=x2 then exit;
|
||||||
|
if x1>x2 then
|
||||||
|
begin
|
||||||
|
i:=x1;
|
||||||
|
x1:=x2;
|
||||||
|
x2:=i;
|
||||||
|
end;
|
||||||
|
case ShadeMode of
|
||||||
|
lsShadeStart : HGradient(canvas,cShade,cBase,rect(x1,y,x2,y+1));
|
||||||
|
lsShadeEnds : begin
|
||||||
|
i:=(x1+x2) div 2;
|
||||||
|
HGradient(canvas,cShade,cBase,rect(x1,y,i,y+1));
|
||||||
|
HGradient(canvas,cBase,cShade,rect(i,y,x2,y+1));
|
||||||
|
end;
|
||||||
|
lsShadeCenter : begin
|
||||||
|
i:=(x1+x2) div 2;
|
||||||
|
HGradient(canvas,cBase,cShade,rect(x1,y,i,y+1));
|
||||||
|
HGradient(canvas,cShade,cBase,rect(i,y,x2,y+1));
|
||||||
|
end;
|
||||||
|
lsShadeEnd : HGradient(canvas,cBase,cShade,rect(x1,y,x2,y+1));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.VGradientLine(canvas : TCanvas; cBase, cShade : TColor; x, y1 , y2 : integer; ShadeMode : TGradientLineShade);
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if y1=y2 then exit;
|
||||||
|
if y1>y2 then
|
||||||
|
begin
|
||||||
|
i:=y1;
|
||||||
|
y1:=y2;
|
||||||
|
y2:=i;
|
||||||
|
end;
|
||||||
|
case ShadeMode of
|
||||||
|
lsShadeStart : VGradient(canvas,cShade,cBase,rect(x,y1,x+1,y2));
|
||||||
|
lsShadeEnds : begin
|
||||||
|
i:=(y1+y2) div 2;
|
||||||
|
VGradient(canvas,cShade,cBase,rect(x,y1,x+1,i));
|
||||||
|
VGradient(canvas,cBase,cShade,rect(x,i,x+1,y2));
|
||||||
|
end;
|
||||||
|
lsShadeCenter : begin
|
||||||
|
i:=(y1+y2) div 2;
|
||||||
|
VGradient(canvas,cBase,cShade,rect(x,y1,x+1,i));
|
||||||
|
VGradient(canvas,cShade,cBase,rect(x,i,x+1,y2));
|
||||||
|
end;
|
||||||
|
lsShadeEnd : VGradient(canvas,cBase,cShade,rect(x,y1,x+1,y2));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.HGradient3dLine(canvas : TCanvas; x1,x2,y : integer; ShadeMode : TGradientLineShade; A3dKind : TGradient3dLine = glLowered);
|
||||||
|
|
||||||
|
begin
|
||||||
|
if A3dKind = glRaised then
|
||||||
|
begin
|
||||||
|
HGradientLine(canvas,clBtnHighlight,clBtnFace,x1,x2,y,ShadeMode);
|
||||||
|
HGradientLine(canvas,clBtnShadow,clBtnFace,x1,x2,y+1,ShadeMode);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
HGradientLine(canvas,clBtnShadow,clBtnFace,x1,x2,y,ShadeMode);
|
||||||
|
HGradientLine(canvas,clBtnHighlight,clBtnFace,x1,x2,y+1,ShadeMode);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
class procedure TGradientTools.VGradient3dLine(canvas : TCanvas; x,y1,y2 : integer; ShadeMode : TGradientLineShade; A3dKind : TGradient3dLine = glLowered);
|
||||||
|
|
||||||
|
begin
|
||||||
|
if A3dKind = glLowered then
|
||||||
|
begin
|
||||||
|
VGradientLine(canvas,clBtnFace,clBtnHighlight,x,y1,y2,ShadeMode);
|
||||||
|
VGradientLine(canvas,clBtnFace,clBtnShadow,x+1,y1,y2,ShadeMode);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
VGradientLine(canvas,clBtnFace,clBtnShadow,x,y1,y2,ShadeMode);
|
||||||
|
VGradientLine(canvas,clBtnFace,clBtnHighlight,x+1,y1,y2,ShadeMode);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TTextTools }
|
||||||
|
|
||||||
|
class procedure TTextTools.OutlinedText(Canvas : TCanvas; x, y : integer; text : string);
|
||||||
|
|
||||||
|
var TmpColor : TColor;
|
||||||
|
TmpBrushStyle : TBrushStyle;
|
||||||
|
|
||||||
|
begin
|
||||||
|
TmpColor:=Canvas.Font.color;
|
||||||
|
TmpBrushStyle:=Canvas.Brush.style;
|
||||||
|
|
||||||
|
Canvas.brush.style:=bsClear;
|
||||||
|
|
||||||
|
Canvas.font.color:=clBlack;
|
||||||
|
Canvas.TextOut(x-1,y,text);
|
||||||
|
Canvas.TextOut(x+1,y,text);
|
||||||
|
Canvas.TextOut(x,y-1,text);
|
||||||
|
Canvas.TextOut(x,y+1,text);
|
||||||
|
|
||||||
|
Canvas.font.color:=TmpColor;
|
||||||
|
Canvas.TextOut(x,y,text);
|
||||||
|
|
||||||
|
Canvas.Brush.Style:=TmpBrushStyle;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
1378
components/spktoolbar/SpkMath/SpkMath.pas
Normal file
1378
components/spktoolbar/SpkMath/SpkMath.pas
Normal file
File diff suppressed because it is too large
Load Diff
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Button-add.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Button-add.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Button.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Button.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Move-down.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Move-down.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Move-up.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Move-up.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Pane-add.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Pane-add.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Pane.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Pane.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Tab-add.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Tab-add.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Tab-remove.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Tab-remove.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Tab.bmp
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Tab.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 822 B |
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Template.xcf
Normal file
BIN
components/spktoolbar/SpkToolbar - designtime/GFX/Template.xcf
Normal file
Binary file not shown.
@@ -0,0 +1,368 @@
|
|||||||
|
unit SpkToolbarEditor;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Controls, Classes, DesignEditors, DesignIntf, TypInfo, Dialogs,
|
||||||
|
SysUtils,
|
||||||
|
spkToolbar, spkt_Tab, spkt_Pane, spkt_Appearance,
|
||||||
|
spkte_EditWindow, spkte_AppearanceEditor;
|
||||||
|
|
||||||
|
const PROPERTY_CONTENTS_NAME = 'Contents';
|
||||||
|
PROPERTY_CONTENTS_VALUE = 'Open editor...';
|
||||||
|
|
||||||
|
type TAddContentsFilter = class(TSelectionEditor, ISelectionPropertyFilter)
|
||||||
|
public
|
||||||
|
procedure FilterProperties(const ASelection: IDesignerSelections; const ASelectionProperties: IInterfaceList);
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkToolbarContentsEditor = class(TBasePropertyEditor, IProperty, IPropertyKind)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
FPropList : PInstPropList;
|
||||||
|
FPropCount : integer;
|
||||||
|
FDesigner : IDesigner;
|
||||||
|
FToolbar : TSpkToolbar;
|
||||||
|
|
||||||
|
procedure SetPropEntry(Index: Integer; AInstance: TPersistent;
|
||||||
|
APropInfo: PPropInfo); override;
|
||||||
|
procedure Initialize; override;
|
||||||
|
public
|
||||||
|
constructor Create(const ADesigner: IDesigner; APropCount: Integer); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
procedure Activate;
|
||||||
|
function AllEqual: Boolean;
|
||||||
|
function AutoFill: Boolean;
|
||||||
|
procedure Edit;
|
||||||
|
function HasInstance(Instance: TPersistent): Boolean;
|
||||||
|
function GetAttributes: TPropertyAttributes;
|
||||||
|
function GetEditLimit: Integer;
|
||||||
|
function GetEditValue(out Value: string): Boolean;
|
||||||
|
function GetName: string;
|
||||||
|
procedure GetProperties(Proc: TGetPropProc);
|
||||||
|
function GetPropInfo: PPropInfo;
|
||||||
|
function GetPropType: PTypeInfo;
|
||||||
|
function GetValue: string;
|
||||||
|
procedure GetValues(Proc: TGetStrProc);
|
||||||
|
procedure Revert;
|
||||||
|
procedure SetValue(const Value: string);
|
||||||
|
function ValueAvailable: Boolean;
|
||||||
|
|
||||||
|
function GetKind: TTypeKind;
|
||||||
|
|
||||||
|
property PropCount : integer read FPropCount;
|
||||||
|
property Designer : IDesigner read FDesigner;
|
||||||
|
property Toolbar : TSpkToolbar read FToolbar write FToolbar;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkToolbarCaptionEditor = class(TStringProperty)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
procedure SetValue(const Value: string); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkToolbarAppearanceEditor = class(TClassProperty)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
function GetAttributes: TPropertyAttributes; override;
|
||||||
|
procedure Edit; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkToolbarEditor = class(TComponentEditor)
|
||||||
|
protected
|
||||||
|
procedure DoOpenContentsEditor;
|
||||||
|
public
|
||||||
|
procedure Edit; override;
|
||||||
|
procedure ExecuteVerb(Index: Integer); override;
|
||||||
|
function GetVerb(Index: Integer): string; override;
|
||||||
|
function GetVerbCount: Integer; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var EditWindow : TfrmEditWindow;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TSpkToolbarEditor }
|
||||||
|
|
||||||
|
procedure TSpkToolbarContentsEditor.Activate;
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.AllEqual: Boolean;
|
||||||
|
begin
|
||||||
|
result:=FPropCount = 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.AutoFill: Boolean;
|
||||||
|
begin
|
||||||
|
result:=false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TSpkToolbarContentsEditor.Create(const ADesigner: IDesigner;
|
||||||
|
APropCount: Integer);
|
||||||
|
begin
|
||||||
|
inherited Create(ADesigner, APropCount);
|
||||||
|
FDesigner:=ADesigner;
|
||||||
|
FPropCount:=APropCount;
|
||||||
|
FToolbar:=nil;
|
||||||
|
GetMem(FPropList, APropCount * SizeOf(TInstProp));
|
||||||
|
FillChar(FPropList^, APropCount * SizeOf(TInstProp), 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TSpkToolbarContentsEditor.Destroy;
|
||||||
|
begin
|
||||||
|
if FPropList <> nil then
|
||||||
|
FreeMem(FPropList, FPropCount * SizeOf(TInstProp));
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarContentsEditor.Edit;
|
||||||
|
begin
|
||||||
|
EditWindow.SetData(FToolbar,self.Designer);
|
||||||
|
EditWindow.Show;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.GetAttributes: TPropertyAttributes;
|
||||||
|
begin
|
||||||
|
result:=[paDialog, paReadOnly];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.GetEditLimit: Integer;
|
||||||
|
begin
|
||||||
|
result:=0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.GetEditValue(out Value: string): Boolean;
|
||||||
|
begin
|
||||||
|
Value:=GetValue;
|
||||||
|
result:=true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.GetKind: TTypeKind;
|
||||||
|
begin
|
||||||
|
result:=tkClass;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.GetName: string;
|
||||||
|
begin
|
||||||
|
result:=PROPERTY_CONTENTS_NAME;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarContentsEditor.GetProperties(Proc: TGetPropProc);
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.GetPropInfo: PPropInfo;
|
||||||
|
begin
|
||||||
|
Result:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.GetPropType: PTypeInfo;
|
||||||
|
begin
|
||||||
|
Result:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.GetValue: string;
|
||||||
|
begin
|
||||||
|
result:=PROPERTY_CONTENTS_VALUE;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarContentsEditor.GetValues(Proc: TGetStrProc);
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.HasInstance(Instance: TPersistent): Boolean;
|
||||||
|
begin
|
||||||
|
result:=EditWindow.Toolbar = Instance;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarContentsEditor.Initialize;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarContentsEditor.Revert;
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarContentsEditor.SetPropEntry(Index: Integer; AInstance: TPersistent;
|
||||||
|
APropInfo: PPropInfo);
|
||||||
|
begin
|
||||||
|
with FPropList^[Index] do
|
||||||
|
begin
|
||||||
|
Instance := AInstance;
|
||||||
|
PropInfo := APropInfo;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarContentsEditor.SetValue(const Value: string);
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarContentsEditor.ValueAvailable: Boolean;
|
||||||
|
begin
|
||||||
|
result:=true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TSelectionFilter }
|
||||||
|
|
||||||
|
procedure TAddContentsFilter.FilterProperties(
|
||||||
|
const ASelection: IDesignerSelections;
|
||||||
|
const ASelectionProperties: IInterfaceList);
|
||||||
|
|
||||||
|
var ContentsEditor : TSpkToolbarContentsEditor;
|
||||||
|
Prop : IProperty;
|
||||||
|
i : integer;
|
||||||
|
Added : boolean;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if ASelection.Count<>1 then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if ASelection[0] is TSpkToolbar then
|
||||||
|
begin
|
||||||
|
ContentsEditor:=TSpkToolbarContentsEditor.Create(inherited Designer, 1);
|
||||||
|
ContentsEditor.Toolbar:=ASelection[0] as TSpkToolbar;
|
||||||
|
|
||||||
|
i:=0;
|
||||||
|
Added:=false;
|
||||||
|
while (i<ASelectionProperties.Count) and not Added do
|
||||||
|
begin
|
||||||
|
ASelectionProperties.Items[i].QueryInterface(IProperty, Prop);
|
||||||
|
if (assigned(Prop)) and (Prop.GetName>PROPERTY_CONTENTS_NAME) then
|
||||||
|
begin
|
||||||
|
ASelectionProperties.Insert(i, ContentsEditor);
|
||||||
|
Added:=true;
|
||||||
|
end;
|
||||||
|
inc(i);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(Added) then
|
||||||
|
ASelectionProperties.Add(ContentsEditor as IProperty);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TSpkToolbarEditor }
|
||||||
|
|
||||||
|
procedure TSpkToolbarEditor.DoOpenContentsEditor;
|
||||||
|
|
||||||
|
var Component : TComponent;
|
||||||
|
Toolbar : TSpkToolbar;
|
||||||
|
Designer : IDesigner;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Component:=self.GetComponent;
|
||||||
|
if not(assigned(Component)) then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if not(Component is TSpkToolbar) then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
Toolbar:=Component as TSpkToolbar;
|
||||||
|
Designer:=self.GetDesigner;
|
||||||
|
|
||||||
|
EditWindow.SetData(Toolbar,Designer);
|
||||||
|
EditWindow.Show;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarEditor.Edit;
|
||||||
|
|
||||||
|
begin
|
||||||
|
DoOpenContentsEditor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkToolbarEditor.ExecuteVerb(Index: Integer);
|
||||||
|
begin
|
||||||
|
case Index of
|
||||||
|
0 : DoOpenContentsEditor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarEditor.GetVerb(Index: Integer): string;
|
||||||
|
begin
|
||||||
|
case Index of
|
||||||
|
0 : result:='Contents editor...';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarEditor.GetVerbCount: Integer;
|
||||||
|
begin
|
||||||
|
result:=1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TSpkToolbarCaptionEditor }
|
||||||
|
|
||||||
|
procedure TSpkToolbarCaptionEditor.SetValue(const Value: string);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
EditWindow.RefreshNames;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TSpkToolbarAppearanceEditor }
|
||||||
|
|
||||||
|
procedure TSpkToolbarAppearanceEditor.Edit;
|
||||||
|
|
||||||
|
var Obj : TObject;
|
||||||
|
Toolbar : TSpkToolbar;
|
||||||
|
Tab : TSpkTab;
|
||||||
|
AppearanceEditor : tfrmAppearanceEditWindow;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Obj:=GetComponent(0);
|
||||||
|
if Obj is TSpkToolbar then
|
||||||
|
begin
|
||||||
|
Toolbar:=(Obj as TSpkToolbar);
|
||||||
|
|
||||||
|
AppearanceEditor:=TfrmAppearanceEditWindow.Create(nil);
|
||||||
|
try
|
||||||
|
AppearanceEditor.Appearance.Assign(Toolbar.Appearance);
|
||||||
|
if AppearanceEditor.ShowModal = mrOK then
|
||||||
|
begin
|
||||||
|
Toolbar.Appearance.Assign(AppearanceEditor.Appearance);
|
||||||
|
Modified;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AppearanceEditor.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end else
|
||||||
|
if Obj is TSpkTab then
|
||||||
|
begin
|
||||||
|
Tab:=(Obj as TSpkTab);
|
||||||
|
|
||||||
|
AppearanceEditor:=TfrmAppearanceEditWindow.Create(nil);
|
||||||
|
try
|
||||||
|
AppearanceEditor.Appearance.Assign(Tab.CustomAppearance);
|
||||||
|
if AppearanceEditor.ShowModal = mrOK then
|
||||||
|
begin
|
||||||
|
Tab.CustomAppearance.Assign(AppearanceEditor.Appearance);
|
||||||
|
Modified;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AppearanceEditor.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkToolbarAppearanceEditor.GetAttributes: TPropertyAttributes;
|
||||||
|
begin
|
||||||
|
result:=inherited GetAttributes + [paDialog] - [paMultiSelect];
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
|
||||||
|
EditWindow:=TfrmEditWindow.create(nil);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
EditWindow.Free;
|
||||||
|
|
||||||
|
end.
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,740 @@
|
|||||||
|
unit spkte_AppearanceEditor;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, ExtCtrls, StdCtrls, ComCtrls,
|
||||||
|
SpkGUITools, SpkXMLParser,
|
||||||
|
spkt_Buttons, spkt_BaseItem, spkt_Pane, spkt_Types, spkt_Tab, SpkToolbar,
|
||||||
|
spkt_Appearance;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmAppearanceEditWindow = class(TForm)
|
||||||
|
gbPreview: TGroupBox;
|
||||||
|
tbPreview: TSpkToolbar;
|
||||||
|
SpkTab1: TSpkTab;
|
||||||
|
SpkPane1: TSpkPane;
|
||||||
|
SpkLargeButton1: TSpkLargeButton;
|
||||||
|
SpkLargeButton3: TSpkLargeButton;
|
||||||
|
SpkLargeButton2: TSpkLargeButton;
|
||||||
|
SpkPane2: TSpkPane;
|
||||||
|
SpkSmallButton1: TSpkSmallButton;
|
||||||
|
SpkSmallButton2: TSpkSmallButton;
|
||||||
|
SpkSmallButton3: TSpkSmallButton;
|
||||||
|
SpkPane3: TSpkPane;
|
||||||
|
SpkSmallButton4: TSpkSmallButton;
|
||||||
|
SpkSmallButton5: TSpkSmallButton;
|
||||||
|
SpkSmallButton6: TSpkSmallButton;
|
||||||
|
SpkSmallButton7: TSpkSmallButton;
|
||||||
|
SpkSmallButton8: TSpkSmallButton;
|
||||||
|
PageControl1: TPageControl;
|
||||||
|
TabSheet1: TTabSheet;
|
||||||
|
TabSheet2: TTabSheet;
|
||||||
|
TabSheet3: TTabSheet;
|
||||||
|
Label2: TLabel;
|
||||||
|
pTabFrame: TPanel;
|
||||||
|
pTabGradientFrom: TPanel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
pTabGradientTo: TPanel;
|
||||||
|
cbTabGradientKind: TComboBox;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
pTabHeaderFont: TPanel;
|
||||||
|
Label8: TLabel;
|
||||||
|
pPaneBorderDark: TPanel;
|
||||||
|
pPaneBorderLight: TPanel;
|
||||||
|
Label21: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
pPaneGradientFrom: TPanel;
|
||||||
|
pPaneGradientTo: TPanel;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
cbPaneGradientKind: TComboBox;
|
||||||
|
pPaneCaptionBackground: TPanel;
|
||||||
|
Label12: TLabel;
|
||||||
|
Label13: TLabel;
|
||||||
|
pPaneCaptionFont: TPanel;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label14: TLabel;
|
||||||
|
Label25: TLabel;
|
||||||
|
Label26: TLabel;
|
||||||
|
pItemFont: TPanel;
|
||||||
|
cbItemIdleGradientKind: TComboBox;
|
||||||
|
pItemIdleGradientTo: TPanel;
|
||||||
|
pItemIdleGradientFrom: TPanel;
|
||||||
|
pItemIdleFrame: TPanel;
|
||||||
|
Label27: TLabel;
|
||||||
|
Label28: TLabel;
|
||||||
|
pItemIdleCaptionColor: TPanel;
|
||||||
|
Label29: TLabel;
|
||||||
|
pItemIdleInnerDark: TPanel;
|
||||||
|
Label30: TLabel;
|
||||||
|
pItemIdleInnerLight: TPanel;
|
||||||
|
cbItemHottrackGradientKind: TComboBox;
|
||||||
|
pItemHottrackGradientTo: TPanel;
|
||||||
|
pItemHottrackGradientFrom: TPanel;
|
||||||
|
pItemHottrackFrame: TPanel;
|
||||||
|
Label15: TLabel;
|
||||||
|
pItemHottrackCaptionColor: TPanel;
|
||||||
|
pItemHottrackInnerDark: TPanel;
|
||||||
|
pItemHottrackInnerLight: TPanel;
|
||||||
|
cbItemActiveGradientKind: TComboBox;
|
||||||
|
pItemActiveGradientTo: TPanel;
|
||||||
|
pItemActiveGradientFrom: TPanel;
|
||||||
|
pItemActiveFrame: TPanel;
|
||||||
|
Label16: TLabel;
|
||||||
|
pItemActiveCaptionColor: TPanel;
|
||||||
|
pItemActiveInnerDark: TPanel;
|
||||||
|
pItemActiveInnerLight: TPanel;
|
||||||
|
bOK: TButton;
|
||||||
|
bCancel: TButton;
|
||||||
|
cdColorDialog: TColorDialog;
|
||||||
|
fdFontDialog: TFontDialog;
|
||||||
|
pTabHeaderFontColor: TPanel;
|
||||||
|
pPaneCaptionFontColor: TPanel;
|
||||||
|
TabSheet4: TTabSheet;
|
||||||
|
bImport: TButton;
|
||||||
|
bExport: TButton;
|
||||||
|
mXML: TMemo;
|
||||||
|
sTabRectangle: TShape;
|
||||||
|
cbLinkTab: TCheckBox;
|
||||||
|
sPaneRectangle: TShape;
|
||||||
|
cbLinkPane: TCheckBox;
|
||||||
|
cbLinkItem: TCheckBox;
|
||||||
|
sItemRectangle: TShape;
|
||||||
|
TabSheet5: TTabSheet;
|
||||||
|
Label17: TLabel;
|
||||||
|
bReset: TButton;
|
||||||
|
procedure pTabFrameClick(Sender: TObject);
|
||||||
|
procedure pTabGradientFromClick(Sender: TObject);
|
||||||
|
procedure pTabGradientToClick(Sender: TObject);
|
||||||
|
procedure pPaneBorderDarkClick(Sender: TObject);
|
||||||
|
procedure pPaneBorderLightClick(Sender: TObject);
|
||||||
|
procedure pPaneGradientFromClick(Sender: TObject);
|
||||||
|
procedure pPaneGradientToClick(Sender: TObject);
|
||||||
|
procedure pPaneCaptionBackgroundClick(Sender: TObject);
|
||||||
|
procedure pItemIdleFrameClick(Sender: TObject);
|
||||||
|
procedure pItemIdleGradientFromClick(Sender: TObject);
|
||||||
|
procedure pItemIdleGradientToClick(Sender: TObject);
|
||||||
|
procedure pItemIdleCaptionColorClick(Sender: TObject);
|
||||||
|
procedure pItemIdleInnerDarkClick(Sender: TObject);
|
||||||
|
procedure pItemIdleInnerLightClick(Sender: TObject);
|
||||||
|
procedure pItemHottrackFrameClick(Sender: TObject);
|
||||||
|
procedure pItemHottrackGradientFromClick(Sender: TObject);
|
||||||
|
procedure pItemHottrackGradientToClick(Sender: TObject);
|
||||||
|
procedure pItemHottrackCaptionColorClick(Sender: TObject);
|
||||||
|
procedure pItemHottrackInnerDarkClick(Sender: TObject);
|
||||||
|
procedure pItemHottrackInnerLightClick(Sender: TObject);
|
||||||
|
procedure pItemActiveFrameClick(Sender: TObject);
|
||||||
|
procedure pItemActiveGradientFromClick(Sender: TObject);
|
||||||
|
procedure pItemActiveGradientToClick(Sender: TObject);
|
||||||
|
procedure pItemActiveCaptionColorClick(Sender: TObject);
|
||||||
|
procedure pItemActiveInnerDarkClick(Sender: TObject);
|
||||||
|
procedure pItemActiveInnerLightClick(Sender: TObject);
|
||||||
|
procedure pTabHeaderFontClick(Sender: TObject);
|
||||||
|
procedure pPaneCaptionFontClick(Sender: TObject);
|
||||||
|
procedure pItemFontClick(Sender: TObject);
|
||||||
|
procedure cbTabGradientKindChange(Sender: TObject);
|
||||||
|
procedure cbPaneGradientKindChange(Sender: TObject);
|
||||||
|
procedure cbItemIdleGradientKindChange(Sender: TObject);
|
||||||
|
procedure cbItemHottrackGradientKindChange(Sender: TObject);
|
||||||
|
procedure cbItemActiveGradientKindChange(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure pTabHeaderFontColorClick(Sender: TObject);
|
||||||
|
procedure pPaneCaptionFontColorClick(Sender: TObject);
|
||||||
|
procedure bExportClick(Sender: TObject);
|
||||||
|
procedure bImportClick(Sender: TObject);
|
||||||
|
procedure cbLinkTabClick(Sender: TObject);
|
||||||
|
procedure cbLinkPaneClick(Sender: TObject);
|
||||||
|
procedure cbLinkItemClick(Sender: TObject);
|
||||||
|
procedure bResetClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
procedure SetLinkedFrameColor(AColor : TColor);
|
||||||
|
procedure SetLinkedGradientFromColor(AColor : TColor);
|
||||||
|
procedure SetLinkedGradientToColor(AColor : TColor);
|
||||||
|
procedure SetLinkedGradientKind(AKindIndex : integer);
|
||||||
|
|
||||||
|
function GetAppearance: TSpkToolbarAppearance;
|
||||||
|
procedure SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
|
||||||
|
procedure SwitchAttributesLink(const Value : boolean);
|
||||||
|
|
||||||
|
function ChangeColor(Panel : TPanel) : boolean;
|
||||||
|
procedure SetPanelColor(Panel: TPanel; AColor : TColor);
|
||||||
|
function ChangeFont(Panel : TPanel) : boolean;
|
||||||
|
procedure SetPanelFont(Panel : TPanel; AFont : TFont);
|
||||||
|
procedure SetComboGradientKind(Combo : TComboBox; GradientType : TBackgroundKind);
|
||||||
|
procedure LoadAppearance(AAppearance : TSpkToolbarAppearance);
|
||||||
|
public
|
||||||
|
property Appearance : TSpkToolbarAppearance read GetAppearance write SetAppearance;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmAppearanceEditWindow: TfrmAppearanceEditWindow;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TForm3 }
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Assign(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SetComboGradientKind(Combo: TComboBox;
|
||||||
|
GradientType: TBackgroundKind);
|
||||||
|
begin
|
||||||
|
case GradientType of
|
||||||
|
bkSolid: Combo.itemindex:=0;
|
||||||
|
bkHorizontalGradient: Combo.itemindex:=1;
|
||||||
|
bkVerticalGradient: Combo.itemindex:=2;
|
||||||
|
bkConcave: Combo.itemindex:=3;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SetLinkedFrameColor(AColor: TColor);
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Tab.BorderColor:=AColor;
|
||||||
|
SetPanelColor(pTabFrame, AColor);
|
||||||
|
|
||||||
|
tbPreview.Appearance.Pane.BorderDarkColor:=AColor;
|
||||||
|
SetPanelColor(pPaneBorderDark, AColor);
|
||||||
|
|
||||||
|
tbPreview.Appearance.Element.IdleFrameColor:=AColor;
|
||||||
|
SetPanelColor(pItemIdleFrame, AColor);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SetLinkedGradientFromColor(AColor: TColor);
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Tab.GradientFromColor:=AColor;
|
||||||
|
SetPanelColor(pTabGradientFrom, AColor);
|
||||||
|
|
||||||
|
tbPreview.Appearance.Pane.GradientFromColor:=AColor;
|
||||||
|
SetPanelColor(pPaneGradientFrom, AColor);
|
||||||
|
|
||||||
|
tbPreview.Appearance.Element.IdleGradientFromColor:=AColor;
|
||||||
|
SetPanelColor(pItemIdleGradientFrom, AColor);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SetLinkedGradientKind(AKindIndex: integer);
|
||||||
|
|
||||||
|
var Kind : TBackgroundKind;
|
||||||
|
|
||||||
|
begin
|
||||||
|
case AKindIndex of
|
||||||
|
0 : Kind:=bkSolid;
|
||||||
|
1 : Kind:=bkHorizontalGradient;
|
||||||
|
2 : Kind:=bkVerticalGradient;
|
||||||
|
3 : Kind:=bkConcave;
|
||||||
|
else Kind:=bkSolid;
|
||||||
|
end;
|
||||||
|
|
||||||
|
tbPreview.Appearance.Tab.GradientType:=Kind;
|
||||||
|
SetComboGradientKind(cbTabGradientKind, Kind);
|
||||||
|
|
||||||
|
tbPreview.Appearance.Pane.GradientType:=Kind;
|
||||||
|
SetComboGradientKind(cbPaneGradientKind, Kind);
|
||||||
|
|
||||||
|
tbPreview.Appearance.Element.IdleGradientType:=Kind;
|
||||||
|
SetComboGradientKind(cbItemIdleGradientKind, Kind);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SetLinkedGradientToColor(AColor: TColor);
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Tab.GradientToColor:=AColor;
|
||||||
|
SetPanelColor(pTabGradientTo, AColor);
|
||||||
|
|
||||||
|
tbPreview.Appearance.Pane.GradientToColor:=AColor;
|
||||||
|
SetPanelColor(pPaneGradientTo, AColor);
|
||||||
|
|
||||||
|
tbPreview.Appearance.Element.IdleGradientToColor:=AColor;
|
||||||
|
SetPanelColor(pItemIdleGradientTo, AColor);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SetPanelColor(Panel: TPanel; AColor : TColor);
|
||||||
|
begin
|
||||||
|
Panel.Color := AColor;
|
||||||
|
if Panel.Color<>AColor then
|
||||||
|
Showmessage('lipa!');
|
||||||
|
if (GetRValue(AColor) + GetGValue(AColor) + GetBValue(AColor)) div 3 >= 128 then
|
||||||
|
Panel.Font.Color := clBlack
|
||||||
|
else
|
||||||
|
Panel.Font.Color := clWhite;
|
||||||
|
Panel.Caption := '$' + IntToHex(AColor, 8);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SetPanelFont(Panel: TPanel; AFont: TFont);
|
||||||
|
begin
|
||||||
|
Panel.Font.assign(AFont);
|
||||||
|
Panel.Caption:=AFont.Name+', '+inttostr(AFont.Size);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.SwitchAttributesLink(const Value: boolean);
|
||||||
|
begin
|
||||||
|
cbLinkTab.checked:=Value;
|
||||||
|
cbLinkPane.Checked:=Value;
|
||||||
|
cbLinkItem.Checked:=Value;
|
||||||
|
|
||||||
|
sTabRectangle.visible:=Value;
|
||||||
|
sPaneRectangle.Visible:=Value;
|
||||||
|
sItemRectangle.Visible:=Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.cbItemHottrackGradientKindChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case (Sender as TCombobox).ItemIndex of
|
||||||
|
0 : tbPreview.Appearance.Element.HottrackGradientType:=bkSolid;
|
||||||
|
1 : tbPreview.Appearance.Element.HottrackGradientType:=bkHorizontalGradient;
|
||||||
|
2 : tbPreview.Appearance.Element.HottrackGradientType:=bkVerticalGradient;
|
||||||
|
3 : tbPreview.Appearance.Element.HottrackGradientType:=bkConcave;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.cbItemIdleGradientKindChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case (Sender as TCombobox).ItemIndex of
|
||||||
|
0 : tbPreview.Appearance.Element.IdleGradientType:=bkSolid;
|
||||||
|
1 : tbPreview.Appearance.Element.IdleGradientType:=bkHorizontalGradient;
|
||||||
|
2 : tbPreview.Appearance.Element.IdleGradientType:=bkVerticalGradient;
|
||||||
|
3 : tbPreview.Appearance.Element.IdleGradientType:=bkConcave;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if cbLinkItem.Checked then
|
||||||
|
SetLinkedGradientKind((Sender as TComboBox).ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.cbLinkItemClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SwitchAttributesLink(cbLinkItem.Checked);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.cbLinkPaneClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SwitchAttributesLink(cbLinkPane.Checked);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.cbLinkTabClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SwitchAttributesLink(cbLinkTab.Checked);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.cbTabGradientKindChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case (Sender as TCombobox).ItemIndex of
|
||||||
|
0 : tbPreview.Appearance.Tab.GradientType:=bkSolid;
|
||||||
|
1 : tbPreview.Appearance.Tab.GradientType:=bkHorizontalGradient;
|
||||||
|
2 : tbPreview.Appearance.Tab.GradientType:=bkVerticalGradient;
|
||||||
|
3 : tbPreview.Appearance.Tab.GradientType:=bkConcave;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if cbLinkTab.Checked then
|
||||||
|
SetLinkedGradientKind((Sender as TComboBox).ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmAppearanceEditWindow.ChangeColor(Panel: TPanel): boolean;
|
||||||
|
begin
|
||||||
|
cdColorDialog.Color:=Panel.Color;
|
||||||
|
if cdColorDialog.Execute then
|
||||||
|
begin
|
||||||
|
SetPanelColor(Panel, cdColorDialog.Color);
|
||||||
|
result:=true
|
||||||
|
end
|
||||||
|
else
|
||||||
|
result:=false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmAppearanceEditWindow.ChangeFont(Panel: TPanel): boolean;
|
||||||
|
begin
|
||||||
|
fdFontDialog.Font.assign(Panel.font);
|
||||||
|
if fdFontDialog.Execute then
|
||||||
|
begin
|
||||||
|
SetPanelFont(Panel, fdFontDialog.Font);
|
||||||
|
result:=true;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
result:=false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
LoadAppearance(tbPreview.Appearance);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmAppearanceEditWindow.GetAppearance: TSpkToolbarAppearance;
|
||||||
|
begin
|
||||||
|
result:=tbPreview.Appearance;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.LoadAppearance(AAppearance: TSpkToolbarAppearance);
|
||||||
|
begin
|
||||||
|
with AAppearance do
|
||||||
|
begin
|
||||||
|
with Tab do
|
||||||
|
begin
|
||||||
|
SetPanelColor(pTabFrame, BorderColor);
|
||||||
|
SetPanelColor(pTabGradientFrom, GradientFromColor);
|
||||||
|
SetPanelColor(pTabGradientTo, GradientToColor);
|
||||||
|
SetComboGradientKind(cbTabGradientKind, GradientType);
|
||||||
|
SetPanelFont(pTabHeaderFont, TabHeaderFont);
|
||||||
|
SetPanelColor(pTabHeaderFontColor, TabHeaderFont.Color);
|
||||||
|
end;
|
||||||
|
|
||||||
|
with Pane do
|
||||||
|
begin
|
||||||
|
SetPanelColor(pPaneBorderDark, BorderDarkColor);
|
||||||
|
SetPanelColor(pPaneBorderLight, BorderLightColor);
|
||||||
|
SetPanelColor(pPaneGradientFrom, GradientFromColor);
|
||||||
|
SetPanelColor(pPaneGradientTo, GradientToColor);
|
||||||
|
SetComboGradientKind(cbPaneGradientKind, GradientType);
|
||||||
|
SetPanelColor(pPaneCaptionBackground, CaptionBgColor);
|
||||||
|
SetPanelFont(pPaneCaptionFont, CaptionFont);
|
||||||
|
SetPanelColor(pPaneCaptionFontColor, CaptionFont.Color);
|
||||||
|
end;
|
||||||
|
|
||||||
|
with Element do
|
||||||
|
begin
|
||||||
|
SetPanelFont(pItemFont, CaptionFont);
|
||||||
|
|
||||||
|
SetPanelColor(pItemIdleFrame, IdleFrameColor);
|
||||||
|
SetPanelColor(pItemIdleGradientFrom, IdleGradientFromColor);
|
||||||
|
SetPanelColor(pItemIdleGradientTo, IdleGradientToColor);
|
||||||
|
SetComboGradientKind(cbItemIdleGradientKind, IdleGradientType);
|
||||||
|
SetPanelColor(pItemIdleCaptionColor, IdleCaptionColor);
|
||||||
|
SetPanelColor(pItemIdleInnerDark, IdleInnerDarkColor);
|
||||||
|
SetPanelColor(pItemIdleInnerLight, IdleInnerLightColor);
|
||||||
|
|
||||||
|
SetPanelColor(pItemHottrackFrame, HottrackFrameColor);
|
||||||
|
SetPanelColor(pItemHottrackGradientFrom, HottrackGradientFromColor);
|
||||||
|
SetPanelColor(pItemHottrackGradientTo, HottrackGradientToColor);
|
||||||
|
SetComboGradientKind(cbItemHottrackGradientKind, HottrackGradientType);
|
||||||
|
SetPanelColor(pItemHottrackCaptionColor, HottrackCaptionColor);
|
||||||
|
SetPanelColor(pItemHottrackInnerDark, HottrackInnerDarkColor);
|
||||||
|
SetPanelColor(pItemHottrackInnerLight, HottrackInnerLightColor);
|
||||||
|
|
||||||
|
SetPanelColor(pItemActiveFrame, ActiveFrameColor);
|
||||||
|
SetPanelColor(pItemActiveGradientFrom, ActiveGradientFromColor);
|
||||||
|
SetPanelColor(pItemActiveGradientTo, ActiveGradientToColor);
|
||||||
|
SetComboGradientKind(cbItemActiveGradientKind, ActiveGradientType);
|
||||||
|
SetPanelColor(pItemActiveCaptionColor, ActiveCaptionColor);
|
||||||
|
SetPanelColor(pItemActiveInnerDark, ActiveInnerDarkColor);
|
||||||
|
SetPanelColor(pItemActiveInnerLight, ActiveInnerLightColor);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemActiveCaptionColorClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.ActiveCaptionColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemActiveFrameClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.ActiveFrameColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemActiveGradientFromClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.ActiveGradientFromColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.bExportClick(Sender: TObject);
|
||||||
|
|
||||||
|
var Xml : TSpkXMLParser;
|
||||||
|
Node : TSpkXMLNode;
|
||||||
|
|
||||||
|
begin
|
||||||
|
XML:=TSpkXMLParser.Create;
|
||||||
|
try
|
||||||
|
Node:=XML['Appearance',true];
|
||||||
|
tbPreview.Appearance.SaveToXML(Node);
|
||||||
|
|
||||||
|
mXML.Clear;
|
||||||
|
mXml.Text:=XML.Generate;
|
||||||
|
finally
|
||||||
|
XML.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.bImportClick(Sender: TObject);
|
||||||
|
|
||||||
|
var XML : TSpkXMLParser;
|
||||||
|
Node: TSpkXMLNode;
|
||||||
|
|
||||||
|
begin
|
||||||
|
tbPreview.BeginUpdate;
|
||||||
|
XML:=TSpkXMLParser.Create;
|
||||||
|
try
|
||||||
|
XML.Parse(PChar(mXML.text));
|
||||||
|
Node:=XML['Appearance',false];
|
||||||
|
if assigned(Node) then
|
||||||
|
tbPreview.Appearance.LoadFromXML(Node);
|
||||||
|
LoadAppearance(tbPreview.Appearance);
|
||||||
|
finally
|
||||||
|
XML.Free;
|
||||||
|
tbPreview.EndUpdate;
|
||||||
|
tbPreview.ForceRepaint;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.bResetClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Reset;
|
||||||
|
LoadAppearance(tbPreview.Appearance);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.cbItemActiveGradientKindChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case (Sender as TCombobox).ItemIndex of
|
||||||
|
0 : tbPreview.Appearance.Element.ActiveGradientType:=bkSolid;
|
||||||
|
1 : tbPreview.Appearance.Element.ActiveGradientType:=bkHorizontalGradient;
|
||||||
|
2 : tbPreview.Appearance.Element.ActiveGradientType:=bkVerticalGradient;
|
||||||
|
3 : tbPreview.Appearance.Element.ActiveGradientType:=bkConcave;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemActiveGradientToClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.ActiveGradientToColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemActiveInnerDarkClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.ActiveInnerDarkColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemActiveInnerLightClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.ActiveInnerLightColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemHottrackCaptionColorClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.HotTrackCaptionColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemHottrackFrameClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.HotTrackFrameColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemHottrackGradientFromClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.HotTrackGradientFromColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemHottrackGradientToClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.HotTrackGradientToColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemHottrackInnerDarkClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.HotTrackInnerDarkColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemHottrackInnerLightClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.HotTrackInnerLightColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemIdleCaptionColorClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.IdleCaptionColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemIdleFrameClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Element.IdleFrameColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkItem.Checked then
|
||||||
|
SetLinkedFrameColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemIdleGradientFromClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Element.IdleGradientFromColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkItem.Checked then
|
||||||
|
SetLinkedGradientFromColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemIdleGradientToClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Element.IdleGradientToColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkItem.Checked then
|
||||||
|
SetLinkedGradientToColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemIdleInnerDarkClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.IdleInnerDarkColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemIdleInnerLightClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.IdleInnerLightColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pItemFontClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeFont(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Element.CaptionFont.Assign((Sender as TPanel).Font);
|
||||||
|
tbPreview.ForceRepaint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pPaneBorderDarkClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Pane.BorderDarkColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkPane.Checked then
|
||||||
|
SetLinkedFrameColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pPaneBorderLightClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Pane.BorderLightColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pPaneCaptionBackgroundClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Pane.CaptionBgColor:=(Sender as TPanel).Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pPaneCaptionFontClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeFont(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Pane.CaptionFont.Assign((Sender as TPanel).Font);
|
||||||
|
tbPreview.ForceRepaint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pPaneCaptionFontColorClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Pane.CaptionFont.Color:=((Sender as TPanel).Color);
|
||||||
|
pPaneCaptionFont.Font.color:=((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pPaneGradientFromClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Pane.GradientFromColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkPane.Checked then
|
||||||
|
SetLinkedGradientFromColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.cbPaneGradientKindChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case (Sender as TCombobox).ItemIndex of
|
||||||
|
0 : tbPreview.Appearance.Pane.GradientType:=bkSolid;
|
||||||
|
1 : tbPreview.Appearance.Pane.GradientType:=bkHorizontalGradient;
|
||||||
|
2 : tbPreview.Appearance.Pane.GradientType:=bkVerticalGradient;
|
||||||
|
3 : tbPreview.Appearance.Pane.GradientType:=bkConcave;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if cbLinkPane.Checked then
|
||||||
|
SetLinkedGradientKind((Sender as TComboBox).ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pPaneGradientToClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Pane.GradientToColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkPane.Checked then
|
||||||
|
SetLinkedGradientToColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pTabFrameClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Tab.BorderColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkTab.checked then
|
||||||
|
SetLinkedFrameColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pTabGradientFromClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Tab.GradientFromColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkTab.Checked then
|
||||||
|
SetLinkedGradientFromColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pTabGradientToClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Tab.GradientToColor:=(Sender as TPanel).Color;
|
||||||
|
|
||||||
|
if cbLinkTab.Checked then
|
||||||
|
SetLinkedGradientToColor((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pTabHeaderFontClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeFont(Sender as TPanel) then
|
||||||
|
tbPreview.Appearance.Tab.TabHeaderFont.Assign((Sender as TPanel).Font);
|
||||||
|
tbPreview.ForceRepaint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmAppearanceEditWindow.pTabHeaderFontColorClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ChangeColor(Sender as TPanel) then
|
||||||
|
begin
|
||||||
|
tbPreview.Appearance.Tab.TabHeaderFont.Color:=((Sender as TPanel).Color);
|
||||||
|
pTabHeaderFont.Font.color:=((Sender as TPanel).Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@@ -0,0 +1,782 @@
|
|||||||
|
object frmEditWindow: TfrmEditWindow
|
||||||
|
Left = 457
|
||||||
|
Top = 186
|
||||||
|
Caption = 'Toolbar contents editor'
|
||||||
|
ClientHeight = 368
|
||||||
|
ClientWidth = 341
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
OnActivate = FormActivate
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object tvStructure: TTreeView
|
||||||
|
Left = 0
|
||||||
|
Top = 28
|
||||||
|
Width = 341
|
||||||
|
Height = 340
|
||||||
|
Align = alClient
|
||||||
|
HideSelection = False
|
||||||
|
Images = ilTreeImages
|
||||||
|
Indent = 19
|
||||||
|
MultiSelectStyle = []
|
||||||
|
PopupMenu = pmStructure
|
||||||
|
RightClickSelect = True
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = tvStructureChange
|
||||||
|
OnEdited = tvStructureEdited
|
||||||
|
OnKeyDown = tvStructureKeyDown
|
||||||
|
ExplicitLeft = 3
|
||||||
|
ExplicitTop = 31
|
||||||
|
end
|
||||||
|
object tbToolBar: TToolBar
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 3
|
||||||
|
Top = 3
|
||||||
|
Width = 335
|
||||||
|
Height = 22
|
||||||
|
Caption = 'tbToolBar'
|
||||||
|
DrawingStyle = dsGradient
|
||||||
|
Images = ilActionImages
|
||||||
|
Indent = 4
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 1
|
||||||
|
object tbAddTab: TToolButton
|
||||||
|
Left = 4
|
||||||
|
Top = 0
|
||||||
|
Action = aAddTab
|
||||||
|
end
|
||||||
|
object tbRemoveTab: TToolButton
|
||||||
|
Left = 27
|
||||||
|
Top = 0
|
||||||
|
Action = aRemoveTab
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 50
|
||||||
|
Top = 0
|
||||||
|
Width = 8
|
||||||
|
Caption = 'ToolButton3'
|
||||||
|
ImageIndex = 2
|
||||||
|
Style = tbsSeparator
|
||||||
|
end
|
||||||
|
object tbAddPane: TToolButton
|
||||||
|
Left = 58
|
||||||
|
Top = 0
|
||||||
|
Action = aAddPane
|
||||||
|
end
|
||||||
|
object tbRemovePane: TToolButton
|
||||||
|
Left = 81
|
||||||
|
Top = 0
|
||||||
|
Action = aRemovePane
|
||||||
|
end
|
||||||
|
object ToolButton6: TToolButton
|
||||||
|
Left = 104
|
||||||
|
Top = 0
|
||||||
|
Width = 8
|
||||||
|
Caption = 'ToolButton6'
|
||||||
|
ImageIndex = 4
|
||||||
|
Style = tbsSeparator
|
||||||
|
end
|
||||||
|
object tbAddItem: TToolButton
|
||||||
|
Left = 112
|
||||||
|
Top = 0
|
||||||
|
Action = aAddLargeButton
|
||||||
|
DropdownMenu = pmAddItem
|
||||||
|
Style = tbsDropDown
|
||||||
|
end
|
||||||
|
object tbRemoveItem: TToolButton
|
||||||
|
Left = 150
|
||||||
|
Top = 0
|
||||||
|
Action = aRemoveItem
|
||||||
|
end
|
||||||
|
object ToolButton9: TToolButton
|
||||||
|
Left = 173
|
||||||
|
Top = 0
|
||||||
|
Width = 8
|
||||||
|
Caption = 'ToolButton9'
|
||||||
|
ImageIndex = 6
|
||||||
|
Style = tbsSeparator
|
||||||
|
end
|
||||||
|
object tbMoveUp: TToolButton
|
||||||
|
Left = 181
|
||||||
|
Top = 0
|
||||||
|
Action = aMoveUp
|
||||||
|
end
|
||||||
|
object tbMoveDown: TToolButton
|
||||||
|
Left = 204
|
||||||
|
Top = 0
|
||||||
|
Action = aMoveDown
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ilTreeImages: TImageList
|
||||||
|
Left = 8
|
||||||
|
Top = 32
|
||||||
|
Bitmap = {
|
||||||
|
494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||||
|
0000000000003600000028000000400000001000000001002000000000000010
|
||||||
|
000000000000000000000000000000000000F7ECE300F7ECE300F7ECE300F7EC
|
||||||
|
E300F7ECE300F7ECE300F7ECE300F7ECE300F7ECE300F7ECE300F7ECE300F7EC
|
||||||
|
E300F7ECE300F7ECE300F7ECE300F7ECE3000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000F8D2B300F7ECE300F7ECE300F7EC
|
||||||
|
E300F7ECE300F7ECE300F7ECE300F7ECE300F7ECE300F7ECE300F7ECE300F7EC
|
||||||
|
E300F7ECE300F7ECE300F8D2B300ECC2A00000000000D5B49400BC997600BC99
|
||||||
|
7600BC997600BC997600BC997600BC997600BC997600BC997600BC997600BC99
|
||||||
|
7600BC997600BC997600D5B4940000000000000000000000000000000000B791
|
||||||
|
6B00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B791
|
||||||
|
6B00B7916B000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000EBC59400F8D2B400F6EBE200F7EC
|
||||||
|
E300F7EBE300F7EBE300F6EBE200F7EBE300F6EBE300F6EBE200F6ECE300F7EB
|
||||||
|
E300F7EBE300F8D2B400EBC5940000000000D2AF8E00B9967300FDE8D500FFF0
|
||||||
|
E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0
|
||||||
|
E200FFF0E200FDE8D500B9967300D2AF8E000000000000000000B7916B00FFED
|
||||||
|
DF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFED
|
||||||
|
DF00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000ECC1A000F8EDE500F8ED
|
||||||
|
E500F8EDE400F8EDE500F8EDE500F8EDE500F8EDE500F8EDE500F8EDE500F8EC
|
||||||
|
E500F8EDE500ECC1A0000000000000000000B9947000FDE5D200EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FDE5D200B99470000000000000000000B7916B00FFED
|
||||||
|
DF00F1C9A200F0CAA100F1C9A200F0C9A100F0C9A200F1C9A100F0CAA100F1C9
|
||||||
|
A100FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000E2B28E00F9EFE700F9EE
|
||||||
|
E600F9EFE700F9EFE700F9EEE700F9EEE700F9EFE700F9EFE700F9EEE700F9EF
|
||||||
|
E700F9EEE700E2B28E000000000000000000B7916B00FFEDDF00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FFEDDF00B7916B000000000000000000B7916B00FFED
|
||||||
|
DF00EEC49C00EEC49C00EEC59C00EEC49B00EEC49B00EEC49B00EEC49B00EFC4
|
||||||
|
9C00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000E2B28E00FAF0E800FAF0
|
||||||
|
E900FAF1E900FAF0E800FAF1E800FBF0E900FAF0E900FAF0E800FAF0E800FAF1
|
||||||
|
E900FAF0E900E2B28E000000000000000000B7916B00FFEDDF00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FFEDDF00B7916B000000000000000000B7916B00FFED
|
||||||
|
DF00ECBF9600EBBF9600EBBF9600ECBF9600ECBF9600EBBF9600ECBF9500ECBF
|
||||||
|
9600FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000E2B28E00FBF2EB00FBF2
|
||||||
|
EA00FBF1EB00FBF2EB00FBF2EB00FBF2EA00FCF2EB00FBF1EB00FBF1EB00FBF2
|
||||||
|
EB00FBF1EA00E2B28E000000000000000000B7916B00FFEDDF00F2CCA400F2CC
|
||||||
|
A400F2CCA400F2CCA400F2CCA400F2CCA400F2CCA400F2CCA400F2CCA400F2CC
|
||||||
|
A400F2CCA400F2CCA400FFEDDF00B7916B000000000000000000B7916B00FFED
|
||||||
|
DF00E9B99000E9BA9000E9BA9100E9BA9100E9BA9000E9BA9000E9BA9000E9BA
|
||||||
|
9000FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000E2B28E00FCF3ED00FCF4
|
||||||
|
ED00FDF3ED00FCF3ED00FCF4ED00FCF3ED00FDF3ED00FCF3ED00FCF4ED00FCF3
|
||||||
|
ED00FCF4ED00E2B28E000000000000000000B7916B00FFEDDF00EABF9400EABF
|
||||||
|
9400EABF9400EABF9400EABF9400EABF9400EABF9400EABF9400EABF9400EABF
|
||||||
|
9400EABF9400EABF9400FFEDDF00B7916B000000000000000000B7916B00FFED
|
||||||
|
DF00E6B48A00E6B58A00E7B48A00E6B48A00E6B58B00E6B58A00E7B58B00E7B5
|
||||||
|
8A00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000ECC1A000FBEDC600FEF5
|
||||||
|
EF00FDF6EE00FDF5EF00FDF5EF00FEF6EF00FDF6EF00FDF5EF00FDF5EF00FEF5
|
||||||
|
EF00FBEDC600ECC1A0000000000000000000B7916B00FFEDDF00E5B18900E5B1
|
||||||
|
8900E5B18900E5B18900E5B18900E5B18900E5B18900E5B18900E5B18900E5B1
|
||||||
|
8900E5B18900E5B18900FFEDDF00B7916B000000000000000000B7916B00FFED
|
||||||
|
DF00E4B08500E4B08500E4AF8500E4B08500E4B08500E4AF8500E4AF8500E4B0
|
||||||
|
8500FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000F8D2B400EBC59400F9EA
|
||||||
|
D900FFF6F000FEF6F000FEF6F000FEF6F000FEF6F000FEF6F000FFF6F000F9EA
|
||||||
|
D900EBC59400F8D2B4000000000000000000B7916B00FFEDDF00E2AC8100E2AC
|
||||||
|
8100E2AC8100E2AC8100E2AC8100E2AC8100E2AC8100E2AC8100E2AC8100E2AC
|
||||||
|
8100E2AC8100E2AC8100FFEDDF00B7916B000000000000000000B7916B00FFED
|
||||||
|
DF00E2AC8100E2AC8100E2AC8100E2AC8100E2AC8100E1AC8000E2AC8100E2AC
|
||||||
|
8100FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000F8D2B300ECC2
|
||||||
|
A000E5B89700E5B89700E5B89700E5B89700E5B89700E5B89700E5B89700ECC2
|
||||||
|
A000F8D2B300000000000000000000000000B7916B00FFEDDF00E8B48B00E8B4
|
||||||
|
8B00E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B4
|
||||||
|
8B00E8B48B00E8B48B00FFEDDF00B7916B000000000000000000B7916B00FFED
|
||||||
|
DF00E7B68C00E7B68C00E7B68C00E7B68C00E7B68C00E7B68C00E7B68C00E7B6
|
||||||
|
8C00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000B9947000FDE5D200E8B48B00E8B4
|
||||||
|
8B00E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B4
|
||||||
|
8B00E8B48B00E8B48B00FDE5D200B99470000000000000000000B7916B00FFED
|
||||||
|
DF00E9BA9100E9BA9100E9BA9100E9BA9100E9BA9100E9BA9100E9BA9100E9BA
|
||||||
|
9100FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000D2AF8E00B9967300FDE8D500FFF0
|
||||||
|
E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0
|
||||||
|
E200FFF0E200FDE8D500B9967300D2AF8E000000000000000000B7916B00FFED
|
||||||
|
DF00EEC49B00EEC49B00EEC49B00EEC49B00EEC49B00EEC49B00EEC49B00EEC4
|
||||||
|
9B00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000D5B49400BC997600BC99
|
||||||
|
7600BC997600BC997600BC997600BC997600BC997600BC997600BC997600BC99
|
||||||
|
7600BC997600BC997600D5B49400000000000000000000000000B7916B00FFED
|
||||||
|
DF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFED
|
||||||
|
DF00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000000000000000000000B791
|
||||||
|
6B00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B791
|
||||||
|
6B00B7916B000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000424D3E000000000000003E000000
|
||||||
|
2800000040000000100000000100010000000000800000000000000000000000
|
||||||
|
000000000000000000000000FFFFFF000000FFFFFFFF000000008001E0070000
|
||||||
|
00010000C003000080030000C003000080030000C003000080030000C0030000
|
||||||
|
80030000C003000080030000C003000080030000C003000080030000C0030000
|
||||||
|
C0070000C0030000FFFF0000C0030000FFFF0000C0030000FFFF8001C0030000
|
||||||
|
FFFFFFFFE0070000FFFFFFFFFFFF000000000000000000000000000000000000
|
||||||
|
000000000000}
|
||||||
|
end
|
||||||
|
object ilActionImages: TImageList
|
||||||
|
Left = 40
|
||||||
|
Top = 32
|
||||||
|
Bitmap = {
|
||||||
|
494C010108000C00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||||
|
0000000000003600000028000000400000003000000001002000000000000030
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00D0966B00D0966B00D0966B00D0966B00D0966B00D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000D0966B000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000000000000000000000B791
|
||||||
|
6B00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B791
|
||||||
|
6B00B7916B00000000000000000000000000000000000000000000000000B791
|
||||||
|
6B00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B791
|
||||||
|
6B00B7916B000000000000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00E8DACE00E8DACE00E8DACE00E8DACE00E7DACE00D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000D0966B00F0E6DE00D0966B0000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFED
|
||||||
|
DF00FFEDDF00B7916B0000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFEDDF00FFED
|
||||||
|
DF00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00D0966B00D0966B00D0966B00D0966B00D0966B00D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000D0966B00F0E6DE00F0E6DE00F0E6DE00D0966B00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF00F1C9A200F0CAA100F1C9A200F0C9A100F0C9A200F1C9A100F0CAA100F1C9
|
||||||
|
A100FFEDDF00B7916B0000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF00F1C9A200F0CAA100F1C9A200F0C9A100F0C9A200F1C9A100F0CAA100F1C9
|
||||||
|
A100FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00F0E5DE00F0E5DE00F0E5DE00F0E5DE00F0E5DE00D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF00EEC49C00EEC49C00EEC59C00EEC49B00EEC49B00EEC49B00EEC49B00EFC4
|
||||||
|
9C00FFEDDF00B7916B0000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF00EEC49C00EEC49C00EEC59C00EEC49B00EEC49B00EEC49B00EEC49B00EFC4
|
||||||
|
9C00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00D0966B00D0966B00D0966B00D0966B00D0966B00D0966B000000
|
||||||
|
000000000000000000000000000000000000000000000000000000000000D096
|
||||||
|
6B00EEE4DC00EEE4DC00EFE4DC00EEE4DB00EFE4DC00EFE4DC00EFE4DC00D096
|
||||||
|
6B00000000000000000000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF000235CC00EBBF9600EBBF9600ECBF9600ECBF9600EBBF9600ECBF9500ECBF
|
||||||
|
9600FFEDDF00B7916B0000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF00ECBF9600EBBF9600EBBF9600ECBF9600ECBF9600EBBF9600ECBF9500ECBF
|
||||||
|
9600FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00EBDED400EADFD400EADED400EBDED400EBDED400D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000D0966B00EEE3
|
||||||
|
DB00EEE3DB00EEE3DB00EEE3DA00EEE3DB00EEE4DA00EEE3DA00EEE3DA00EEE3
|
||||||
|
DA00D0966B000000000000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF000235CC00E9BA9000E9BA9100E9BA9100E9BA9000E9BA9000E9BA9000E9BA
|
||||||
|
9000FFEDDF00B7916B0000000000000000000000000000000000B7916B00FFED
|
||||||
|
DF00E9B99000E9BA9000E9BA9100E9BA9100E9BA9000E9BA9000E9BA9000E9BA
|
||||||
|
9000FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00ECE0D600ECDFD500ECDFD600ECDFD600ECE0D500D0966B000000
|
||||||
|
00000000000000000000000000000000000000000000D0966B00EDE2D800EDE2
|
||||||
|
D800EDE2D900EDE2D900EDE2D900EDE2D800EDE2D900EDE2D900EDE2D800EDE2
|
||||||
|
D800EDE2D800D0966B000000000000000000000000000468FF00B7916B00FFED
|
||||||
|
DF000235CC00E6B58A00E7B48A000436CD00E6B58B00E6B58A00E7B58B00E7B5
|
||||||
|
8A00FFEDDF00B7916B0000000000000000001A47D200002EC300000D8F00000D
|
||||||
|
8F00E6B48A00000D8F00000D8F00000D8F00000D8F00E6B58A00E7B58B00E7B5
|
||||||
|
8A00FFEDDF00B7916B00000000000000000000000000D0966B00D0966B00D096
|
||||||
|
6B00D0966B00EDE1D700EDE1D700ECE1D700ECE1D700EDE1D700D0966B00D096
|
||||||
|
6B00D0966B00D0966B00000000000000000000000000D0966B00D0966B00D096
|
||||||
|
6B00D0966B00EDE1D700EDE1D700ECE1D700ECE1D700EDE1D700D0966B00D096
|
||||||
|
6B00D0966B00D0966B00000000000000000000000000000000000436CD00FFED
|
||||||
|
DF000235CC00E4B085000267FF00E4B08500E4B08500E4AF8500E4AF8500E4B0
|
||||||
|
8500FFEDDF00B7916B00000000000000000000000000466BDD001947D200000D
|
||||||
|
8F00E4B08500000D8F00001094001C299E00E4B08500E4AF8500E4AF8500E4B0
|
||||||
|
8500FFEDDF00B7916B00000000000000000000000000D0966B00EDE2D800EDE2
|
||||||
|
D800EDE2D900EDE2D900EDE2D900EDE2D800EDE2D900EDE2D900EDE2D800EDE2
|
||||||
|
D800EDE2D800D0966B0000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00ECE0D600ECDFD500ECDFD600ECDFD600ECE0D500D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000B7916B000267
|
||||||
|
FF000235CC000267FF00E2AC8100E2AC8100E2AC8100E1AC8000E2AC8100E2AC
|
||||||
|
8100FFEDDF00B7916B00000000000000000000000000000000005D7DE3000025
|
||||||
|
B6000012970000159C00001FAC00E2AC8100E2AC8100E1AC8000E2AC8100E2AC
|
||||||
|
8100FFEDDF00B7916B0000000000000000000000000000000000D0966B00EEE3
|
||||||
|
DB00EEE3DB00EEE3DB00EEE3DA00EEE3DB00EEE4DA00EEE3DA00EEE3DA00EEE3
|
||||||
|
DA00D0966B000000000000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00EBDED400EADFD400EADED400EBDED400EBDED400D0966B000000
|
||||||
|
000000000000000000000000000000000000000000000235CC000235CC000033
|
||||||
|
CC0033CCFF000234CC000234CC000234CC00E7B68C00E7B68C00E7B68C00E7B6
|
||||||
|
8C00FFEDDF00B7916B0000000000000000000000000000000000B7916B002752
|
||||||
|
D600002CC0000019A200E7B68C00E7B68C00E7B68C00E7B68C00E7B68C00E7B6
|
||||||
|
8C00FFEDDF00B7916B000000000000000000000000000000000000000000D096
|
||||||
|
6B00EEE4DC00EEE4DC00EFE4DC00EEE4DB00EFE4DC00EFE4DC00EFE4DC00D096
|
||||||
|
6B00000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00D0966B00D0966B00D0966B00D0966B00D0966B00D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000B7916B000267
|
||||||
|
FF000235CC000267FF00E9BA9100E9BA9100E9BA9100E9BA9100E9BA9100E9BA
|
||||||
|
9100FFEDDF00B7916B0000000000000000000000000000000000B7916B002F59
|
||||||
|
D8000033CC0000119500E9BA9100E9BA9100E9BA9100E9BA9100E9BA9100E9BA
|
||||||
|
9100FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00F0E5DE00F0E5DE00F0E5DE00F0E5DE00F0E5DE00D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000000468FF00FFED
|
||||||
|
DF000235CC00EEC49B000468FF00EEC49B00EEC49B00EEC49B00EEC49B00EEC4
|
||||||
|
9B00FFEDDF00B7916B00000000000000000000000000000000000C3DCF002D57
|
||||||
|
D7002F59D8001242D100000D8F00EEC49B00EEC49B00EEC49B00EEC49B00EEC4
|
||||||
|
9B00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
000000000000D0966B00F0E6DE00F0E6DE00F0E6DE00D0966B00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00D0966B00D0966B00D0966B00D0966B00D0966B00D0966B000000
|
||||||
|
000000000000000000000000000000000000000000000436CD00B7916B00FFED
|
||||||
|
DF000235CC00FFEDDF00FFEDDF000436CD00FFEDDF00FFEDDF00FFEDDF00FFED
|
||||||
|
DF00FFEDDF00B7916B000000000000000000000000002D57D700325BD800355D
|
||||||
|
D900FFEDDF005073E0000020AE00000D8F00FFEDDF00FFEDDF00FFEDDF00FFED
|
||||||
|
DF00FFEDDF00B7916B0000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000D0966B00F0E6DE00D0966B0000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00E8DACE00E8DACE00E8DACE00E8DACE00E7DACE00D0966B000000
|
||||||
|
000000000000000000000000000000000000000000000000000000000000B791
|
||||||
|
6B000235CC00B7916B00B7916B00B7916B00B7916B00B7916B00B7916B00B791
|
||||||
|
6B00B7916B000000000000000000000000004B6FDF005879E2004E71DF00365E
|
||||||
|
DA00B7916B005C7DE300335CD9000030C700001BA600B7916B00B7916B00B791
|
||||||
|
6B00B7916B000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000D0966B000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000D0966B00D0966B00D0966B00D0966B00D0966B00D0966B00D0966B000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000235CC000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000E7D9CD00E7D9CD00E7D9CD00E7D9
|
||||||
|
CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9
|
||||||
|
CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9
|
||||||
|
CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9
|
||||||
|
CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000E8B78F00E7D9CD00E7D9CD00E7D9
|
||||||
|
CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9
|
||||||
|
CD00E7D9CD00E7D9CD00E8B78F00D9A37700E8B78F00E7D9CD00E7D9CD00E7D9
|
||||||
|
CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9CD00E7D9
|
||||||
|
CD00E7D9CD00E7D9CD00E8B78F00D9A3770000000000D5B49400BC997600BC99
|
||||||
|
7600BC997600BC997600BC997600BC997600BC997600BC997600BC997600BC99
|
||||||
|
7600BC997600BC997600D5B494000000000000000000D5B49400BC997600BC99
|
||||||
|
7600BC997600BC997600BC997600BC997600BC997600BC997600BC997600BC99
|
||||||
|
7600BC997600BC997600D5B4940000000000D8A76700E8B79100E6D8CC00E7D9
|
||||||
|
CD00E7D8CD00E7D8CD00E6D8CC00E7D8CD00E6D8CD00E6D8CC00E6D9CD00E7D8
|
||||||
|
CD00E7D8CD00E8B79100D8A7670000000000D8A76700E8B79100E6D8CC00E7D9
|
||||||
|
CD00E7D8CD00E7D8CD00E6D8CC00E7D8CD00E6D8CD00E6D8CC00E6D9CD00E7D8
|
||||||
|
CD00E7D8CD00E8B79100D8A7670000000000D2AF8E00B9967300FDE8D500FFF0
|
||||||
|
E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0
|
||||||
|
E200FFF0E200FDE8D500B9967300D2AF8E00D2AF8E00B9967300FDE8D500FFF0
|
||||||
|
E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0E200FFF0
|
||||||
|
E200FFF0E200FDE8D500B9967300D2AF8E0000000000D9A17700E8DAD000E8DA
|
||||||
|
D000E8DACF00E8DAD000E8DAD000E8DAD000E8DAD000E8DAD000E8DAD000E8D9
|
||||||
|
D000E8DAD000D9A17700000000000000000000000000D9A17700E8DAD000E8DA
|
||||||
|
D000E8DACF00E8DAD000E8DAD000E8DAD000E8DAD000E8DAD000E8DAD000E8D9
|
||||||
|
D000E8DAD000D9A177000000000000000000B9947000FDE5D200EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FDE5D200B9947000B9947000FDE5D200EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FDE5D200B994700000000000CC8E6000EADDD300EADC
|
||||||
|
D100EADDD300EADDD300EADCD300EADCD300EADDD300EADDD300EADCD300EADD
|
||||||
|
D300EADCD300CC8E6000000000000000000000000000CC8E6000EADDD300EADC
|
||||||
|
D100EADDD300EADDD300EADCD300EADCD300EADDD300EADDD300EADCD300EADD
|
||||||
|
D300EADCD300CC8E60000000000000000000B7916B00FFEDDF00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FFEDDF00B7916B00B7916B00FFEDDF00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FFEDDF00B7916B0000000000CC8E6000EBDED400EBDE
|
||||||
|
D5000235CC00EBDED400EBDFD400ECDED500EBDED500EBDED400EBDED400EBDF
|
||||||
|
D500EBDED500CC8E6000000000000000000000000000CC8E6000EBDED400EBDE
|
||||||
|
D500EBDFD500EBDED400EBDFD400ECDED500EBDED500EBDED400EBDED400EBDF
|
||||||
|
D500EBDED500CC8E60000000000000000000B7916B00FFEDDF00EDAF6E00EDAF
|
||||||
|
6E000235CC00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FFEDDF00B7916B00B7916B00FFEDDF00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF6E00EDAF
|
||||||
|
6E00EDAF6E00EDAF6E00FFEDDF00B7916B0000000000CC8E6000ECE1D800ECE1
|
||||||
|
D6000235CC00ECE1D800ECE1D800ECE1D600EEE1D800ECDFD800ECDFD800ECE1
|
||||||
|
D800ECDFD600CC8E6000000000000000000000000000CC8E6000ECE1D800ECE1
|
||||||
|
D600ECDFD800ECE1D800ECE1D800ECE1D600EEE1D800ECDFD800ECDFD800ECE1
|
||||||
|
D800ECDFD600CC8E60000000000000000000B7916B00FFEDDF00F2CCA400F2CC
|
||||||
|
A4000235CC00F2CCA400F2CCA400F2CCA400F2CCA400F2CCA400F2CCA400F2CC
|
||||||
|
A400F2CCA400F2CCA400FFEDDF00B7916B00B7916B00FFEDDF00F2CCA400F2CC
|
||||||
|
A400F2CCA400F2CCA400F2CCA400F2CCA400F2CCA400F2CCA400F2CCA400F2CC
|
||||||
|
A400F2CCA400F2CCA400FFEDDF00B7916B00000000000468FF00EEE2DA00EEE3
|
||||||
|
DA000235CC00EEE2DA00EEE3DA000436CD00EFE2DA00EEE2DA00EEE3DA00EEE2
|
||||||
|
DA00EEE3DA00CC8E600000000000000000001A47D200002EC300000D8F00000D
|
||||||
|
8F00EFE2DA00000D8F00000D8F00000D8F00000D8F00EEE2DA00EEE3DA00EEE2
|
||||||
|
DA00EEE3DA00CC8E60000000000000000000B7916B000468FF00EABF9400EABF
|
||||||
|
94000235CC00EABF9400EABF94000436CD00EABF9400EABF9400EABF9400EABF
|
||||||
|
9400EABF9400EABF9400FFEDDF00B7916B001A47D200002EC300000D8F00000D
|
||||||
|
8F00EABF9400000D8F00000D8F00000D8F00000D8F00EABF9400EABF9400EABF
|
||||||
|
9400EABF9400EABF9400FFEDDF00B7916B0000000000D9A177000436CD00F0E5
|
||||||
|
DD000235CC00EFE5DD000267FF00F0E6DD00EFE6DD00EFE5DD00EFE5DD00F0E5
|
||||||
|
DD00ECDAA800D9A17700000000000000000000000000466BDD001947D200000D
|
||||||
|
8F00EFE6DC00000D8F00001094001C299E00EFE6DD00EFE5DD00EFE5DD00F0E5
|
||||||
|
DD00ECDAA800D9A177000000000000000000B7916B00FFEDDF000436CD00E5B1
|
||||||
|
89000235CC00E5B189000267FF00E5B18900E5B18900E5B18900E5B18900E5B1
|
||||||
|
8900E5B18900E5B18900FFEDDF00B7916B00B7916B00466BDD001947D200000D
|
||||||
|
8F00E5B18900000D8F00001094001C299E00E5B18900E5B18900E5B18900E5B1
|
||||||
|
8900E5B18900E5B18900FFEDDF00B7916B0000000000E8B79100D8A767000267
|
||||||
|
FF000235CC000267FF00F0E6DE00F0E6DE00F0E6DE00F0E6DE00F1E6DE00EAD6
|
||||||
|
C000D8A76700E8B79100000000000000000000000000E8B791005D7DE3000025
|
||||||
|
B6000012970000159C00001FAC00F0E6DE00F0E6DE00F0E6DE00F1E6DE00EAD6
|
||||||
|
C000D8A76700E8B791000000000000000000B7916B00FFEDDF00E2AC81000267
|
||||||
|
FF000235CC000267FF00E2AC8100E2AC8100E2AC8100E2AC8100E2AC8100E2AC
|
||||||
|
8100E2AC8100E2AC8100FFEDDF00B7916B00B7916B00FFEDDF005D7DE3000025
|
||||||
|
B6000012970000159C00001FAC00E2AC8100E2AC8100E2AC8100E2AC8100E2AC
|
||||||
|
8100E2AC8100E2AC8100FFEDDF00B7916B00000000000235CC000235CC000033
|
||||||
|
CC0033CCFF000234CC000234CC000234CC00D0966B00D0966B00D0966B00D9A3
|
||||||
|
7700E8B78F000000000000000000000000000000000000000000E8B78F002752
|
||||||
|
D600002CC0000019A200D0966B00D0966B00D0966B00D0966B00D0966B00D9A3
|
||||||
|
7700E8B78F00000000000000000000000000B7916B000235CC000235CC000033
|
||||||
|
CC0033CCFF000234CC000234CC000234CC00E8B48B00E8B48B00E8B48B00E8B4
|
||||||
|
8B00E8B48B00E8B48B00FFEDDF00B7916B00B7916B00FFEDDF00E8B48B002752
|
||||||
|
D600002CC0000019A200E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B4
|
||||||
|
8B00E8B48B00E8B48B00FFEDDF00B7916B000000000000000000000000000267
|
||||||
|
FF000235CC000267FF0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000002F59
|
||||||
|
D8000033CC000011950000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000B9947000FDE5D200E8B48B000267
|
||||||
|
FF000235CC000267FF00E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B4
|
||||||
|
8B00E8B48B00E8B48B00FDE5D200B9947000B9947000FDE5D200E8B48B002F59
|
||||||
|
D8000033CC0000119500E8B48B00E8B48B00E8B48B00E8B48B00E8B48B00E8B4
|
||||||
|
8B00E8B48B00E8B48B00FDE5D200B994700000000000000000000468FF000000
|
||||||
|
00000235CC00000000000468FF00000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000000C3DCF002D57
|
||||||
|
D7002F59D8001242D100000D8F00000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000D2AF8E00B99673000468FF00FFF0
|
||||||
|
E2000235CC00FFF0E2000468FF00FFF0E200FFF0E200FFF0E200FFF0E200FFF0
|
||||||
|
E200FFF0E200FDE8D500B9967300D2AF8E00D2AF8E00B99673000C3DCF002D57
|
||||||
|
D7002F59D8001242D100000D8F00FFF0E200FFF0E200FFF0E200FFF0E200FFF0
|
||||||
|
E200FFF0E200FDE8D500B9967300D2AF8E00000000000436CD00000000000000
|
||||||
|
00000235CC0000000000000000000436CD000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000002D57D700325BD800355D
|
||||||
|
D900000000005073E0000020AE00000D8F000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000000436CD00BC997600BC99
|
||||||
|
76000235CC00BC997600BC9976000436CD00BC997600BC997600BC997600BC99
|
||||||
|
7600BC997600BC997600D5B4940000000000000000002D57D700325BD800355D
|
||||||
|
D900BC9976005073E0000020AE00000D8F00BC997600BC997600BC997600BC99
|
||||||
|
7600BC997600BC997600D5B49400000000000000000000000000000000000000
|
||||||
|
00000235CC000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000004B6FDF005879E2004E71DF00365E
|
||||||
|
DA00000000005C7DE300335CD9000030C700001BA60000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000235CC000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000004B6FDF005879E2004E71DF00365E
|
||||||
|
DA00000000005C7DE300335CD9000030C700001BA60000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000235CC000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000235CC000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000424D3E000000000000003E000000
|
||||||
|
2800000040000000300000000100010000000000800100000000000000000000
|
||||||
|
000000000000000000000000FFFFFF0000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000FFFFFFFFF01FFEFFE007E007F01FFC7F
|
||||||
|
C003C003F01FF83FC003C003FFFFF01FC003C003F01FE00FC003C003F01FC007
|
||||||
|
C003C003F01F80038003000380038003C00380038003F01FC003C003C007F01F
|
||||||
|
8003C003E00FF01FC003C003F01FFFFFC003C003F83FF01F80038003FC7FF01F
|
||||||
|
E0070007FEFFF01FF7FFFFFFFFFFFFFF00000000FFFFFFFF0000000080018001
|
||||||
|
0001000100000000800380030000000080038003000000008003800300000000
|
||||||
|
8003800300000000800300030000000080038003000000008003800300000000
|
||||||
|
8007C00700000000E3FFE3FF00000000D5FFC1FF00000000B6FF88FF80018001
|
||||||
|
F7FF087FF7FF087FF7FFFFFFF7FFFFFF00000000000000000000000000000000
|
||||||
|
000000000000}
|
||||||
|
end
|
||||||
|
object ActionList1: TActionList
|
||||||
|
Images = ilActionImages
|
||||||
|
Left = 72
|
||||||
|
Top = 32
|
||||||
|
object aAddTab: TAction
|
||||||
|
Caption = 'Add tab'
|
||||||
|
Hint = 'Add tab'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = aAddTabExecute
|
||||||
|
end
|
||||||
|
object aRemoveTab: TAction
|
||||||
|
Caption = 'Remove tab'
|
||||||
|
Hint = 'Remove tab'
|
||||||
|
ImageIndex = 1
|
||||||
|
OnExecute = aRemoveTabExecute
|
||||||
|
end
|
||||||
|
object aAddPane: TAction
|
||||||
|
Caption = 'Add pane'
|
||||||
|
Hint = 'Add pane'
|
||||||
|
ImageIndex = 2
|
||||||
|
OnExecute = aAddPaneExecute
|
||||||
|
end
|
||||||
|
object aRemovePane: TAction
|
||||||
|
Caption = 'Remove pane'
|
||||||
|
Hint = 'Remove pane'
|
||||||
|
ImageIndex = 3
|
||||||
|
OnExecute = aRemovePaneExecute
|
||||||
|
end
|
||||||
|
object aAddSmallButton: TAction
|
||||||
|
Caption = 'SpkSmallButton'
|
||||||
|
Hint = 'Add SmallButton'
|
||||||
|
ImageIndex = 4
|
||||||
|
OnExecute = aAddSmallButtonExecute
|
||||||
|
end
|
||||||
|
object aAddLargeButton: TAction
|
||||||
|
Caption = 'SpkLargeButton'
|
||||||
|
Hint = 'Add SpkLargeButton'
|
||||||
|
ImageIndex = 4
|
||||||
|
OnExecute = aAddLargeButtonExecute
|
||||||
|
end
|
||||||
|
object aRemoveItem: TAction
|
||||||
|
Caption = 'Remove item'
|
||||||
|
Hint = 'Remove item'
|
||||||
|
ImageIndex = 5
|
||||||
|
OnExecute = aRemoveItemExecute
|
||||||
|
end
|
||||||
|
object aMoveUp: TAction
|
||||||
|
Caption = 'Move up'
|
||||||
|
Hint = 'Move item up'
|
||||||
|
ImageIndex = 6
|
||||||
|
OnExecute = aMoveUpExecute
|
||||||
|
end
|
||||||
|
object aMoveDown: TAction
|
||||||
|
Caption = 'Move down'
|
||||||
|
Hint = 'Move item down'
|
||||||
|
ImageIndex = 7
|
||||||
|
OnExecute = aMoveDownExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pmAddItem: TPopupMenu
|
||||||
|
Left = 8
|
||||||
|
Top = 64
|
||||||
|
object SpkLargeButton1: TMenuItem
|
||||||
|
Action = aAddLargeButton
|
||||||
|
end
|
||||||
|
object SpkSmallButton1: TMenuItem
|
||||||
|
Action = aAddSmallButton
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pmStructure: TPopupMenu
|
||||||
|
Images = ilActionImages
|
||||||
|
Left = 40
|
||||||
|
Top = 64
|
||||||
|
object Addtab1: TMenuItem
|
||||||
|
Action = aAddTab
|
||||||
|
end
|
||||||
|
object Removetab1: TMenuItem
|
||||||
|
Action = aRemoveTab
|
||||||
|
end
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Addpane1: TMenuItem
|
||||||
|
Action = aAddPane
|
||||||
|
end
|
||||||
|
object Removepane1: TMenuItem
|
||||||
|
Action = aRemovePane
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Additem1: TMenuItem
|
||||||
|
Caption = 'Add item'
|
||||||
|
object SpkLargeButton2: TMenuItem
|
||||||
|
Action = aAddLargeButton
|
||||||
|
end
|
||||||
|
object SpkSmallButton2: TMenuItem
|
||||||
|
Action = aAddSmallButton
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Removeitem1: TMenuItem
|
||||||
|
Action = aRemoveItem
|
||||||
|
end
|
||||||
|
object N3: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Moveup1: TMenuItem
|
||||||
|
Action = aMoveUp
|
||||||
|
end
|
||||||
|
object Movedown1: TMenuItem
|
||||||
|
Action = aMoveDown
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
1174
components/spktoolbar/SpkToolbar - designtime/spkte_EditWindow.pas
Normal file
1174
components/spktoolbar/SpkToolbar - designtime/spkte_EditWindow.pas
Normal file
File diff suppressed because it is too large
Load Diff
1485
components/spktoolbar/SpkToolbar/SpkToolbar.pas
Normal file
1485
components/spktoolbar/SpkToolbar/SpkToolbar.pas
Normal file
File diff suppressed because it is too large
Load Diff
1171
components/spktoolbar/SpkToolbar/spkt_Appearance.pas
Normal file
1171
components/spktoolbar/SpkToolbar/spkt_Appearance.pas
Normal file
File diff suppressed because it is too large
Load Diff
154
components/spktoolbar/SpkToolbar/spkt_BaseItem.pas
Normal file
154
components/spktoolbar/SpkToolbar/spkt_BaseItem.pas
Normal file
@@ -0,0 +1,154 @@
|
|||||||
|
unit spkt_BaseItem;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Plik: spkt_BaseItem.pas *
|
||||||
|
* Opis: Modu� zawieraj�cy bazow� klas� dla elementu tafli. *
|
||||||
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u�ycie komponentu bez *
|
||||||
|
* uprzedniego uzyskania licencji od autora stanowi z�amanie *
|
||||||
|
* prawa autorskiego! *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Graphics, Classes, Controls,
|
||||||
|
SpkMath, SpkGUITools, SpkGraphTools,
|
||||||
|
spkt_Appearance, spkt_Exceptions, spkt_Dispatch, spkt_Types;
|
||||||
|
|
||||||
|
type TSpkItemSize = (isLarge, isNormal);
|
||||||
|
TSpkItemTableBehaviour = (tbBeginsRow, tbBeginsColumn, tbContinuesRow);
|
||||||
|
TSpkItemGroupBehaviour = (gbSingleItem, gbBeginsGroup, gbContinuesGroup, gbEndsGroup);
|
||||||
|
|
||||||
|
type TSpkBaseItem = class abstract(TSpkComponent)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
FRect : T2DIntRect;
|
||||||
|
FToolbarDispatch : TSpkBaseToolbarDispatch;
|
||||||
|
FAppearance : TSpkToolbarAppearance;
|
||||||
|
FImages : TImageList;
|
||||||
|
FDisabledImages : TImageList;
|
||||||
|
FLargeImages : TImageList;
|
||||||
|
FDisabledLargeImages : TImageList;
|
||||||
|
FVisible : boolean;
|
||||||
|
FEnabled : boolean;
|
||||||
|
|
||||||
|
procedure SetVisible(const Value: boolean); virtual;
|
||||||
|
procedure SetEnabled(const Value: boolean); virtual;
|
||||||
|
procedure SetRect(const Value: T2DIntRect); virtual;
|
||||||
|
procedure SetImages(const Value: TImageList); virtual;
|
||||||
|
procedure SetDisabledImages(const Value : TImageList); virtual;
|
||||||
|
procedure SetLargeImages(const Value: TImageList); virtual;
|
||||||
|
procedure SetDisabledLargeImages(const Value: TImageList); virtual;
|
||||||
|
procedure SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
public
|
||||||
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
procedure MouseLeave; virtual; abstract;
|
||||||
|
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
|
||||||
|
X, Y: Integer); virtual; abstract;
|
||||||
|
procedure MouseMove(Shift: TShiftState; X, Y: Integer); virtual; abstract;
|
||||||
|
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
|
||||||
|
X, Y: Integer); virtual; abstract;
|
||||||
|
|
||||||
|
function GetWidth : integer; virtual; abstract;
|
||||||
|
function GetTableBehaviour : TSpkItemTableBehaviour; virtual; abstract;
|
||||||
|
function GetGroupBehaviour : TSpkItemGroupBehaviour; virtual; abstract;
|
||||||
|
function GetSize : TSpkItemSize; virtual; abstract;
|
||||||
|
procedure Draw(ABuffer : TBitmap; ClipRect : T2DIntRect); virtual; abstract;
|
||||||
|
|
||||||
|
property ToolbarDispatch : TSpkBaseToolbarDispatch read FToolbarDispatch write FToolbarDispatch;
|
||||||
|
property Appearance : TSpkToolbarAppearance read FAppearance write SetAppearance;
|
||||||
|
property Images : TImageList read FImages write SetImages;
|
||||||
|
property DisabledImages : TImageList read FDisabledImages write SetDisabledImages;
|
||||||
|
property LargeImages : TImageList read FLargeImages write SetLargeImages;
|
||||||
|
property DisabledLargeImages : TImageList read FDisabledLargeImages write SetDisabledLargeImages;
|
||||||
|
|
||||||
|
property Rect : T2DIntRect read FRect write SetRect;
|
||||||
|
published
|
||||||
|
property Visible : boolean read FVisible write SetVisible;
|
||||||
|
property Enabled : boolean read FEnabled write SetEnabled;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkBaseItemClass = class of TSpkBaseItem;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TSpkBaseItem }
|
||||||
|
|
||||||
|
constructor TSpkBaseItem.Create(AOwner : TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
|
||||||
|
FRect:=T2DIntRect.create(0, 0, 0, 0);
|
||||||
|
FToolbarDispatch:=nil;
|
||||||
|
FAppearance:=nil;
|
||||||
|
FImages:=nil;
|
||||||
|
FDisabledImages:=nil;
|
||||||
|
FLargeImages:=nil;
|
||||||
|
FDisabledLargeImages:=nil;
|
||||||
|
FVisible:=true;
|
||||||
|
FEnabled:=true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TSpkBaseItem.Destroy;
|
||||||
|
begin
|
||||||
|
{ Pozosta�e operacje }
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkBaseItem.SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
begin
|
||||||
|
FAppearance := Value;
|
||||||
|
|
||||||
|
if assigned(FToolbarDispatch) then
|
||||||
|
FToolbarDispatch.NotifyMetricsChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkBaseItem.SetDisabledImages(const Value: TImageList);
|
||||||
|
begin
|
||||||
|
FDisabledImages := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkBaseItem.SetDisabledLargeImages(const Value: TImageList);
|
||||||
|
begin
|
||||||
|
FDisabledLargeImages:=Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkBaseItem.SetEnabled(const Value: boolean);
|
||||||
|
begin
|
||||||
|
if Value<>FEnabled then
|
||||||
|
begin
|
||||||
|
FEnabled:=Value;
|
||||||
|
if FToolbarDispatch<>nil then
|
||||||
|
FToolbarDispatch.NotifyVisualsChanged;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkBaseItem.SetImages(const Value: TImageList);
|
||||||
|
begin
|
||||||
|
FImages := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkBaseItem.SetLargeImages(const Value: TImageList);
|
||||||
|
begin
|
||||||
|
FLargeImages := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkBaseItem.SetRect(const Value: T2DIntRect);
|
||||||
|
begin
|
||||||
|
FRect := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkBaseItem.SetVisible(const Value: boolean);
|
||||||
|
begin
|
||||||
|
if Value<>FVisible then
|
||||||
|
begin
|
||||||
|
FVisible:=Value;
|
||||||
|
if FToolbarDispatch<>nil then
|
||||||
|
FToolbarDispatch.NotifyMetricsChanged;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
2022
components/spktoolbar/SpkToolbar/spkt_Buttons.pas
Normal file
2022
components/spktoolbar/SpkToolbar/spkt_Buttons.pas
Normal file
File diff suppressed because it is too large
Load Diff
190
components/spktoolbar/SpkToolbar/spkt_Const.pas
Normal file
190
components/spktoolbar/SpkToolbar/spkt_Const.pas
Normal file
@@ -0,0 +1,190 @@
|
|||||||
|
unit spkt_Const;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Plik: spkt_Const.pas *
|
||||||
|
* Opis: Sta�e wykorzystywane do obliczania geometrii toolbara *
|
||||||
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u�ycie komponentu bez *
|
||||||
|
* uprzedniego uzyskania licencji od autora stanowi z�amanie *
|
||||||
|
* prawa autorskiego! *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
const // ****************
|
||||||
|
// *** Elementy ***
|
||||||
|
// ****************
|
||||||
|
|
||||||
|
LARGEBUTTON_DROPDOWN_FIELD_SIZE = 29;
|
||||||
|
LARGEBUTTON_GLYPH_MARGIN = 1;
|
||||||
|
LARGEBUTTON_CAPTION_HMARGIN = 3;
|
||||||
|
LARGEBUTTON_MIN_WIDTH = 24;
|
||||||
|
LARGEBUTTON_RADIUS = 4;
|
||||||
|
LARGEBUTTON_BORDER_SIZE = 2;
|
||||||
|
LARGEBUTTON_CHEVRON_HMARGIN = 4;
|
||||||
|
LARGEBUTTON_CAPTION_TOP_RAIL = 45;
|
||||||
|
LARGEBUTTON_CAPTION_BOTTOM_RAIL = 58;
|
||||||
|
|
||||||
|
SMALLBUTTON_GLYPH_WIDTH = 16;
|
||||||
|
SMALLBUTTON_BORDER_WIDTH = 2;
|
||||||
|
SMALLBUTTON_HALF_BORDER_WIDTH = 1;
|
||||||
|
SMALLBUTTON_PADDING = 2;
|
||||||
|
SMALLBUTTON_DROPDOWN_WIDTH = 11;
|
||||||
|
SMALLBUTTON_RADIUS = 4;
|
||||||
|
SMALLBUTTON_MIN_WIDTH = 2 * SMALLBUTTON_PADDING + SMALLBUTTON_GLYPH_WIDTH;
|
||||||
|
|
||||||
|
// ********************
|
||||||
|
// *** Obszar tafli ***
|
||||||
|
// ********************
|
||||||
|
|
||||||
|
/// <summary>Maksymalna wysoko�� obszaru, kt�ry mo�e zaj�� zawarto��
|
||||||
|
/// tafli z elementami</summary>
|
||||||
|
MAX_ELEMENT_HEIGHT = 67;
|
||||||
|
|
||||||
|
/// <summary>Wysoko�� pojedynczego wiersza element�w tafli</summary>
|
||||||
|
PANE_ROW_HEIGHT = 22;
|
||||||
|
|
||||||
|
PANE_FULL_ROW_HEIGHT = 3 * PANE_ROW_HEIGHT;
|
||||||
|
|
||||||
|
/// <summary>Wewn�trzny pionowy margines pomi�dzy pierwszym elementem a
|
||||||
|
/// tafl� w przypadku wersji jednowierszowej</summary>
|
||||||
|
PANE_ONE_ROW_TOPPADDING = 22;
|
||||||
|
/// <summary>Wewn�trzny pionowy margines pomi�dzy ostatnim elementem
|
||||||
|
/// a tafl� w przypadku wersji jednowierszowej</summary>
|
||||||
|
PANE_ONE_ROW_BOTTOMPADDING = 23;
|
||||||
|
|
||||||
|
/// <summary>Odleg�o�� pomi�dzy wierszami w przypadku wersji dwuwierszowej
|
||||||
|
/// </summary>
|
||||||
|
PANE_TWO_ROWS_VSPACER = 7;
|
||||||
|
/// <summary>Wewn�trzny pionowy margines pomi�dzy pierwszym elementem a
|
||||||
|
/// tafl� w przypadku wersji dwuwierszowej</summary>
|
||||||
|
PANE_TWO_ROWS_TOPPADDING = 8;
|
||||||
|
/// <summary>Wewn�trzny pionowy margines pomi�dzy ostatnim elementem
|
||||||
|
/// a tafl� w przypadku wersji dwuwierszowej</summary>
|
||||||
|
PANE_TWO_ROWS_BOTTOMPADDING = 8;
|
||||||
|
|
||||||
|
/// <summary>Odleg�o�� pomi�dzy wierszami w przypadku wersji
|
||||||
|
/// trzywierszowej</summary>
|
||||||
|
PANE_THREE_ROWS_VSPACER = 0;
|
||||||
|
/// <summary>Wewn�trzny pionowy margines pomi�dzy pierwszym elementem a
|
||||||
|
/// tafl� w przypadku wersji trzywierszowej</summary>
|
||||||
|
PANE_THREE_ROWS_TOPPADDING = 0;
|
||||||
|
/// <summary>Wewn�trzny pionowy margines pomi�dzy ostatnim elementem
|
||||||
|
/// a tafl� w przypadku wersji trzywierszowej</summary>
|
||||||
|
PANE_THREE_ROWS_BOTTOMPADDING = 1;
|
||||||
|
|
||||||
|
PANE_FULL_ROW_TOPPADDING = PANE_THREE_ROWS_TOPPADDING;
|
||||||
|
|
||||||
|
PANE_FULL_ROW_BOTTOMPADDING = PANE_THREE_ROWS_BOTTOMPADDING;
|
||||||
|
|
||||||
|
/// <summary>Odleg�o�� pomi�dzy lew� kraw�dzi� a pierwszym elementem
|
||||||
|
/// tafli</summary>
|
||||||
|
PANE_LEFT_PADDING = 2;
|
||||||
|
|
||||||
|
/// <summary>Odleg�o�� pomi�dzy ostatnim elementem tafli a praw� kraw�dzi�
|
||||||
|
/// </summary>
|
||||||
|
PANE_RIGHT_PADDING = 2;
|
||||||
|
|
||||||
|
/// <summary>Odleg�o�� pomi�dzy dwoma kolumnami wewn�trz tafli</summary>
|
||||||
|
PANE_COLUMN_SPACER = 4;
|
||||||
|
|
||||||
|
/// <summary>Odleg�o�� pomi�dzy dwoma osobnymi grupami wewn�trz wiersza
|
||||||
|
/// w tafli</summary>
|
||||||
|
PANE_GROUP_SPACER = 4;
|
||||||
|
|
||||||
|
// *************
|
||||||
|
// *** Tafla ***
|
||||||
|
// *************
|
||||||
|
|
||||||
|
/// <summary>Wysoko�� obszaru tytu�u tafli</summary>
|
||||||
|
PANE_CAPTION_HEIGHT = 15;
|
||||||
|
|
||||||
|
PANE_CORNER_RADIUS = 3;
|
||||||
|
|
||||||
|
/// <summary>Szeroko��/wysoko�� ramki tafli</summary>
|
||||||
|
/// <remarks>Nie nale�y zmienia� tej sta�ej!</remarks>
|
||||||
|
PANE_BORDER_SIZE = 2;
|
||||||
|
|
||||||
|
/// <summary>Po�owa szeroko�ci ramki tafli</summary>
|
||||||
|
/// <remarks>Nie nale�y zmienia� tej sta�ej!</remarks>
|
||||||
|
PANE_BORDER_HALF_SIZE = 1;
|
||||||
|
|
||||||
|
/// <summary>Wysoko�� ca�ej tafli (uwzgl�dniaj�c ramk�)</summary>
|
||||||
|
PANE_HEIGHT = MAX_ELEMENT_HEIGHT + PANE_CAPTION_HEIGHT + 2 * PANE_BORDER_SIZE;
|
||||||
|
|
||||||
|
/// <summary>Poziomy margines etykiety zak�adki</summary>
|
||||||
|
PANE_CAPTION_HMARGIN = 6;
|
||||||
|
|
||||||
|
// ***********************
|
||||||
|
// *** Obszar zak�adki ***
|
||||||
|
// ***********************
|
||||||
|
|
||||||
|
/// <summary>Promie� zaokr�glenia zak�adki</summary>
|
||||||
|
TAB_CORNER_RADIUS = 4;
|
||||||
|
|
||||||
|
/// <summary>Lewy wewn�trzny margines zak�adki</summary>
|
||||||
|
TAB_PANE_LEFTPADDING = 2;
|
||||||
|
/// <summary>Prawy wewn�trzny margines zak�adki</summary>
|
||||||
|
TAB_PANE_RIGHTPADDING = 2;
|
||||||
|
/// <summary>G�rny wewn�trzny margines zak�adki</summary>
|
||||||
|
TAB_PANE_TOPPADDING = 2;
|
||||||
|
/// <summary>Dolny wewn�trzny margines zak�adki</summary>
|
||||||
|
TAB_PANE_BOTTOMPADDING = 1;
|
||||||
|
/// <summary>Odleg�o�� pomi�dzy taflami</summary>
|
||||||
|
TAB_PANE_HSPACING = 3;
|
||||||
|
|
||||||
|
/// <summary>Szeroko��/wysoko�� ramki zak�adki (nie nale�y zmienia�!)
|
||||||
|
/// </summary>
|
||||||
|
TAB_BORDER_SIZE = 1;
|
||||||
|
/// <summary>Wysoko�� zak�adki</summary>
|
||||||
|
TAB_HEIGHT = PANE_HEIGHT + TAB_PANE_TOPPADDING + TAB_PANE_BOTTOMPADDING + TAB_BORDER_SIZE;
|
||||||
|
|
||||||
|
// ***************
|
||||||
|
// *** Toolbar ***
|
||||||
|
// ***************
|
||||||
|
|
||||||
|
TOOLBAR_BORDER_WIDTH = 1;
|
||||||
|
|
||||||
|
TOOLBAR_CORNER_RADIUS = 3;
|
||||||
|
|
||||||
|
/// <summary>Wysoko�� etykiet z nazwami zak�adek</summary>
|
||||||
|
TOOLBAR_TAB_CAPTIONS_HEIGHT = 22;
|
||||||
|
/// <summary>Poziomy margines wewn�trznego tytu�u zak�adki</summary>
|
||||||
|
TOOLBAR_TAB_CAPTIONS_TEXT_HPADDING = 4;
|
||||||
|
|
||||||
|
TOOLBAR_MIN_TAB_CAPTION_WIDTH = 32;
|
||||||
|
|
||||||
|
/// <summary>Sumaryczna wysoko�� toolbara</summary>
|
||||||
|
TOOLBAR_HEIGHT = TOOLBAR_TAB_CAPTIONS_HEIGHT +
|
||||||
|
TAB_HEIGHT;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
initialization
|
||||||
|
|
||||||
|
{$IFDEF DEBUG}
|
||||||
|
// Sprawdzanie poprawno�ci
|
||||||
|
|
||||||
|
// �uk du�ego przycisku
|
||||||
|
assert(LARGEBUTTON_RADIUS * 2 <= LARGEBUTTON_DROPDOWN_FIELD_SIZE);
|
||||||
|
|
||||||
|
// Tafla, wersja z jednym wierszem
|
||||||
|
assert(PANE_ROW_HEIGHT +
|
||||||
|
PANE_ONE_ROW_TOPPADDING +
|
||||||
|
PANE_ONE_ROW_BOTTOMPADDING <= MAX_ELEMENT_HEIGHT);
|
||||||
|
|
||||||
|
// Tafla, wersja z dwoma wierszami
|
||||||
|
assert(2*PANE_ROW_HEIGHT +
|
||||||
|
PANE_TWO_ROWS_TOPPADDING +
|
||||||
|
PANE_TWO_ROWS_VSPACER +
|
||||||
|
PANE_TWO_ROWS_BOTTOMPADDING <= MAX_ELEMENT_HEIGHT);
|
||||||
|
|
||||||
|
// Tafla, wersja z trzema wierszami
|
||||||
|
assert(3*PANE_ROW_HEIGHT +
|
||||||
|
PANE_THREE_ROWS_TOPPADDING +
|
||||||
|
2*PANE_THREE_ROWS_VSPACER +
|
||||||
|
PANE_THREE_ROWS_BOTTOMPADDING <= MAX_ELEMENT_HEIGHT);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
end.
|
||||||
45
components/spktoolbar/SpkToolbar/spkt_Dispatch.pas
Normal file
45
components/spktoolbar/SpkToolbar/spkt_Dispatch.pas
Normal file
@@ -0,0 +1,45 @@
|
|||||||
|
unit spkt_Dispatch;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Plik: spkt_Dispatch.pas *
|
||||||
|
* Opis: Bazowe klasy dyspozytor�w po�rednicz�cych pomi�dzy elementami *
|
||||||
|
* toolbara. *
|
||||||
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u�ycie komponentu bez *
|
||||||
|
* uprzedniego uzyskania licencji od autora stanowi z�amanie *
|
||||||
|
* prawa autorskiego! *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Classes, Controls, Graphics,
|
||||||
|
SpkMath;
|
||||||
|
|
||||||
|
type TSpkBaseDispatch = class abstract(TObject)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkBaseAppearanceDispatch = class abstract(TSpkBaseDispatch)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
procedure NotifyAppearanceChanged; virtual; abstract;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkBaseToolbarDispatch = class abstract(TSpkBaseAppearanceDispatch)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
procedure NotifyItemsChanged; virtual; abstract;
|
||||||
|
procedure NotifyMetricsChanged; virtual; abstract;
|
||||||
|
procedure NotifyVisualsChanged; virtual; abstract;
|
||||||
|
function GetTempBitmap : TBitmap; virtual; abstract;
|
||||||
|
function ClientToScreen(Point : T2DIntPoint) : T2DIntPoint; virtual; abstract;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
24
components/spktoolbar/SpkToolbar/spkt_Exceptions.pas
Normal file
24
components/spktoolbar/SpkToolbar/spkt_Exceptions.pas
Normal file
@@ -0,0 +1,24 @@
|
|||||||
|
unit spkt_Exceptions;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Plik: spkt_Exceptions.pas *
|
||||||
|
* Opis: Klasy wyj�tk�w toolbara *
|
||||||
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u�ycie komponentu bez *
|
||||||
|
* uprzedniego uzyskania licencji od autora stanowi z�amanie *
|
||||||
|
* prawa autorskiego! *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses SysUtils;
|
||||||
|
|
||||||
|
type InternalException = class(Exception);
|
||||||
|
AssignException = class(Exception);
|
||||||
|
RuntimeException = class(Exception);
|
||||||
|
ListException = class(Exception);
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
253
components/spktoolbar/SpkToolbar/spkt_Items.pas
Normal file
253
components/spktoolbar/SpkToolbar/spkt_Items.pas
Normal file
@@ -0,0 +1,253 @@
|
|||||||
|
unit spkt_Items;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Plik: spkt_Items.pas *
|
||||||
|
* Opis: Modu� zawiera klas� kolekcji element�w tafli. *
|
||||||
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u�ycie komponentu bez *
|
||||||
|
* uprzedniego uzyskania licencji od autora stanowi z�amanie *
|
||||||
|
* prawa autorskiego! *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Classes, Controls, SysUtils, Dialogs,
|
||||||
|
SpkXMLParser,
|
||||||
|
spkt_Appearance, spkt_Dispatch, spkt_BaseItem, spkt_Exceptions, spkt_Types,
|
||||||
|
spkt_Buttons;
|
||||||
|
|
||||||
|
type TSpkItems = class(TSpkCollection)
|
||||||
|
private
|
||||||
|
FToolbarDispatch : TSpkBaseToolbarDispatch;
|
||||||
|
FAppearance : TSpkToolbarAppearance;
|
||||||
|
FImages : TImageList;
|
||||||
|
FDisabledImages : TImageList;
|
||||||
|
FLargeImages : TImageList;
|
||||||
|
FDisabledLargeImages : TImageList;
|
||||||
|
|
||||||
|
// *** Gettery i settery ***
|
||||||
|
procedure SetToolbarDispatch(const Value: TSpkBaseToolbarDispatch);
|
||||||
|
function GetItems(index: integer): TSpkBaseItem; reintroduce;
|
||||||
|
procedure SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
procedure SetImages(const Value: TImageList);
|
||||||
|
procedure SetDisabledImages(const Value : TImageList);
|
||||||
|
procedure SetLargeImages(const Value : TImageList);
|
||||||
|
procedure SetDisabledLargeImages(const Value : TImageList);
|
||||||
|
public
|
||||||
|
// *** Konstruktor, destruktor ***
|
||||||
|
constructor Create(RootComponent : TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
function AddLargeButton : TSpkLargeButton;
|
||||||
|
function AddSmallButton : TSpkSmallButton;
|
||||||
|
|
||||||
|
// *** Reakcja na zmiany listy ***
|
||||||
|
procedure Notify(Item: TComponent; Operation : TOperation); override;
|
||||||
|
procedure Update; override;
|
||||||
|
|
||||||
|
property Items[index : integer] : TSpkBaseItem read GetItems; default;
|
||||||
|
property ToolbarDispatch : TSpkBaseToolbarDispatch read FToolbarDispatch write SetToolbarDispatch;
|
||||||
|
property Appearance : TSpkToolbarAppearance read FAppearance write SetAppearance;
|
||||||
|
property Images : TImageList read FImages write SetImages;
|
||||||
|
property DisabledImages : TImageList read FDisabledImages write SetDisabledImages;
|
||||||
|
property LargeImages : TImageList read FLargeImages write SetLargeImages;
|
||||||
|
property DisabledLargeImages : TImageList read FDisabledLargeImages write SetDisabledLargeImages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TSpkItems }
|
||||||
|
|
||||||
|
function TSpkItems.AddLargeButton: TSpkLargeButton;
|
||||||
|
|
||||||
|
var Owner, Parent : TComponent;
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if FRootComponent<>nil then
|
||||||
|
begin
|
||||||
|
Owner:=FRootComponent.Owner;
|
||||||
|
Parent:=FRootComponent;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Owner:=nil;
|
||||||
|
Parent:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
result:=TSpkLargeButton.Create(Owner);
|
||||||
|
result.Parent:=Parent;
|
||||||
|
|
||||||
|
if FRootComponent<>nil then
|
||||||
|
begin
|
||||||
|
i:=1;
|
||||||
|
while FRootComponent.Owner.FindComponent('SpkLargeButton'+inttostr(i))<>nil do
|
||||||
|
inc(i);
|
||||||
|
|
||||||
|
result.Name:='SpkLargeButton'+inttostr(i);
|
||||||
|
end;
|
||||||
|
|
||||||
|
AddItem(result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkItems.AddSmallButton: TSpkSmallButton;
|
||||||
|
|
||||||
|
var Owner, Parent : TComponent;
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if FRootComponent<>nil then
|
||||||
|
begin
|
||||||
|
Owner:=FRootComponent.Owner;
|
||||||
|
Parent:=FRootComponent;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Owner:=nil;
|
||||||
|
Parent:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
result:=TSpkSmallButton.Create(Owner);
|
||||||
|
result.Parent:=Parent;
|
||||||
|
|
||||||
|
if FRootComponent<>nil then
|
||||||
|
begin
|
||||||
|
i:=1;
|
||||||
|
while FRootComponent.Owner.FindComponent('SpkSmallButton'+inttostr(i))<>nil do
|
||||||
|
inc(i);
|
||||||
|
|
||||||
|
result.Name:='SpkSmallButton'+inttostr(i);
|
||||||
|
end;
|
||||||
|
|
||||||
|
AddItem(result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TSpkItems.Create(RootComponent : TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(RootComponent);
|
||||||
|
FToolbarDispatch:=nil;
|
||||||
|
FAppearance:=nil;
|
||||||
|
FImages:=nil;
|
||||||
|
FDisabledImages:=nil;
|
||||||
|
FLargeImages:=nil;
|
||||||
|
FDisabledLargeImages:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TSpkItems.Destroy;
|
||||||
|
begin
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkItems.GetItems(index: integer): TSpkBaseItem;
|
||||||
|
begin
|
||||||
|
result:=TSpkBaseItem(inherited Items[index]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkItems.Notify(Item: TComponent;
|
||||||
|
Operation : TOperation);
|
||||||
|
begin
|
||||||
|
inherited Notify(Item, Operation);
|
||||||
|
|
||||||
|
case Operation of
|
||||||
|
opInsert: begin
|
||||||
|
// Ustawienie dyspozytora na nil spowoduje, �e podczas
|
||||||
|
// przypisywania w�asno�ci nie b�d� wo�ane metody Notify*
|
||||||
|
TSpkBaseItem(Item).ToolbarDispatch:=nil;
|
||||||
|
|
||||||
|
TSpkBaseItem(Item).Appearance:=FAppearance;
|
||||||
|
TSpkBaseItem(Item).Images:=FImages;
|
||||||
|
TSpkBaseItem(Item).DisabledImages:=FDisabledImages;
|
||||||
|
TSpkBaseItem(Item).LargeImages:=FLargeImages;
|
||||||
|
TSpkBaseItem(Item).DisabledLargeImages:=FDisabledLargeImages;
|
||||||
|
TSpkBaseItem(Item).ToolbarDispatch:=FToolbarDispatch;
|
||||||
|
end;
|
||||||
|
opRemove: begin
|
||||||
|
if not(csDestroying in Item.ComponentState) then
|
||||||
|
begin
|
||||||
|
TSpkBaseItem(Item).ToolbarDispatch:=nil;
|
||||||
|
TSpkBaseItem(Item).Appearance:=nil;
|
||||||
|
TSpkBaseItem(Item).Images:=nil;
|
||||||
|
TSpkBaseItem(Item).DisabledImages:=nil;
|
||||||
|
TSpkBaseItem(Item).LargeImages:=nil;
|
||||||
|
TSpkBaseItem(Item).DisabledLargeImages:=nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkItems.SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FAppearance := Value;
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].Appearance:=FAppearance;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkItems.SetDisabledImages(const Value: TImageList);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FDisabledImages := Value;
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].DisabledImages:=FDisabledImages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkItems.SetDisabledLargeImages(const Value: TImageList);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FDisabledLargeImages := Value;
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].DisabledLargeImages:=FDisabledLargeImages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkItems.SetImages(const Value: TImageList);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FImages := Value;
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].Images:=FImages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkItems.SetLargeImages(const Value: TImageList);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FLargeImages := Value;
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].LargeImages:=FLargeImages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkItems.SetToolbarDispatch(const Value: TSpkBaseToolbarDispatch);
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FToolbarDispatch := Value;
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].ToolbarDispatch:=FToolbarDispatch;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkItems.Update;
|
||||||
|
begin
|
||||||
|
inherited Update;
|
||||||
|
|
||||||
|
if assigned(FToolbarDispatch) then
|
||||||
|
FToolbarDispatch.NotifyItemsChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
1065
components/spktoolbar/SpkToolbar/spkt_Pane.pas
Normal file
1065
components/spktoolbar/SpkToolbar/spkt_Pane.pas
Normal file
File diff suppressed because it is too large
Load Diff
805
components/spktoolbar/SpkToolbar/spkt_Tab.pas
Normal file
805
components/spktoolbar/SpkToolbar/spkt_Tab.pas
Normal file
@@ -0,0 +1,805 @@
|
|||||||
|
unit spkt_Tab;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Plik: spkt_Tab.pas *
|
||||||
|
* Opis: Komponent zak�adki toolbara *
|
||||||
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u�ycie komponentu bez *
|
||||||
|
* uprzedniego uzyskania licencji od autora stanowi z�amanie *
|
||||||
|
* prawa autorskiego! *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Graphics, Controls, Classes, SysUtils,
|
||||||
|
SpkGraphTools, SpkGUITools, SpkMath,
|
||||||
|
spkt_Appearance, spkt_Const, spkt_Dispatch, spkt_Exceptions,
|
||||||
|
spkt_Pane, spkt_Types;
|
||||||
|
|
||||||
|
type TSpkTab = class;
|
||||||
|
|
||||||
|
TSpkMouseTabElementType = (etNone, etTabArea, etPane);
|
||||||
|
|
||||||
|
TSpkMouseTabElement = record
|
||||||
|
ElementType : TSpkMouseTabElementType;
|
||||||
|
ElementIndex : integer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TSpkTabAppearanceDispatch = class(TSpkBaseAppearanceDispatch)
|
||||||
|
private
|
||||||
|
FTab : TSpkTab;
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
// *** Konstruktor ***
|
||||||
|
constructor Create(ATab : TSpkTab);
|
||||||
|
|
||||||
|
// *** Implementacja metod odziedziczonych po TSpkBaseTabDispatch ***
|
||||||
|
procedure NotifyAppearanceChanged; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TSpkTab = class(TSpkComponent)
|
||||||
|
private
|
||||||
|
FAppearanceDispatch : TSpkTabAppearanceDispatch;
|
||||||
|
FAppearance : TSpkToolbarAppearance;
|
||||||
|
|
||||||
|
FMouseHoverElement : TSpkMouseTabElement;
|
||||||
|
FMouseActiveElement : TSpkMouseTabElement;
|
||||||
|
protected
|
||||||
|
FToolbarDispatch : TSpkBaseToolbarDispatch;
|
||||||
|
FCaption : string;
|
||||||
|
FVisible : boolean;
|
||||||
|
FOverrideAppearance : boolean;
|
||||||
|
FCustomAppearance : TSpkToolbarAppearance;
|
||||||
|
|
||||||
|
FPanes : TSpkPanes;
|
||||||
|
FRect : T2DIntRect;
|
||||||
|
|
||||||
|
FImages : TImageList;
|
||||||
|
FDisabledImages : TImageList;
|
||||||
|
FLargeImages : TImageList;
|
||||||
|
FDisabledLargeImages : TImageList;
|
||||||
|
|
||||||
|
// *** Makro ustawia odpowiednie appearance taflom ***
|
||||||
|
procedure SetPaneAppearance; inline;
|
||||||
|
|
||||||
|
// *** Wyszukiwanie tafli ***
|
||||||
|
function FindPaneAt(x, y : integer) : integer;
|
||||||
|
|
||||||
|
// *** Obs�uga designtime i DFM ***
|
||||||
|
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
|
||||||
|
procedure DefineProperties(Filer : TFiler); override;
|
||||||
|
procedure Loaded; override;
|
||||||
|
|
||||||
|
// *** Gettery i settery ***
|
||||||
|
procedure SetCaption(const Value: string);
|
||||||
|
procedure SetCustomAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
procedure SetOverrideAppearance(const Value: boolean);
|
||||||
|
procedure SetVisible(const Value: boolean);
|
||||||
|
procedure SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
procedure SetImages(const Value: TImageList);
|
||||||
|
procedure SetDisabledImages(const Value : TImageList);
|
||||||
|
procedure SetLargeImages(const Value : TImageList);
|
||||||
|
procedure SetDisabledLargeImages(const Value : TImageList);
|
||||||
|
procedure SetRect(ARect : T2DIntRect);
|
||||||
|
procedure SetToolbarDispatch(const Value: TSpkBaseToolbarDispatch);
|
||||||
|
public
|
||||||
|
// *** Konstruktor, destruktor ***
|
||||||
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
// *** Geometria, obs�uga tafli, rysowanie ***
|
||||||
|
function AtLeastOnePaneVisible: boolean;
|
||||||
|
procedure Draw(ABuffer : TBitmap; AClipRect : T2DIntRect);
|
||||||
|
|
||||||
|
// *** Obs�uga gryzonia ***
|
||||||
|
procedure MouseLeave;
|
||||||
|
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
|
||||||
|
X, Y: Integer);
|
||||||
|
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
|
||||||
|
X, Y: Integer);
|
||||||
|
|
||||||
|
// *** Obs�uga zdarze� dyspozytora ***
|
||||||
|
procedure NotifyAppearanceChanged;
|
||||||
|
|
||||||
|
// *** Obs�uga element�w ***
|
||||||
|
procedure FreeingPane(APane : TSpkPane);
|
||||||
|
|
||||||
|
property ToolbarDispatch : TSpkBaseToolbarDispatch read FToolbarDispatch write SetToolbarDispatch;
|
||||||
|
property Appearance : TSpkToolbarAppearance read FAppearance write SetAppearance;
|
||||||
|
|
||||||
|
property Panes : TSpkPanes read FPanes;
|
||||||
|
property Rect : T2DIntRect read FRect write SetRect;
|
||||||
|
property Images : TImageList read FImages write SetImages;
|
||||||
|
property DisabledImages : TImageList read FDisabledImages write SetDisabledImages;
|
||||||
|
property LargeImages : TImageList read FLargeImages write SetLargeImages;
|
||||||
|
property DisabledLargeImages : TImageList read FDisabledLargeImages write SetDisabledLargeImages;
|
||||||
|
published
|
||||||
|
property CustomAppearance : TSpkToolbarAppearance read FCustomAppearance write SetCustomAppearance;
|
||||||
|
property Caption : string read FCaption write SetCaption;
|
||||||
|
property OverrideAppearance : boolean read FOverrideAppearance write SetOverrideAppearance;
|
||||||
|
property Visible : boolean read FVisible write SetVisible;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkTabs = class(TSpkCollection)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
FToolbarDispatch : TSpkBaseToolbarDispatch;
|
||||||
|
FAppearance : TSpkToolbarAppearance;
|
||||||
|
FImages : TImageList;
|
||||||
|
FDisabledImages : TImageList;
|
||||||
|
FLargeImages : TImageList;
|
||||||
|
FDisabledLargeImages : TImageList;
|
||||||
|
|
||||||
|
procedure SetToolbarDispatch(const Value: TSpkBaseToolbarDispatch);
|
||||||
|
function GetItems(index: integer): TSpkTab; reintroduce;
|
||||||
|
procedure SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
procedure SetImages(const Value: TImageList);
|
||||||
|
procedure SetDisabledImages(const Value : TImageList);
|
||||||
|
procedure SetLargeImages(const Value : TImageList);
|
||||||
|
procedure SetDisabledLargeImages(const Value : TImageList);
|
||||||
|
public
|
||||||
|
constructor Create(RootComponent : TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
function Add : TSpkTab;
|
||||||
|
function Insert(index : integer) : TSpkTab;
|
||||||
|
|
||||||
|
procedure Notify(Item: TComponent; Operation : TOperation); override;
|
||||||
|
procedure Update; override;
|
||||||
|
|
||||||
|
property Items[index : integer] : TSpkTab read GetItems; default;
|
||||||
|
property ToolbarDispatch : TSpkBaseToolbarDispatch read FToolbarDispatch write SetToolbarDispatch;
|
||||||
|
property Appearance : TSpkToolbarAppearance read FAppearance write SetAppearance;
|
||||||
|
property Images : TImageList read FImages write SetImages;
|
||||||
|
property DisabledImages : TImageList read FDisabledImages write SetDisabledImages;
|
||||||
|
property LargeImages : TImageList read FLargeImages write SetLargeImages;
|
||||||
|
property DisabledLargeImages : TImageList read FDisabledLargeImages write SetDisabledLargeImages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TSpkTabDispatch }
|
||||||
|
|
||||||
|
constructor TSpkTabAppearanceDispatch.Create(ATab: TSpkTab);
|
||||||
|
begin
|
||||||
|
inherited Create;
|
||||||
|
FTab:=ATab;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabAppearanceDispatch.NotifyAppearanceChanged;
|
||||||
|
begin
|
||||||
|
if assigned(FTab) then
|
||||||
|
FTab.NotifyAppearanceChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TSpkTab }
|
||||||
|
|
||||||
|
function TSpkTab.AtLeastOnePaneVisible: boolean;
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
PaneVisible : boolean;
|
||||||
|
|
||||||
|
begin
|
||||||
|
result:=FPanes.count>0;
|
||||||
|
if result then
|
||||||
|
begin
|
||||||
|
PaneVisible:=false;
|
||||||
|
i:=FPanes.count-1;
|
||||||
|
while (i>=0) and not(PaneVisible) do
|
||||||
|
begin
|
||||||
|
PaneVisible:=FPanes[i].Visible;
|
||||||
|
dec(i);
|
||||||
|
end;
|
||||||
|
result:=result and PaneVisible;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetRect(ARect: T2DIntRect);
|
||||||
|
|
||||||
|
var x, i : integer;
|
||||||
|
tw : integer;
|
||||||
|
tmpRect : T2DIntRect;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FRect:=ARect;
|
||||||
|
|
||||||
|
if AtLeastOnePaneVisible then
|
||||||
|
begin
|
||||||
|
x:=ARect.left;
|
||||||
|
for i := 0 to FPanes.count - 1 do
|
||||||
|
if FPanes[i].Visible then
|
||||||
|
begin
|
||||||
|
tw:=FPanes[i].GetWidth;
|
||||||
|
|
||||||
|
tmpRect.Left:=x;
|
||||||
|
tmpRect.top:=ARect.Top;
|
||||||
|
tmpRect.right:=x + tw - 1;
|
||||||
|
tmpRect.bottom:=ARect.bottom;
|
||||||
|
|
||||||
|
FPanes[i].Rect:=tmpRect;
|
||||||
|
|
||||||
|
x:=x + tw + TAB_PANE_HSPACING;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
FPanes[i].Rect:=T2DIntRect.create(-1,-1,-1,-1);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetToolbarDispatch(const Value: TSpkBaseToolbarDispatch);
|
||||||
|
|
||||||
|
begin
|
||||||
|
FToolbarDispatch := Value;
|
||||||
|
FPanes.ToolbarDispatch:=FToolbarDispatch;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TSpkTab.Create(AOwner : TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
|
||||||
|
FAppearanceDispatch:=TSpkTabAppearanceDispatch.create(self);
|
||||||
|
FAppearance:=nil;
|
||||||
|
FMouseHoverElement.ElementType:=etNone;
|
||||||
|
FMouseHoverElement.ElementIndex:=-1;
|
||||||
|
FMouseActiveElement.ElementType:=etNone;
|
||||||
|
FMouseActiveElement.ElementIndex:=-1;
|
||||||
|
|
||||||
|
FToolbarDispatch:=nil;
|
||||||
|
FCaption:='Tab';
|
||||||
|
FVisible:=true;
|
||||||
|
FOverrideAppearance:=false;
|
||||||
|
FCustomAppearance:=TSpkToolbarAppearance.Create(FAppearanceDispatch);
|
||||||
|
|
||||||
|
FPanes:=TSpkPanes.Create(self);
|
||||||
|
FPanes.ToolbarDispatch:=FToolbarDispatch;
|
||||||
|
|
||||||
|
FRect:=T2DIntRect.create(0,0,0,0);
|
||||||
|
|
||||||
|
FImages:=nil;
|
||||||
|
FDisabledImages:=nil;
|
||||||
|
FLargeImages:=nil;
|
||||||
|
FDisabledLargeImages:=nil;
|
||||||
|
|
||||||
|
SetPaneAppearance;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.DefineProperties(Filer: TFiler);
|
||||||
|
begin
|
||||||
|
inherited DefineProperties(Filer);
|
||||||
|
|
||||||
|
Filer.DefineProperty('Panes',FPanes.ReadNames,FPanes.WriteNames,true);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TSpkTab.Destroy;
|
||||||
|
begin
|
||||||
|
FPanes.Free;
|
||||||
|
FCustomAppearance.Free;
|
||||||
|
FAppearanceDispatch.Free;
|
||||||
|
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.Draw(ABuffer: TBitmap; AClipRect: T2DIntRect);
|
||||||
|
|
||||||
|
var LocalClipRect : T2DIntRect;
|
||||||
|
i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if AtLeastOnePaneVisible then
|
||||||
|
for i := 0 to FPanes.Count - 1 do
|
||||||
|
if FPanes[i].visible then
|
||||||
|
begin
|
||||||
|
if AClipRect.IntersectsWith(FPanes[i].Rect, LocalClipRect) then
|
||||||
|
FPanes[i].Draw(ABuffer, LocalClipRect);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkTab.FindPaneAt(x, y: integer): integer;
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
result:=-1;
|
||||||
|
i:=FPanes.count-1;
|
||||||
|
while (i>=0) and (result=-1) do
|
||||||
|
begin
|
||||||
|
if FPanes[i].Visible then
|
||||||
|
begin
|
||||||
|
if FPanes[i].Rect.Contains(T2DIntVector.create(x,y)) then
|
||||||
|
result:=i;
|
||||||
|
end;
|
||||||
|
dec(i);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.FreeingPane(APane: TSpkPane);
|
||||||
|
begin
|
||||||
|
FPanes.RemoveReference(APane);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.GetChildren(Proc: TGetChildProc; Root: TComponent);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if FPanes.Count>0 then
|
||||||
|
for i := 0 to FPanes.Count - 1 do
|
||||||
|
Proc(FPanes.Items[i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.Loaded;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if FPanes.ListState = lsNeedsProcessing then
|
||||||
|
FPanes.ProcessNames(self.Owner);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
|
||||||
|
Y: Integer);
|
||||||
|
begin
|
||||||
|
if FMouseActiveElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if FMouseActiveElement.ElementIndex<>-1 then
|
||||||
|
FPanes[FMouseActiveElement.ElementIndex].MouseDown(Button, Shift, X, Y);
|
||||||
|
end else
|
||||||
|
if FMouseActiveElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia.
|
||||||
|
end else
|
||||||
|
if FMouseActiveElement.ElementType = etNone then
|
||||||
|
begin
|
||||||
|
if FMouseHoverElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if FMouseHoverElement.ElementIndex<>-1 then
|
||||||
|
begin
|
||||||
|
FMouseActiveElement.ElementType:=etPane;
|
||||||
|
FMouseActiveElement.ElementIndex:=FMouseHoverElement.ElementIndex;
|
||||||
|
|
||||||
|
FPanes[FMouseHoverElement.ElementIndex].MouseDown(Button, Shift, X, Y);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
FMouseActiveElement.ElementType:=etTabArea;
|
||||||
|
FMouseActiveElement.ElementIndex:=-1;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
if FMouseHoverElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
FMouseActiveElement.ElementType:=etTabArea;
|
||||||
|
FMouseActiveElement.ElementIndex:=-1;
|
||||||
|
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia.
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.MouseLeave;
|
||||||
|
begin
|
||||||
|
if FMouseActiveElement.ElementType = etNone then
|
||||||
|
begin
|
||||||
|
if FMouseHoverElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if FMouseHoverElement.ElementIndex<>-1 then
|
||||||
|
FPanes[FMouseHoverElement.ElementIndex].MouseLeave;
|
||||||
|
end else
|
||||||
|
if FMouseHoverElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia.
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
FMouseHoverElement.ElementType:=etNone;
|
||||||
|
FMouseHoverElement.ElementIndex:=-1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.MouseMove(Shift: TShiftState; X, Y: Integer);
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
NewMouseHoverElement : TSpkMouseTabElement;
|
||||||
|
|
||||||
|
begin
|
||||||
|
// Szukamy obiektu pod mysz�
|
||||||
|
i:=FindPaneAt(x, y);
|
||||||
|
if i<>-1 then
|
||||||
|
begin
|
||||||
|
NewMouseHoverElement.ElementType:=etPane;
|
||||||
|
NewMouseHoverElement.ElementIndex:=i;
|
||||||
|
end else
|
||||||
|
if (X>=FRect.left) and (Y>=FRect.top) and
|
||||||
|
(X<=FRect.right) and (Y<=FRect.bottom) then
|
||||||
|
begin
|
||||||
|
NewMouseHoverElement.ElementType:=etTabArea;
|
||||||
|
NewMouseHoverElement.ElementIndex:=-1;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
NewMouseHoverElement.ElementType:=etNone;
|
||||||
|
NewMouseHoverElement.ElementIndex:=-1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if FMouseActiveElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if FMouseActiveElement.ElementIndex<>-1 then
|
||||||
|
begin
|
||||||
|
FPanes[FMouseActiveElement.ElementIndex].MouseMove(Shift, X, Y);
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
if FMouseActiveElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia
|
||||||
|
end else
|
||||||
|
if FMouseActiveElement.ElementType = etNone then
|
||||||
|
begin
|
||||||
|
// Je�li element pod mysz� si� zmienia, informujemy poprzedni element o
|
||||||
|
// tym, �e mysz opuszcza jego obszar
|
||||||
|
if (NewMouseHoverElement.ElementType<>FMouseHoverElement.ElementType) or
|
||||||
|
(NewMouseHoverElement.ElementIndex<>FMouseHoverElement.ElementIndex) then
|
||||||
|
begin
|
||||||
|
if FMouseHoverElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if FMouseHoverElement.ElementIndex<>-1 then
|
||||||
|
FPanes[FMouseHoverElement.ElementIndex].MouseLeave;
|
||||||
|
end else
|
||||||
|
if FMouseHoverElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if NewMouseHoverElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if NewMouseHoverElement.ElementIndex<>-1 then
|
||||||
|
FPanes[NewMouseHoverElement.ElementIndex].MouseMove(Shift, X, Y);
|
||||||
|
end else
|
||||||
|
if NewMouseHoverElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
FMouseHoverElement:=NewMouseHoverElement;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
|
||||||
|
Y: Integer);
|
||||||
|
|
||||||
|
var ClearActive : boolean;
|
||||||
|
|
||||||
|
begin
|
||||||
|
ClearActive:=not(ssLeft in Shift) and not(ssMiddle in Shift) and not(ssRight in Shift);
|
||||||
|
|
||||||
|
if FMouseActiveElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if FMouseActiveElement.ElementIndex<>-1 then
|
||||||
|
FPanes[FMouseActiveElement.ElementIndex].MouseUp(Button, Shift, X, Y);
|
||||||
|
end else
|
||||||
|
if FMouseActiveElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia.
|
||||||
|
end;
|
||||||
|
|
||||||
|
if ClearActive and
|
||||||
|
(FMouseActiveElement.ElementType<>FMouseHoverElement.ElementType) or
|
||||||
|
(FMouseActiveElement.ElementIndex<>FMouseHoverElement.ElementIndex) then
|
||||||
|
begin
|
||||||
|
if FMouseActiveElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if FMouseActiveElement.ElementIndex<>-1 then
|
||||||
|
FPanes[FMouseActiveElement.ElementIndex].MouseLeave;
|
||||||
|
end else
|
||||||
|
if FMouseActiveElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia.
|
||||||
|
end;
|
||||||
|
|
||||||
|
if FMouseHoverElement.ElementType = etPane then
|
||||||
|
begin
|
||||||
|
if FMouseHoverElement.ElementIndex<>-1 then
|
||||||
|
FPanes[FMouseHoverElement.ElementIndex].MouseMove(Shift, X, Y);
|
||||||
|
end else
|
||||||
|
if FMouseHoverElement.ElementType = etTabArea then
|
||||||
|
begin
|
||||||
|
// Placeholder, je�li zajdzie potrzeba obs�ugi tego zdarzenia.
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if ClearActive then
|
||||||
|
begin
|
||||||
|
FMouseActiveElement.ElementType:=etNone;
|
||||||
|
FMouseActiveElement.ElementIndex:=-1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.NotifyAppearanceChanged;
|
||||||
|
begin
|
||||||
|
if assigned(FToolbarDispatch) then
|
||||||
|
FToolbarDispatch.NotifyAppearanceChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetCustomAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
begin
|
||||||
|
FCustomAppearance.assign(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetDisabledImages(const Value: TImageList);
|
||||||
|
begin
|
||||||
|
FDisabledImages := Value;
|
||||||
|
FPanes.DisabledImages := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetDisabledLargeImages(const Value: TImageList);
|
||||||
|
begin
|
||||||
|
FDisabledLargeImages := Value;
|
||||||
|
FPanes.DisabledLargeImages := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetImages(const Value: TImageList);
|
||||||
|
begin
|
||||||
|
FImages := Value;
|
||||||
|
FPanes.Images := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetLargeImages(const Value: TImageList);
|
||||||
|
begin
|
||||||
|
FLargeImages := Value;
|
||||||
|
FPanes.LargeImages := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
begin
|
||||||
|
FAppearance:=Value;
|
||||||
|
|
||||||
|
SetPaneAppearance;
|
||||||
|
|
||||||
|
if FToolbarDispatch<>nil then
|
||||||
|
FToolbarDispatch.NotifyMetricsChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetCaption(const Value: string);
|
||||||
|
begin
|
||||||
|
FCaption := Value;
|
||||||
|
if assigned(FToolbarDispatch) then
|
||||||
|
FToolbarDispatch.NotifyMetricsChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetOverrideAppearance(const Value: boolean);
|
||||||
|
begin
|
||||||
|
FOverrideAppearance := Value;
|
||||||
|
|
||||||
|
SetPaneAppearance;
|
||||||
|
|
||||||
|
if FToolbarDispatch<>nil then
|
||||||
|
FToolbarDispatch.NotifyMetricsChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetPaneAppearance;
|
||||||
|
begin
|
||||||
|
if FOverrideAppearance then
|
||||||
|
FPanes.Appearance:=FCustomAppearance else
|
||||||
|
FPanes.Appearance:=FAppearance;
|
||||||
|
|
||||||
|
// Metoda pe�ni rol� makra - dlatego nie powiadamia dyspozytora o zmianie.
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTab.SetVisible(const Value: boolean);
|
||||||
|
begin
|
||||||
|
FVisible := Value;
|
||||||
|
if FToolbarDispatch<>nil then
|
||||||
|
FToolbarDispatch.NotifyItemsChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TSpkTabs }
|
||||||
|
|
||||||
|
function TSpkTabs.Add: TSpkTab;
|
||||||
|
|
||||||
|
var Owner, Parent : TComponent;
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if FRootComponent<>nil then
|
||||||
|
begin
|
||||||
|
Owner:=FRootComponent.Owner;
|
||||||
|
Parent:=FRootComponent;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Owner:=nil;
|
||||||
|
Parent:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
result:=TSpkTab.create(Owner);
|
||||||
|
result.Parent:=Parent;
|
||||||
|
|
||||||
|
if FRootComponent<>nil then
|
||||||
|
begin
|
||||||
|
i:=1;
|
||||||
|
while FRootComponent.Owner.FindComponent('SpkTab'+inttostr(i))<>nil do
|
||||||
|
inc(i);
|
||||||
|
|
||||||
|
result.Name:='SpkTab'+inttostr(i);
|
||||||
|
end;
|
||||||
|
|
||||||
|
AddItem(result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TSpkTabs.Create(RootComponent : TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(RootComponent);
|
||||||
|
FToolbarDispatch:=nil;
|
||||||
|
FAppearance:=nil;
|
||||||
|
FImages:=nil;
|
||||||
|
FDisabledImages:=nil;
|
||||||
|
FLargeImages:=nil;
|
||||||
|
FDisabledLargeImages:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TSpkTabs.Destroy;
|
||||||
|
begin
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkTabs.GetItems(index: integer): TSpkTab;
|
||||||
|
begin
|
||||||
|
result:=TSpkTab(inherited Items[index]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkTabs.Insert(index: integer): TSpkTab;
|
||||||
|
|
||||||
|
var Owner, Parent : TComponent;
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if (index<0) or (index>=self.Count) then
|
||||||
|
raise InternalException.create('TSpkTabs.Insert: Nieprawid�owy indeks!');
|
||||||
|
|
||||||
|
if FRootComponent<>nil then
|
||||||
|
begin
|
||||||
|
Owner:=FRootComponent.Owner;
|
||||||
|
Parent:=FRootComponent;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Owner:=nil;
|
||||||
|
Parent:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
result:=TSpkTab.create(Owner);
|
||||||
|
result.Parent:=Parent;
|
||||||
|
|
||||||
|
if FRootComponent<>nil then
|
||||||
|
begin
|
||||||
|
i:=1;
|
||||||
|
while FRootComponent.Owner.FindComponent('SpkTab'+inttostr(i))<>nil do
|
||||||
|
inc(i);
|
||||||
|
|
||||||
|
result.Name:='SpkTab'+inttostr(i);
|
||||||
|
end;
|
||||||
|
InsertItem(index, result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabs.Notify(Item: TComponent;
|
||||||
|
Operation : TOperation);
|
||||||
|
begin
|
||||||
|
inherited Notify(Item, Operation);
|
||||||
|
|
||||||
|
case Operation of
|
||||||
|
opInsert: begin
|
||||||
|
// Ustawienie dyspozytora na nil spowoduje, �e podczas
|
||||||
|
// przypisywania w�asno�ci nie b�d� wo�ane metody Notify*
|
||||||
|
TSpkTab(Item).ToolbarDispatch:=nil;
|
||||||
|
|
||||||
|
TSpkTab(Item).Appearance:=self.FAppearance;
|
||||||
|
TSpkTab(Item).Images:=self.FImages;
|
||||||
|
TSpkTab(Item).DisabledImages:=self.FDisabledImages;
|
||||||
|
TSpkTab(Item).LargeImages:=self.FLargeImages;
|
||||||
|
TSpkTab(Item).DisabledLargeImages:=self.FDisabledLargeImages;
|
||||||
|
TSpkTab(Item).ToolbarDispatch:=self.FToolbarDispatch;
|
||||||
|
end;
|
||||||
|
opRemove: begin
|
||||||
|
if not(csDestroying in Item.ComponentState) then
|
||||||
|
begin
|
||||||
|
TSpkTab(Item).ToolbarDispatch:=nil;
|
||||||
|
TSpkTab(Item).Appearance:=nil;
|
||||||
|
TSpkTab(Item).Images:=nil;
|
||||||
|
TSpkTab(Item).DisabledImages:=nil;
|
||||||
|
TSpkTab(Item).LargeImages:=nil;
|
||||||
|
TSpkTab(Item).DisabledLargeImages:=nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabs.SetAppearance(const Value: TSpkToolbarAppearance);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FAppearance := Value;
|
||||||
|
|
||||||
|
if self.count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
self.Items[i].Appearance:=FAppearance;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabs.SetDisabledImages(const Value: TImageList);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FDisabledImages := Value;
|
||||||
|
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].DisabledImages:=Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabs.SetDisabledLargeImages(const Value: TImageList);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FDisabledLargeImages := Value;
|
||||||
|
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].DisabledLargeImages:=Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabs.SetImages(const Value: TImageList);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FImages := Value;
|
||||||
|
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].Images:=Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabs.SetLargeImages(const Value: TImageList);
|
||||||
|
|
||||||
|
var i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FLargeImages := Value;
|
||||||
|
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
Items[i].LargeImages:=Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabs.SetToolbarDispatch(const Value: TSpkBaseToolbarDispatch);
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FToolbarDispatch := Value;
|
||||||
|
|
||||||
|
if self.Count>0 then
|
||||||
|
for i := 0 to self.count - 1 do
|
||||||
|
self.Items[i].ToolbarDispatch:=FToolbarDispatch;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkTabs.Update;
|
||||||
|
begin
|
||||||
|
inherited Update;
|
||||||
|
|
||||||
|
if assigned(FToolbarDispatch) then
|
||||||
|
FToolbarDispatch.NotifyItemsChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
|
||||||
|
RegisterClass(TSpkTab);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
UnRegisterClass(TSpkTab);
|
||||||
|
|
||||||
|
end.
|
||||||
196
components/spktoolbar/SpkToolbar/spkt_Tools.pas
Normal file
196
components/spktoolbar/SpkToolbar/spkt_Tools.pas
Normal file
@@ -0,0 +1,196 @@
|
|||||||
|
unit spkt_Tools;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Plik: spkt_Tools.pas *
|
||||||
|
* Opis: Klasy narz�dziowe u�atwiaj�ce renderowanie toolbara. *
|
||||||
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u�ycie komponentu bez *
|
||||||
|
* uprzedniego uzyskania licencji od autora stanowi z�amanie *
|
||||||
|
* prawa autorskiego! *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Graphics, SysUtils,
|
||||||
|
SpkMath, SpkGraphTools, SpkGUITools;
|
||||||
|
|
||||||
|
type TButtonTools = class sealed(TObject)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
class procedure DrawButton(Bitmap : TBitmap;
|
||||||
|
Rect : T2DIntRect;
|
||||||
|
FrameColor,
|
||||||
|
InnerLightColor,
|
||||||
|
InnerDarkColor,
|
||||||
|
GradientFrom,
|
||||||
|
GradientTo : TColor;
|
||||||
|
GradientKind : TBackgroundKind;
|
||||||
|
LeftEdgeOpen,
|
||||||
|
RightEdgeOpen,
|
||||||
|
TopEdgeOpen,
|
||||||
|
BottomEdgeOpen : boolean;
|
||||||
|
Radius : integer;
|
||||||
|
ClipRect : T2DIntRect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TButtonTools }
|
||||||
|
|
||||||
|
class procedure TButtonTools.DrawButton(Bitmap: TBitmap;
|
||||||
|
Rect: T2DIntRect; FrameColor, InnerLightColor, InnerDarkColor, GradientFrom,
|
||||||
|
GradientTo: TColor; GradientKind: TBackgroundKind; LeftEdgeOpen,
|
||||||
|
RightEdgeOpen, TopEdgeOpen, BottomEdgeOpen: boolean; Radius: integer;
|
||||||
|
ClipRect : T2DIntRect);
|
||||||
|
|
||||||
|
var x1, x2, y1, y2 : integer;
|
||||||
|
LeftClosed, TopClosed, RightClosed, BottomClosed : byte;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if (Rect.Width<6) or (Rect.Height<6) or
|
||||||
|
(Rect.Width < 2*radius) or (Rect.Height < 2*Radius) then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if LeftEdgeOpen then LeftClosed:=0 else LeftClosed:=1;
|
||||||
|
if RightEdgeOpen then RightClosed:=0 else RightClosed:=1;
|
||||||
|
if TopEdgeOpen then TopClosed:=0 else TopClosed:=1;
|
||||||
|
if BottomEdgeOpen then BottomClosed:=0 else BottomClosed:=1;
|
||||||
|
|
||||||
|
TGuiTools.DrawRoundRect(Bitmap.Canvas,
|
||||||
|
Rect,
|
||||||
|
Radius,
|
||||||
|
GradientFrom,
|
||||||
|
GradientTo,
|
||||||
|
GradientKind,
|
||||||
|
ClipRect,
|
||||||
|
not(LeftEdgeOpen or TopEdgeOpen),
|
||||||
|
not(RightEdgeOpen or TopEdgeOpen),
|
||||||
|
not(LeftEdgeOpen or BottomEdgeOpen),
|
||||||
|
not(RightEdgeOpen or BottomEdgeOpen));
|
||||||
|
|
||||||
|
// Wewn�trzna kraw�d�
|
||||||
|
// *** G�ra ***
|
||||||
|
x1:=Rect.Left + radius * TopClosed * LeftClosed + LeftClosed;
|
||||||
|
x2:=Rect.Right - radius * TopClosed * RightClosed - RightClosed;
|
||||||
|
y1:=Rect.Top + TopClosed;
|
||||||
|
TGuiTools.DrawHLine(Bitmap, x1, x2, y1, InnerLightColor, ClipRect);
|
||||||
|
|
||||||
|
// *** D�� ***
|
||||||
|
x1:=Rect.Left + radius * BottomClosed * LeftClosed + LeftClosed;
|
||||||
|
x2:=Rect.Right - radius * BottomClosed * RightClosed - RightClosed;
|
||||||
|
y1:=Rect.Bottom - BottomClosed;
|
||||||
|
if BottomEdgeOpen then
|
||||||
|
TGuiTools.DrawHLine(Bitmap, x1, x2, y1, InnerDarkColor, ClipRect) else
|
||||||
|
TGuiTools.DrawHLine(Bitmap, x1, x2, y1, InnerLightColor, ClipRect);
|
||||||
|
|
||||||
|
// *** Lewo ***
|
||||||
|
y1:=Rect.Top + Radius * LeftClosed * TopClosed + TopClosed;
|
||||||
|
y2:=Rect.Bottom - Radius * LeftClosed * BottomClosed - BottomClosed;
|
||||||
|
x1:=Rect.Left + LeftClosed;
|
||||||
|
TGuiTools.DrawVLine(Bitmap, x1, y1, y2, InnerLightColor, ClipRect);
|
||||||
|
|
||||||
|
// *** Prawo ***
|
||||||
|
y1:=Rect.Top + Radius * RightClosed * TopClosed + TopClosed;
|
||||||
|
y2:=Rect.Bottom - Radius * RightClosed * BottomClosed - BottomClosed;
|
||||||
|
x1:=Rect.Right - RightClosed;
|
||||||
|
if RightEdgeOpen then
|
||||||
|
TGuiTools.DrawVLine(Bitmap, x1, y1, y2, InnerDarkColor, ClipRect) else
|
||||||
|
TGuiTools.DrawVLine(Bitmap, x1, y1, y2, InnerLightColor, ClipRect);
|
||||||
|
|
||||||
|
// Zaokr�glone naro�niki
|
||||||
|
if not(LeftEdgeOpen or TopEdgeOpen) then
|
||||||
|
TGuiTools.DrawAARoundCorner(Bitmap,
|
||||||
|
T2DIntPoint.create(Rect.left + 1, Rect.Top + 1),
|
||||||
|
Radius,
|
||||||
|
cpLeftTop,
|
||||||
|
InnerLightColor,
|
||||||
|
ClipRect);
|
||||||
|
if not(RightEdgeOpen or TopEdgeOpen) then
|
||||||
|
TGuiTools.DrawAARoundCorner(Bitmap,
|
||||||
|
T2DIntPoint.create(Rect.right - radius, Rect.Top + 1),
|
||||||
|
Radius,
|
||||||
|
cpRightTop,
|
||||||
|
InnerLightColor,
|
||||||
|
ClipRect);
|
||||||
|
if not(LeftEdgeOpen or BottomEdgeOpen) then
|
||||||
|
TGuiTools.DrawAARoundCorner(Bitmap,
|
||||||
|
T2DIntPoint.create(Rect.left + 1, Rect.bottom - radius),
|
||||||
|
Radius,
|
||||||
|
cpLeftBottom,
|
||||||
|
InnerLightColor,
|
||||||
|
ClipRect);
|
||||||
|
if not(RightEdgeOpen or BottomEdgeOpen) then
|
||||||
|
TGuiTools.DrawAARoundCorner(Bitmap,
|
||||||
|
T2DIntPoint.create(Rect.right - radius, Rect.bottom - radius),
|
||||||
|
Radius,
|
||||||
|
cpRightBottom,
|
||||||
|
InnerLightColor,
|
||||||
|
ClipRect);
|
||||||
|
|
||||||
|
// Zewn�trzna kraw�d�
|
||||||
|
// Zaokr�glone naro�niki
|
||||||
|
if not(TopEdgeOpen) then
|
||||||
|
begin
|
||||||
|
x1:=Rect.Left + Radius * LeftClosed;
|
||||||
|
x2:=Rect.Right - Radius * RightClosed;
|
||||||
|
y1:=Rect.Top;
|
||||||
|
TGuiTools.DrawHLine(Bitmap, x1, x2, y1, FrameColor, ClipRect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(BottomEdgeOpen) then
|
||||||
|
begin
|
||||||
|
x1:=Rect.Left + Radius * LeftClosed;
|
||||||
|
x2:=Rect.Right - Radius * RightClosed;
|
||||||
|
y1:=Rect.Bottom;
|
||||||
|
TGuiTools.DrawHLine(Bitmap, x1, x2, y1, FrameColor, ClipRect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(LeftEdgeOpen) then
|
||||||
|
begin
|
||||||
|
y1:=Rect.Top + Radius * TopClosed;
|
||||||
|
y2:=Rect.Bottom - Radius * BottomClosed;
|
||||||
|
x1:=Rect.Left;
|
||||||
|
TGuiTools.DrawVLine(Bitmap, x1, y1, y2, FrameColor, ClipRect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(RightEdgeOpen) then
|
||||||
|
begin
|
||||||
|
y1:=Rect.Top + Radius * TopClosed;
|
||||||
|
y2:=Rect.Bottom - Radius * BottomClosed;
|
||||||
|
x1:=Rect.Right;
|
||||||
|
TGuiTools.DrawVLine(Bitmap, x1, y1, y2, FrameColor, ClipRect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(LeftEdgeOpen or TopEdgeOpen) then
|
||||||
|
TGuiTools.DrawAARoundCorner(Bitmap,
|
||||||
|
T2DIntPoint.create(Rect.left, Rect.Top),
|
||||||
|
Radius,
|
||||||
|
cpLeftTop,
|
||||||
|
FrameColor,
|
||||||
|
ClipRect);
|
||||||
|
if not(RightEdgeOpen or TopEdgeOpen) then
|
||||||
|
TGuiTools.DrawAARoundCorner(Bitmap,
|
||||||
|
T2DIntPoint.create(Rect.right - radius + 1, Rect.Top),
|
||||||
|
Radius,
|
||||||
|
cpRightTop,
|
||||||
|
FrameColor,
|
||||||
|
ClipRect);
|
||||||
|
if not(LeftEdgeOpen or BottomEdgeOpen) then
|
||||||
|
TGuiTools.DrawAARoundCorner(Bitmap,
|
||||||
|
T2DIntPoint.create(Rect.left, Rect.bottom - radius + 1),
|
||||||
|
Radius,
|
||||||
|
cpLeftBottom,
|
||||||
|
FrameColor,
|
||||||
|
ClipRect);
|
||||||
|
if not(RightEdgeOpen or BottomEdgeOpen) then
|
||||||
|
TGuiTools.DrawAARoundCorner(Bitmap,
|
||||||
|
T2DIntPoint.create(Rect.right - radius + 1, Rect.bottom - radius + 1),
|
||||||
|
Radius,
|
||||||
|
cpRightBottom,
|
||||||
|
FrameColor,
|
||||||
|
ClipRect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
302
components/spktoolbar/SpkToolbar/spkt_Types.pas
Normal file
302
components/spktoolbar/SpkToolbar/spkt_Types.pas
Normal file
@@ -0,0 +1,302 @@
|
|||||||
|
unit spkt_Types;
|
||||||
|
|
||||||
|
(*******************************************************************************
|
||||||
|
* *
|
||||||
|
* Plik: spkt_Types.pas *
|
||||||
|
* Opis: Definicje typ�w u�ywanych podczas pracy toolbara *
|
||||||
|
* Copyright: (c) 2009 by Spook. Jakiekolwiek u�ycie komponentu bez *
|
||||||
|
* uprzedniego uzyskania licencji od autora stanowi z�amanie *
|
||||||
|
* prawa autorskiego! *
|
||||||
|
* *
|
||||||
|
*******************************************************************************)
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, Controls, Classes, ContNrs, SysUtils, Dialogs,
|
||||||
|
spkt_Exceptions;
|
||||||
|
|
||||||
|
type TSpkListState = (lsNeedsProcessing, lsReady);
|
||||||
|
|
||||||
|
type TSpkComponent = class(TComponent)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
FParent : TComponent;
|
||||||
|
|
||||||
|
// *** Gettery i settery ***
|
||||||
|
function GetParent: TComponent;
|
||||||
|
procedure SetParent(const Value: TComponent);
|
||||||
|
public
|
||||||
|
// *** Konstruktor ***
|
||||||
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
|
||||||
|
// *** Obs�uga parenta ***
|
||||||
|
function HasParent : boolean; override;
|
||||||
|
function GetParentComponent : TComponent; override;
|
||||||
|
procedure SetParentComponent(Value : TComponent); override;
|
||||||
|
|
||||||
|
property Parent : TComponent read GetParent write SetParent;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type TSpkCollection = class(TPersistent)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
FList : TObjectList;
|
||||||
|
FNames : TStringList;
|
||||||
|
FListState : TSpkListState;
|
||||||
|
FRootComponent : TComponent;
|
||||||
|
|
||||||
|
// *** Metody reakcji na zmiany w li�cie ***
|
||||||
|
procedure Notify(Item : TComponent; Operation : TOperation); virtual;
|
||||||
|
procedure Update; virtual;
|
||||||
|
|
||||||
|
// *** Wewn�trzne metody dodawania i wstawiania element�w ***
|
||||||
|
procedure AddItem(AItem : TComponent);
|
||||||
|
procedure InsertItem(index : integer; AItem : TComponent);
|
||||||
|
|
||||||
|
// *** Gettery i settery ***
|
||||||
|
function GetItems(index: integer): TComponent; virtual;
|
||||||
|
public
|
||||||
|
// *** Konstruktor, destruktor ***
|
||||||
|
constructor Create(RootComponent : TComponent); reintroduce; virtual;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
// *** Obs�uga listy ***
|
||||||
|
procedure Clear;
|
||||||
|
function Count : integer;
|
||||||
|
procedure Delete(index : integer); virtual;
|
||||||
|
function IndexOf(Item : TComponent) : integer;
|
||||||
|
procedure Remove(Item : TComponent); virtual;
|
||||||
|
procedure RemoveReference(Item : TComponent);
|
||||||
|
procedure Exchange(item1, item2 : integer);
|
||||||
|
procedure Move(IndexFrom, IndexTo : integer);
|
||||||
|
|
||||||
|
// *** Reader, writer i obs�uga designtime i DFM ***
|
||||||
|
procedure WriteNames(Writer : TWriter); virtual;
|
||||||
|
procedure ReadNames(Reader : TReader); virtual;
|
||||||
|
procedure ProcessNames(Owner : TComponent); virtual;
|
||||||
|
|
||||||
|
property ListState : TSpkListState read FListState;
|
||||||
|
property Items[index : integer] : TComponent read GetItems; default;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TSpkCollection }
|
||||||
|
|
||||||
|
procedure TSpkCollection.AddItem(AItem: TComponent);
|
||||||
|
begin
|
||||||
|
// Ta metoda mo�e by� wywo�ywana bez przetworzenia nazw (w szczeg�lno�ci, metoda
|
||||||
|
// przetwarzaj�ca nazwy korzysta z AddItem)
|
||||||
|
|
||||||
|
Notify(AItem, opInsert);
|
||||||
|
FList.Add(AItem);
|
||||||
|
|
||||||
|
Update;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.Clear;
|
||||||
|
begin
|
||||||
|
FList.Clear;
|
||||||
|
|
||||||
|
Update;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkCollection.Count: integer;
|
||||||
|
begin
|
||||||
|
result:=FList.Count;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TSpkCollection.Create(RootComponent : TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create;
|
||||||
|
FRootComponent:=RootComponent;
|
||||||
|
|
||||||
|
FNames:=TStringList.create;
|
||||||
|
|
||||||
|
FList:=TObjectList.Create;
|
||||||
|
FList.OwnsObjects:=true;
|
||||||
|
|
||||||
|
FListState:=lsReady;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.Delete(index: integer);
|
||||||
|
begin
|
||||||
|
if (index<0) or (index>=FList.count) then
|
||||||
|
raise InternalException.Create('TSpkCollection.Delete: Nieprawid�owy indeks!');
|
||||||
|
|
||||||
|
Notify(TComponent(FList[index]), opRemove);
|
||||||
|
|
||||||
|
FList.Delete(index);
|
||||||
|
|
||||||
|
Update;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TSpkCollection.Destroy;
|
||||||
|
begin
|
||||||
|
FNames.Free;
|
||||||
|
FList.Free;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.Exchange(item1, item2: integer);
|
||||||
|
begin
|
||||||
|
FList.Exchange(item1, item2);
|
||||||
|
Update;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkCollection.GetItems(index: integer): TComponent;
|
||||||
|
begin
|
||||||
|
if (index<0) or (index>=FList.Count) then
|
||||||
|
raise InternalException.create('TSpkCollection.GetItems: Nieprawid�owy indeks!');
|
||||||
|
|
||||||
|
result:=TComponent(FList[index]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkCollection.IndexOf(Item: TComponent): integer;
|
||||||
|
begin
|
||||||
|
result:=FList.IndexOf(Item);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.InsertItem(index: integer; AItem: TComponent);
|
||||||
|
begin
|
||||||
|
if (index<0) or (index>FList.Count) then
|
||||||
|
raise InternalException.Create('TSpkCollection.Insert: Nieprawid�owy indeks!');
|
||||||
|
|
||||||
|
Notify(AItem, opInsert);
|
||||||
|
|
||||||
|
FList.Insert(index, AItem);
|
||||||
|
|
||||||
|
Update;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.Move(IndexFrom, IndexTo: integer);
|
||||||
|
begin
|
||||||
|
if (indexFrom<0) or (indexFrom>=FList.Count) or
|
||||||
|
(indexTo<0) or (indexTo>=FList.Count) then
|
||||||
|
raise InternalException.Create('TSpkCollection.Move: Nieprawid�owy indeks!');
|
||||||
|
|
||||||
|
FList.Move(IndexFrom, IndexTo);
|
||||||
|
|
||||||
|
Update;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.Notify(Item: TComponent; Operation: TOperation);
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.ProcessNames(Owner : TComponent);
|
||||||
|
|
||||||
|
var s : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FList.Clear;
|
||||||
|
|
||||||
|
if Owner<>nil then
|
||||||
|
for s in FNames do
|
||||||
|
AddItem(Owner.FindComponent(s));
|
||||||
|
|
||||||
|
FNames.Clear;
|
||||||
|
FListState:=lsReady;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.ReadNames(Reader: TReader);
|
||||||
|
|
||||||
|
begin
|
||||||
|
Reader.ReadListBegin;
|
||||||
|
|
||||||
|
FNames.Clear;
|
||||||
|
while not(Reader.EndOfList) do
|
||||||
|
FNames.Add(Reader.ReadString);
|
||||||
|
|
||||||
|
Reader.ReadListEnd;
|
||||||
|
|
||||||
|
FListState:=lsNeedsProcessing;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.Remove(Item: TComponent);
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
i:=FList.IndexOf(Item);
|
||||||
|
|
||||||
|
if i>=0 then
|
||||||
|
begin
|
||||||
|
Notify(Item, opRemove);
|
||||||
|
|
||||||
|
FList.Delete(i);
|
||||||
|
|
||||||
|
Update;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.RemoveReference(Item: TComponent);
|
||||||
|
|
||||||
|
var i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
i:=FList.IndexOf(Item);
|
||||||
|
|
||||||
|
if i>=0 then
|
||||||
|
begin
|
||||||
|
Notify(Item, opRemove);
|
||||||
|
|
||||||
|
FList.Extract(Item);
|
||||||
|
|
||||||
|
Update;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.Update;
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkCollection.WriteNames(Writer: TWriter);
|
||||||
|
|
||||||
|
var Item : pointer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Writer.WriteListBegin;
|
||||||
|
|
||||||
|
for Item in FList do
|
||||||
|
Writer.WriteString(TComponent(Item).Name);
|
||||||
|
|
||||||
|
Writer.WriteListEnd;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TSpkComponent }
|
||||||
|
|
||||||
|
constructor TSpkComponent.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FParent:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkComponent.GetParent: TComponent;
|
||||||
|
begin
|
||||||
|
result:=GetParentComponent;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkComponent.GetParentComponent: TComponent;
|
||||||
|
begin
|
||||||
|
result:=FParent;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSpkComponent.HasParent: boolean;
|
||||||
|
begin
|
||||||
|
result:=FParent<>nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkComponent.SetParent(const Value: TComponent);
|
||||||
|
begin
|
||||||
|
SetParentComponent(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSpkComponent.SetParentComponent(Value: TComponent);
|
||||||
|
begin
|
||||||
|
FParent:=Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user