vcl-styles

问题 In my programming team we all use Delphi XE2 Professional. We just figured out that on different computers different numbers of VCL styles are available. Where do VCL styles come from? Do I have to take care to move styles from one Delphi installation to another? 回答1: Q : Where do VCL styles come from? A : The Vcl Styles files are part of the Delphi XE2 and XE3 versions, and are installed in two locations C:\Users\Public\Public Documents\RAD Studio\<n.n>\Styles and C:\Program Files (x86)

问题 Is there a way to show the window shadow, as per normal Windows 7 forms, when using a VCL style? I understand the bitmap and settings in the style replaces the form borders, but isn't the shadow some sort of alpha blend / aero thing that is outside the area affected by the style? Adding CS_DROPSHADOW to the WindowClass.Style seems to have no effect. 回答1: Using the CS_DROPSHADOW style works fine type TMyForm = class(TForm) protected procedure CreateParams(var Params: TCreateParams); override;

问题 TMontCalendar seems to be a Windows wrapper so it can't be affected by the new VCL Styles, do you know a solution for it ? 回答1: The TMonthCalendar is wrapper for the MONTHCAL_CLASS and as far i know this control doesn't support owner draw, but provides the CalColors property which allow you to set the colors of the elements of the calendar, but this property only works when the themes is not enabled. So first you must call the SetWindowTheme function to disable the themes in the calendar and

问题 That's my analysis, anyway. I "distributed" my app to our organization this morning only to learn that, after a month of new work in XE8 on this old win32 app, clients not using the Windows 7 "Basic" theme see a very faded appearance. But those of us using remote desktop or using the Basic theme see about what I think we've always seen. Facts: Made with XE8, Win32, current Raize components XPMan removed along the way "Enable themes" is "on" in all configs, Metropolis checked, Windows is set

问题 I wanna style my inno-setup installer using vcl-styles or isskin. I tried both, and it looks amazing. The only problem is that unfortunately the Select Setup language Dialog is showen before the execution of the InitializeSetup event (where is the skins loaded). [Files] Source: ..\VclStylesinno.dll; DestDir: {app}; Flags: dontcopy Source: ..\Styles\Amakrits.vsf; DestDir: {app}; Flags: dontcopy [Code] // Import the LoadVCLStyle function from VclStylesInno.DLL procedure LoadVCLStyle

问题 I have an issue in Delphi 10.1 Berlin using VCL Styles and an external DLL. I'm using a Nitgen DLL to enroll fingerprints in my application. The process is handled by a COM object in NBSPCOM.dll . When I call the method to enroll, the form from the DLL appears odd. It shows the Form background, images and controls are wrong, etc. If I compile the application in XE8, the problem vanishes and all works fine. I can't find the class of the DLL forms to try a VCL Styles hook. Some screenshots of

问题 I have a TabControl in which each tab represents a distinct set of data. My application uses VCL Styles , and thus setting OwnerDraw to True does not lead to OnDrawTab being called. I was wondering if it is possible to somehow intercept the routine which draws a specific control using VCL Styles (in my case, TabControl ), and change the way the control is drawn (for instance, change the Canvas.Font , etc.). 回答1: To change the font color of a tabsheet using the vcl styles, you must override

问题 This is a follow-up to this question about making toolbar buttons flat when VCL styles are enabled. Using the solution in that question, now most of my TActionToolbar buttons are flat. However, there's one toolbar button with a drop-down menu with additional actions: And it's still drawing button edges around it. How can I remove the button borders for toolbar buttons with drop-downs so they match the other plain buttons, and look more like when VCL styles were disabled? 回答1: This kind of

问题 Win7 x64, Delphi Xe2 update2 Prompt: The new project, compile as x32, are applied visual (vcl) styles in the project options, by default one is chosen On the form the button1 and WebBrowser1 In the button we write WebBrowser1.Navigate ('http://google.com'); We start, we press the button - in a browser we see a site google.com, all ок We compile as x64, it is started ок, by button pressing we receive an error "float division on zerro". Questions: At all so (error)? And as with it to struggle?

问题 Using Delphi XE2, you have the option to embed custom styles (skins) to a VCL project. Everything works fine. Now I have some forms into a separated dll that I show dynamically. Of course those are not skinned. How can I rectify that? I guess I must do some call to TVisualStyle somehow, but no luck. The host: procedure TForm1.Button1Click(Sender: TObject); var l: THandle; p: procedure (const h: THandle); stdcall; begin l:= LoadLibrary('project1.dll'); if l > 0 then begin @p:= GetProcAddress(l