Gradient color title bar of Delphi StyleControls

RAD Studio 10.3 test √

[ScStyledForm]
DWMClientShadow-----------------Set the form as a borderless form

[Use one of the following methods to achieve]
[scLabel, scPanel, scGPPanel]
DragForm---------------------------Set whether the form Draggable

【Panel】

procedure TForm2.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //当鼠标按下时窗体随鼠标移动而移动
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
end;

[ScGPPanel]
FrameColor--------------------------Set the border color
FrameColorAlpha---------------- ---Set the opacity of the
frame FrameRadius------------------------Set the corner radian of the frame [Round corner]
FrameSides------- -------------------Set whether the four sides of the frame are displayed (four sides are set separately)
FrameWidth------------------- ------Set the border width (0 means no border)

FillColor-----------------------------color 1
FillColor2 ----------------- ----------Color 2
FillColorAlpha----------------------- Only use color 1 when setting the
opacity FillGradientAngle--- ----------------Set the gradient angle [Gradient from top to bottom or left to right or a certain angle]
FllGradientBeginAlpha--------------color The opacity of 1
FillGradientBeginColorOffset ------- the brightness of color 1
FillGradientEndAlpha --------the opacity of
color 2 FillGradientEndC olorOffset -------- the brightness of color 2 Brightness
FillStyle------------------------------ Only after setting this property, this is a gradual change, the default is not to be gradual
Insert picture description here
learning Take a few notes so you can read them later.

Guess you like

Origin blog.csdn.net/qq_44111597/article/details/108238907