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

2013-01-05 Thread Martin
On 05/01/2013 01:06, Mattias Gaertner wrote: On Sat, 5 Jan 2013 00:47:38 +0100 Bart bartjun...@gmail.com wrote: On 1/4/13, Mattias Gaertner nc-gaert...@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

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

2013-01-05 Thread Mattias Gaertner
On Sat, 05 Jan 2013 08:32:54 + Martin laza...@mfriebe.de wrote: On 05/01/2013 01:06, Mattias Gaertner wrote: On Sat, 5 Jan 2013 00:47:38 +0100 Bart bartjun...@gmail.com wrote: On 1/4/13, Mattias Gaertner nc-gaert...@netcologne.de wrote: It sounds like a bug in the LCL Win32

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

2013-01-05 Thread Martin
On 05/01/2013 10:54, luiz americo pereira camara wrote: 2013/1/5 luiz americo pereira camara luiz...@oi.com.br: 2013/1/5 luiz americo pereira camara luiz...@oi.com.br: 2013/1/5 Mattias Gaertner nc-gaert...@netcologne.de: On Sat, 05 Jan 2013 08:32:54 + Martin laza...@mfriebe.de wrote: and

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

2013-01-05 Thread Mattias Gaertner
On Sat, 5 Jan 2013 07:36:01 -0300 luiz americo pereira camara luiz...@oi.com.br wrote: [...] I've found a suspect. SetParent triggers the handle creation TSynEdt.CreateWnd calls SizeOrFontChanged that calls UpdateScrollBars Here, since PaintLock 0 the scrollbar change is postponed

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

2013-01-05 Thread Martin
On 05/01/2013 11:12, Mattias Gaertner wrote: On Sat, 5 Jan 2013 07:36:01 -0300 luiz americo pereira camara luiz...@oi.com.br wrote: [...] I've found a suspect. SetParent triggers the handle creation TSynEdt.CreateWnd calls SizeOrFontChanged that calls UpdateScrollBars Here, since PaintLock 0

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

2013-01-05 Thread luiz americo pereira camara
2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 10:54, luiz americo pereira camara wrote: 2013/1/5 luiz americo pereira camara luiz...@oi.com.br: I've found a suspect. SetParent triggers the handle creation TSynEdt.CreateWnd calls SizeOrFontChanged that calls UpdateScrollBars Here, since

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

2013-01-05 Thread Martin
On 05/01/2013 11:19, luiz americo pereira camara wrote: What OS are you using. Here with windows 7 no Paint occurs at all. See previous mail Can you check (comment ShowScrollBar) if the paint you are seeing is really from ShowScrollBar? After that we can look what to do If I single step,

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

2013-01-05 Thread luiz americo pereira camara
2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 11:19, luiz americo pereira camara wrote: What OS are you using. Here with windows 7 no Paint occurs at all. See previous mail Can you check (comment ShowScrollBar) if the paint you are seeing is really from ShowScrollBar? After that we

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

2013-01-05 Thread luiz americo pereira camara
2013/1/5 Martin laza...@mfriebe.de: Someone might check WDD? Whats WDD? Luiz -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

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

2013-01-05 Thread Martin
On 05/01/2013 11:43, luiz americo pereira camara wrote: If I single step, it is not painted by that line. It happens here Perform(CM_SHOWINGCHANGED, 0, 0); // see TWinControl.CMShowingChanged This ends with TWin32WSWinControl.ShowHide that calls SetWindowPos which should not trigger a

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

2013-01-05 Thread Martin
On 05/01/2013 11:43, luiz americo pereira camara wrote: 2013/1/5 Martin laza...@mfriebe.de: Someone might check WDD? Whats WDD? What Delphi does -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org

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

2013-01-05 Thread luiz americo pereira camara
2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 11:43, luiz americo pereira camara wrote: If I single step, it is not painted by that line. It happens here Perform(CM_SHOWINGCHANGED, 0, 0); // see TWinControl.CMShowingChanged This ends with TWin32WSWinControl.ShowHide that calls

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

2013-01-05 Thread Martin
On 05/01/2013 12:03, luiz americo pereira camara wrote: 2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 11:43, luiz americo pereira camara wrote: If I single step, it is not painted by that line. It happens here Perform(CM_SHOWINGCHANGED, 0, 0); // see TWinControl.CMShowingChanged

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

2013-01-05 Thread Martin
On 05/01/2013 11:19, luiz americo pereira camara wrote: 2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 10:54, luiz americo pereira camara wrote: 2013/1/5 luiz americo pereira camara luiz...@oi.com.br: I've found a suspect. SetParent triggers the handle creation TSynEdt.CreateWnd calls

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

2013-01-05 Thread luiz americo pereira camara
2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 11:19, luiz americo pereira camara wrote: Can you check (comment ShowScrollBar) if the paint you are seeing is really from ShowScrollBar? This would not make sense? Nothing, except the scrollbars is painted (SynEdit does not paint). I

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

2013-01-05 Thread luiz americo pereira camara
@Bart: Did you tried to set Visible to false before setting Parent and Align and then setting visible to True, like below? s:=PageControl1.AddTabSheet; PageControl1.ActivePage := s; l := TSynEdit.Create(self); l.Visible := False l.Parent := s; l.Align := alClient; l.Visible := True

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

2013-01-05 Thread Martin
On 05/01/2013 12:57, luiz americo pereira camara wrote: 2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 11:19, luiz americo pereira camara wrote: Can you check (comment ShowScrollBar) if the paint you are seeing is really from ShowScrollBar? This would not make sense? Nothing, except the

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

2013-01-05 Thread luiz americo pereira camara
2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 12:57, luiz americo pereira camara wrote: 2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 11:19, luiz americo pereira camara wrote: Can you check (comment ShowScrollBar) if the paint you are seeing is really from ShowScrollBar? This

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

2013-01-05 Thread luiz americo pereira camara
2013/1/5 luiz americo pereira camara luiz...@oi.com.br: 2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 12:57, luiz americo pereira camara wrote: 2013/1/5 Martin laza...@mfriebe.de: On 05/01/2013 11:19, luiz americo pereira camara wrote: Can you check (comment ShowScrollBar) if the paint

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

2013-01-05 Thread luiz americo pereira camara
The last code also has a also an undesired effect: Some controls. eg Lazarus options form, are not displayed when show at first time Luiz 2013/1/5 luiz americo pereira camara luiz...@oi.com.br: 2013/1/5 luiz americo pereira camara luiz...@oi.com.br: 2013/1/5 Martin laza...@mfriebe.de: On

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

2013-01-04 Thread Bart
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

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

2013-01-04 Thread 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 bartjun...@gmail.com: Hi,

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

2013-01-04 Thread Mattias Gaertner
On Fri, 4 Jan 2013 15:00:13 +0100 Bart bartjun...@gmail.com wrote: 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

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

2013-01-04 Thread Bart
On 1/4/13, Mattias Gaertner nc-gaert...@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? What size has the SynEdit after setting Align to alClient and what

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

2013-01-04 Thread Mattias Gaertner
On Sat, 5 Jan 2013 00:47:38 +0100 Bart bartjun...@gmail.com wrote: On 1/4/13, Mattias Gaertner nc-gaert...@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