On Sat, 5 Jan 2013 00:47:38 +0100 Bart <[email protected]> wrote: > On 1/4/13, Mattias Gaertner <[email protected]> wrote: > > > It sounds like a bug in the LCL Win32 interface. > > I don't have win32 here to test. > > There should be no Paint events during your code. Are there? > > How do I test this?
Set the OnPaint event of the synedit and add a debugln. > > What size has the SynEdit after setting Align to alClient and what is > > the ClientRect of the tabsheet? > > TS is the TabSheet that is the parent of E > TS has been created and it's property PageControl is set to the > PageControl in question > At this stage: > > TS.ClientRect = l=0,t=0,r=0,b=0 Well, that's not much space. Please add a debugln(TS.AutoSizeDelayedReport); > Before setting E.Align := alClient: E.Bounds = l=0,t=0,r=200,b=150 > After setting E.Align := alClient: E.Bounds = l=0,t=0,r=200,b=150 > > > > > About workarounds: > > Set the Parent as last property > > I remember doing that in the Delphi app and it made no difference, but > I'll try it in Lazarus. > > > or enclose the code in > > BeginAutoSizing; > > EndAutoSizing; > > I'll give that a try too. Mattias -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
