vcl-styles

The CapsLock message when using password in TEdit get buggy when using VCL Style. This is how looks like without style: and this with VCL Style on: The message is in portuguese, but I don't think this matter. Using Windows 10 style in Delphi Seattle 23.0.21418.4207 (with Update 1). Found it. VCL Style Utils, like a lot of other things, solves the bug. Just had to add the Vcl.Styles.Utils.ScreenTips in the uses. 来源： https://stackoverflow.com/questions/41098869/capslock-password-message-in-tedit-visually-fails-with-vcl-styles

I want to get at a specific bitmap from a VCL style - and set it as an image on a button - it is actually the help question mark. In the Bitmap Style Editor is is the btnHelp image, from the Form. To get a Visual element (glyph) from a VCL Style you must use the GetElementDetails and the TCustomStyleServices.DrawElement procedure. Try this sample uses Vcl.Themes; {$R *.dfm} procedure TForm1.PaintBox1Paint(Sender: TObject); var LDetails : TThemedElementDetails; begin //Get the detailsfor the HelpButton LDetails := StyleServices.GetElementDetails(twHelpButtonNormal); //Draw the the element in

I'm using the vcl style hook of the answer to this question close button of a tabsheet not supporting vcl styles and is working fine, but the close button is draw in all the TPageControl components of my app. And I want add this option (draw the close button) to only a particular form. The question is : how I can apply this hook or any vcl style hook just to the TPageControl of a specific form? You can use a interposer class for the TPageControl component check this sample type TPageControl = class(Vcl.ComCtrls.TPageControl); TForm1 = class(TForm) PageControl1: TPageControl; ... ... And then

Without VCL styles enabled, my TActionToolbar(s) look like flat toolbars. However, if I enable pretty much any VCL style, suddenly all the toolbar buttons look like 3d buttons. The VCL Style Viewer app shows toolbar buttons with both flat and button-like appearance: How can I make my TActionToolbar have the flat toolbar button style instead of looking like a bunch of buttons when I enable VCL Styles? The draw methods used by all the controls related to the TActionManager are handled by a TPlatformDefaultStyleActionBars class from here the classes used to paint the controls are selected

I'm using this code to remove the vcl styles from the non client area of a form. type TFormStyleHookNC= class(TMouseTrackControlStyleHook) protected procedure PaintBackground(Canvas: TCanvas); override; constructor Create(AControl: TWinControl); override; end; constructor TFormStyleHookNC.Create(AControl: TWinControl); begin inherited; OverrideEraseBkgnd := True; end; procedure TFormStyleHookNC.PaintBackground(Canvas: TCanvas); var Details: TThemedElementDetails; R: TRect; begin if StyleServices.Available then begin Details.Element := teWindow; Details.Part := 0; R := Rect(0, 0, Control