RRUZ / vcl-styles-utils

Extend and improve the Delphi VCL Styles
https://theroadtodelphi.wordpress.com/
329 stars 115 forks source link

Trouble when StyleElements = [] #246

Open marikar17 opened 5 years ago

marikar17 commented 5 years ago

In my application I need to open a form without style applied. But when I tried the system color showed the color in the theme definition.

When I tried without vcl-styles-utils, it is functionnal.

unit Unit24;

interface

uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Styles.Hooks;

type TForm24 = class(TForm) Panel1: TPanel; private { Private declarations } public { Public declarations } end;

var Form24: TForm24;

implementation

{$R *.dfm}

end.

object Form24: TForm24 Left = 0 Top = 0 Caption = 'Form24' ClientHeight = 299 ClientWidth = 635 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False StyleElements = [] PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 635 Height = 119 Align = alTop Caption = 'Panel1' TabOrder = 0 StyleElements = [] end end