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, it is not painted by that line.
It happens here
Perform(CM_SHOWINGCHANGED, 0, 0); // see TWinControl.CMShowingChanged
in B:\lazarus_latest_2\lcl\include\wincontrol.inc 4295
procedure TWinControl.UpdateShowing;
procedure ChangeShowing(bShow: Boolean);
begin
if FShowing = bShow then Exit;
FShowing := bShow;
try
{$IFDEF VerboseShowing}
DebugLn(['ChangeShowing ',DbgSName(Self),' new FShowing=',FShowing]);
{$ENDIF}
Perform(CM_SHOWINGCHANGED, 0, 0); // see TWinControl.CMShowingChanged
finally
if FShowing<>(wcfHandleVisible in FWinControlFlags) then
begin
FShowing := wcfHandleVisible in FWinControlFlags;
DebugLn(['TWinControl.UpdateShowing.ChangeShowing failed for
',DbgSName(Self),', Showing reset to ',FShowing]);
end;
end;
end;
#0 CHANGESHOWING(0x2fcf1dc, true) at include\wincontrol.inc:4308
#1 UPDATESHOWING(0x219838) at include\wincontrol.inc:4356
#2 UPDATESHOWINGRECURSIVE(0x2fcf290, 0x219838, false) at
include\wincontrol.inc:3466
#3 UPDATESHOWINGRECURSIVE(0x2fcf290, 0x2193b8, true) at
include\wincontrol.inc:3463
#4 DOALLAUTOSIZE(0x2193b8) at include\wincontrol.inc:3520
#5 ENABLEAUTOSIZING(0x2193b8) at include\control.inc:5433
#6 ENABLEAUTOSIZING(0x219838) at include\control.inc:5431
#7 SETPARENT(0x219838, 0x2193b8) at include\control.inc:4076
#8 TFORM1__BUTTON1CLICK(0x21b858, <error reading variable>) at unit1.pas:38
#9 CLICK(0x21b858) at include\control.inc:2718
#10 STDCTRLS$_$TBUTTONCONTROL_$__$$_CLICK at :0
#11 STDCTRLS$_$TCUSTOMBUTTON_$__$$_CLICK at :0
#12 STDCTRLS$_$TBUTTON_$__$$_CLICK at :0
#13 STDCTRLS$_$TBUTTONCONTROL_$__$$_WMDEFAULTCLICKED$TMESSAGE at :0
#14 DISPATCH(0x21b858, 0) at ..\inc\objpas.inc:602
#15 WNDPROC(0x21b858, {MSG = 66567, WPARAM = 0, LPARAM = 0, RESULT = 0,
WPARAMLO = 0, WPARAMHI = 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0,
RESULTHI = 0}) at include\control.inc:2111
#16 WNDPROC(0x21b858, {MSG = 66567, WPARAM = 0, LPARAM = 0, RESULT = 0,
WPARAMLO = 0, WPARAMHI = 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0,
RESULTHI = 0}) at include\wincontrol.inc:5323
#17 DELIVERMESSAGE(0x21b858, 0) at lclmessageglue.pas:117
#18 WINDOWPROC(6359808, 273, 47192, 1116996) at win32\win32callback.inc:2476
#19 CUSTOMFORMWNDPROC(6359808, 273, 47192, 1116996) at
win32\win32wsforms.pp:375
#20 USER32!GetWindowMinimizeRect at :0
#21 $FORMS$_Ld101 at :0
#22 ?? at :0
#23 ?? at :0
#24 ?? at :0
#25 USER32!GetWindowMinimizeRect at :0
#26 WIN32WSFORMS_$$_ADJUSTFORMBOUNDS$TCUSTOMFORM$RECT at :0
#27 USER32!CallNextHookEx at :0
#28 USER32!SendNotifyMessageA at :0
#29 DllInstall at :0
#30 DllInstall at :0
#31 DllInstall at :0
#32 USER32!GetWindowMinimizeRect at :0
#33 ?? at :0
#34 USER32!GetWindowMinimizeRect at :0
#35 DSA_Destroy at :0
#36 USER32!CancelShutdown at :0
#37 USER32!CancelShutdown at :0
#38 CALLDEFAULTWINDOWPROC(1116996, 514, 0, 65547) at
win32\win32callback.inc:106
#39 WINDOWPROC(1116996, 514, 0, 65547) at win32\win32callback.inc:2284
#40 BUTTONWNDPROC(1116996, 514, 0, 65547) at win32\win32wsstdctrls.pp:1590
#41 USER32!GetWindowMinimizeRect at :0
#42 ?? at :0
#43 USER32!GetWindowMinimizeRect at :0
#44
WIN32WSSTDCTRLS$_$TWIN32WSBUTTONCONTROL_$__$$_GETPREFERREDSIZE$TWINCONTROL$LONGINT$LONGINT$BOOLEAN
at :0
#45 USER32!GetMonitorInfoA at :0
#46 USER32!DisplayExitWindowsWarnings at :0
#47 APPPROCESSMESSAGES(0x233fb8) at win32\win32object.inc:367
#48 HANDLEMESSAGE(0x1dc178) at include\application.inc:1274
#49 RUNLOOP(0x1dc178) at include\application.inc:1407
#50 INTERFACEBASE$_$TWIDGETSET_$__$$_APPRUN$TAPPLICATIONMAINLOOP at :0
#51 RUN(0x1dc178) at include\application.inc:1395
#52 main at C:\Users\martin\AppData\Local\Temp\project1.lpr:19
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
