version 3.6.9

- Added Expanded button and Panel in StyledTaskDialog Form
- Changed Panel Order in StyledTaskDialog
- Added OnEnableNavBtn event in StyledDbNavigator and StyledBindNavigator
- Fixed Cursor in StyledDbNavButton when disabled
- Fixed "Resource BUTTON_SHIELD_ADMIN not found" in StyledTaskDialog
- Fixed Autoclick using StyledMessageDlg and StyledTaskMessageDlg
- Fixed Caption position

Author: carloBarazzetta

Demos/Delphi10.0/StyledComponentsDemo.dpr

@@ -57,5 +57,6 @@ begin
   TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.

Demos/Delphi10.1/StyledComponentsDemo.dpr

@@ -57,5 +57,6 @@ begin
   TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.

Demos/Delphi10.2/StyledComponentsDemo.dpr

@@ -57,5 +57,6 @@ begin
   TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.

Demos/Delphi10.3/StyledComponentsDemo.dpr

@@ -57,5 +57,6 @@ begin
   TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.

Demos/Delphi10.4/StyledComponentsDemo.dpr

@@ -58,5 +58,6 @@ begin
   TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.

Demos/Delphi11/StyledComponentsDemo.dpr

@@ -59,5 +59,6 @@ begin
   TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.

Demos/Delphi12/StyledComponentsDemo.dpr

@@ -59,5 +59,6 @@ begin
   TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.

Demos/Delphi12/StyledComponentsDemo.dproj

@@ -50,8 +50,11 @@ uses
 
 begin
   Application.Initialize;
+  Application.MainFormOnTaskBar := True;
+  Application.ActionUpdateDelay := 50;
   Application.Title := 'Styled Components Demos with Delphi XE6';
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.

Demos/DelphiXE6/StyledComponentsDemo.dpr

@@ -55,5 +55,6 @@ begin
   Application.Title := 'Styled Components Demos with Delphi XE7';
   Application.CreateForm(TdmResources, dmResources);
   Application.CreateForm(TfrmMain, frmMain);
+  Application.OnException := frmMain.ShowError;
   Application.Run;
 end.