Open marikar17 opened 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
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