View Issue Details

IDProjectCategoryView StatusLast Update
0038835LazarusLCLpublic2021-05-01 19:32
ReporterBenjamin Rosseaux Assigned ToMichl  
PrioritynormalSeverityminorReproducibilityhave not tried
Status resolvedResolutionfixed 
Platformx86_64OSWindows 
Fixed in Version2.1 (SVN) 
Summary0038835: Anchordocking should fsSplash forms untouched.
DescriptionAnchordocking should forms with FormStyle fsSplash untouched.

An example where it bothers: In my LCL-Qt5-based indie DAW (Digital Audio Workstation) project, the "transparent" Splash form slowly fades in animated (with CanClose temporarily set to false to prevent the MainForm-Show-Process from closing the splash form), the MainForm is initialized along with the AnchorDocking stuff, and then the Splash form slowly fades out animated again. But if AnchorDocking suddenly changes the FormStyle of the Splash form to fsNormal or fsStayOnTop here, then the background of the splashform is suddenly no longer transparent but then black, and furthermore it suddenly has also a window frame. This then looks super unattractive for the user.

I've attached a patch to this issue report.
TagsNo tags attached.
Fixed in Revision65077
LazTarget-
Widgetset
Attached Files

Relationships

related to 0019272 closedMichl AchorDocking ignored FormStyle:=fsStayOnTop 

Activities

Benjamin Rosseaux

2021-05-01 00:44

reporter  

anchordocking.pas.patch (443 bytes)   
Index: anchordocking.pas
===================================================================
--- anchordocking.pas	(revision 65073)
+++ anchordocking.pas	(working copy)
@@ -2740,6 +2740,10 @@
   for i := 0 to Screen.FormCount - 1 do
   begin
     AForm := Screen.Forms[i];
+    if AForm.FormStyle = fsSplash then
+    begin
+      continue;
+    end;
     ParentForm := GetParentForm(AForm);
     if FFloatingWindowsOnTop then
     begin
anchordocking.pas.patch (443 bytes)   

Andrey Zubarev

2021-05-01 03:41

reporter   ~0130695

I confirm, the patch fixes it. Issue need move to Lazarus

Benjamin Rosseaux

2021-05-01 15:26

reporter   ~0130703

Here you can see it in action, how it looks with my patch: https://www.youtube.com/watch?v=KcY8vmR2fM8

Michl

2021-05-01 19:32

developer   ~0130706

Applied. Thank you! Please close this issue.

Issue History

Date Modified Username Field Change
2021-05-01 00:44 Benjamin Rosseaux New Issue
2021-05-01 00:44 Benjamin Rosseaux File Added: anchordocking.pas.patch
2021-05-01 03:41 Andrey Zubarev Note Added: 0130695
2021-05-01 07:41 Jonas Maebe Project FPC => Lazarus
2021-05-01 12:45 Michl Assigned To => Michl
2021-05-01 12:45 Michl Status new => assigned
2021-05-01 15:26 Benjamin Rosseaux Note Added: 0130703
2021-05-01 19:19 Michl Relationship added related to 0019272
2021-05-01 19:32 Michl Status assigned => resolved
2021-05-01 19:32 Michl Resolution open => fixed
2021-05-01 19:32 Michl Fixed in Version => 2.1 (SVN)
2021-05-01 19:32 Michl Fixed in Revision => 65077
2021-05-01 19:32 Michl LazTarget => -
2021-05-01 19:32 Michl Note Added: 0130706