[Lazarus] Visual "uglyness" when creating TSynEdit @ runtime in my app
nc-gaertnma at netcologne.de
Sat Jan 5 02:06:56 CET 2013
On Sat, 5 Jan 2013 00:47:38 +0100
Bart <bartjunk64 at gmail.com> wrote:
> On 1/4/13, Mattias Gaertner <nc-gaertnma at netcologne.de> 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
> 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.
More information about the Lazarus