[Lazarus] Visual "uglyness" when creating TSynEdit @ runtime in my app

[luiz americo pereira camara]

I do the following in my tab like control, and no glitches:

          Control := ControlClass.Create(Parent);
          Control.Visible := False;
          Control.Align := alClient;
          Control.Parent := Parent;
          Control.Visible := True;

2013/1/4 Bart <bartjunk64 at gmail.com>:
> Hi,
>
> I have a text editor (LazEdit on Lazarus CCR) which uses a
> TPageControl to act like a Tabbed Document Interface (much like
> Lazarus SE).
>
> Upon creating a new Tab it basically does:
> - Add a new TTabSheet to the PageControl
> - Create an instance of a TSynEdit
> - Set TSynEdit.Parent to the newly created TTabSheet
> - Set TSynEdit.Align := alClient
>
> This works as expected.
> However there is one visual anomaly: when you create a new Tab, for a
> brief moment you can see the TSynEdit, unaligned, with Width and
> Height set to it's defaults (like you would drop it on a Form in
> Lazarus).
>
> Long time ago, in Delphi, I solved this by doing:
>
>   Try
>     LockWindowUpdate(TheHandle);
>     ...
>    //Create the TSynEdit, align it etc.
>
>   Finally
>     LockWindowUpdate(0);
>
> This delayed any painting up to the point the TSynEdit was aligned.
> However, this is a Windows only fix.
>
> The relevant code is at:
> https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/applications/lazedit/editorpagecontrol.pp
> (function TEditorPageControl.AddPage: TEditor; appr. at line 994)
>
> Does anyone have a suggestion how to fix this in a cross-platform manner?
>
> Bart
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus