| Additional Information | From JvDockVSNETStyle.pas:
procedure TJvDockVSNETTree.DrawCloseButton(Canvas: TCanvas;
Zone: TJvDockZone; Left, Top: Integer);
var
DrawRect: TRect;
AZone: TJvDockVSNETZone;
ColorArr: array [1..2] of TColor;
ADockClient: TJvDockClient;
AForm: TCustomForm;
OldWidth: Integer;
begin
if Zone <> nil then
begin
ADockClient := FindDockClient(Zone.ChildControl);
if (ADockClient <> nil) and not ADockClient.EnableCloseButton then
Exit;
if Zone.ChildControl is TJvDockTabHostForm then
begin
AForm := TJvDockTabHostForm(Zone.ChildControl).GetActiveDockForm;
if AForm <> nil then
begin
ADockClient := FindDockClient(AForm);
if (ADockClient <> nil) and not ADockClient.EnableCloseButton then
Exit;
end;
end;
AZone := TJvDockVSNETZone(Zone);
DrawRect.Left := Left + 6;
DrawRect.Right := DrawRect.Left + 7;
DrawRect.Top := Top + 3;
DrawRect.Bottom := DrawRect.Top + 7;
if AZone.CloseBtnState <> bsNormal then
begin
if AZone.CloseBtnState = bsUp then
begin
ColorArr[1] := clBlack;
if GetActiveControl = AZone.ChildControl then
ColorArr[2] := clBtnFace
else
ColorArr[2] := clWhite;
end
else
if AZone.CloseBtnState = bsDown then
begin
ColorArr[1] := clBtnFace;
ColorArr[2] := clBlack;
end;
Canvas.Pen.Color := ColorArr[1];
Canvas.MoveTo(Left, Top + ButtonHeight);
Canvas.LineTo(Left + ButtonWidth, Top + ButtonHeight);
Canvas.LineTo(Left + ButtonWidth, Top);
Canvas.Pen.Color := ColorArr[2];
Canvas.LineTo(Left, Top);
Canvas.LineTo(Left, Top + ButtonHeight);
end;
if AZone.CloseBtnState = bsDown then
OffsetRect(DrawRect, 1, 1);
if AZone.ChildControl = GetActiveControl then
Canvas.Pen.Color := clWhite
else
Canvas.Pen.Color := clBlack;
OldWidth := Canvas.Pen.Width;
try
Canvas.Pen.Width := 2;
Dec(DrawRect.Left);
Dec(DrawRect.Right);
//bounds are adjusted a bit to keep button position
Canvas.MoveTo(DrawRect.Left , DrawRect.Top);
Canvas.LineTo(DrawRect.Right, DrawRect.Bottom);
Canvas.MoveTo(DrawRect.Right, DrawRect.Top);
Canvas.LineTo(DrawRect.Left, DrawRect.Bottom);
finally
Canvas.Pen.Width := OldWidth;
end;
end;
end; |
|---|
