85 lines
2.7 KiB
C++
85 lines
2.7 KiB
C++
|
//---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
|
||
|
|
#pragma hdrstop
|
||
|
|
|
||
|
|
#include "EditorsStylesDemoFrameControl.h"
|
||
|
|
|
||
|
|
//---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
#pragma package(smart_init)
|
||
|
|
|
||
|
|
void __fastcall TcxFrameControl::AdjustFrameRgn()
|
||
|
|
{
|
||
|
|
if (Parent) {
|
||
|
|
const AElipsWidth = 4;
|
||
|
|
TRect ARect = Rect(0, 0, Width, Height);
|
||
|
|
HRGN ARgn1 = CreateRoundRectRgn(ARect.Left, ARect.Top, ARect.Right,
|
||
|
|
ARect.Bottom, AElipsWidth, AElipsWidth);
|
||
|
|
InflateRect(&ARect, -2, -2);
|
||
|
|
HRGN ARgn2 = CreateRoundRectRgn(ARect.Left, ARect.Top, ARect.Right,
|
||
|
|
ARect.Bottom, AElipsWidth, AElipsWidth);
|
||
|
|
CombineRgn(ARgn1, ARgn2, ARgn1, RGN_XOR);
|
||
|
|
SetWindowRgn(Handle, ARgn1, True);
|
||
|
|
DeleteObject(ARgn1);
|
||
|
|
DeleteObject(ARgn2);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
void __fastcall TcxFrameControl::Resize(void)
|
||
|
|
{
|
||
|
|
AdjustFrameRgn();
|
||
|
|
TWinControl::Resize();
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
__fastcall TcxFrameControl::TcxFrameControl(Classes::TComponent* AOwner) : TWinControl(AOwner)
|
||
|
|
{
|
||
|
|
Color = clRed;
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
void __fastcall TcxFrameControl::FrameControl(TControl* AControl)
|
||
|
|
{
|
||
|
|
FFramedControl = AControl;
|
||
|
|
UpdateFrameControlPos();
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
void __fastcall TcxFrameControl::UpdateFrameControlPos()
|
||
|
|
{
|
||
|
|
if (FFramedControl == NULL) return;
|
||
|
|
TRect ARect = FFramedControl->Parent->ClientRect;
|
||
|
|
TRect ADestRect;
|
||
|
|
if (FFramedControl->Left < 0)
|
||
|
|
ADestRect.Left = 0;
|
||
|
|
else
|
||
|
|
ADestRect.Left = FFramedControl->Left;
|
||
|
|
if (FFramedControl->Top < 0)
|
||
|
|
ADestRect.Top = 0;
|
||
|
|
else
|
||
|
|
ADestRect.Top = FFramedControl->Top;
|
||
|
|
if ((FFramedControl->Left + FFramedControl->Width) >= ARect.Right)
|
||
|
|
ADestRect.Right = ARect.Right - ADestRect.Left;
|
||
|
|
else
|
||
|
|
ADestRect.Right = FFramedControl->Width;
|
||
|
|
if ((FFramedControl->Top + FFramedControl->Height) >= ARect.Bottom)
|
||
|
|
ADestRect.Bottom = ARect.Bottom - ADestRect.Top;
|
||
|
|
else
|
||
|
|
ADestRect.Bottom = FFramedControl->Height;
|
||
|
|
|
||
|
|
TPoint TopLeft = Point(ADestRect.Left, ADestRect.Top);
|
||
|
|
|
||
|
|
TopLeft = FFramedControl->Parent->ClientToScreen(TopLeft);
|
||
|
|
TopLeft = Parent->ScreenToClient(TopLeft);
|
||
|
|
ADestRect.Left = TopLeft.x;
|
||
|
|
ADestRect.Top = TopLeft.y;
|
||
|
|
ADestRect.Right = ADestRect.Right + ADestRect.Left;
|
||
|
|
ADestRect.Bottom = ADestRect.Bottom + ADestRect.Top;
|
||
|
|
|
||
|
|
BoundsRect = ADestRect;
|
||
|
|
BringToFront();
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------------
|