2
0
Эх сурвалжийг харах

* try to avoid memory corruption if UserScreen is smaller than IDE screen on win32

pierre 23 жил өмнө
parent
commit
1542285c05
1 өөрчлөгдсөн 12 нэмэгдсэн , 1 устгасан
  1. 12 1
      ide/fpide.pas

+ 12 - 1
ide/fpide.pas

@@ -829,12 +829,20 @@ begin
   InitEvents;
   InitEvents;
   InitSysError;
   InitSysError;
   CurDirChanged;
   CurDirChanged;
+{$ifndef win32}
   Message(Application,evBroadcast,cmUpdate,nil);
   Message(Application,evBroadcast,cmUpdate,nil);
+{$endif win32}
 {$ifdef win32}
 {$ifdef win32}
   Win32ShowMouse;
   Win32ShowMouse;
 {$endif win32}
 {$endif win32}
+
   if Assigned(UserScreen) then
   if Assigned(UserScreen) then
     UserScreen^.SwitchBackToIDEScreen;
     UserScreen^.SwitchBackToIDEScreen;
+{$ifdef win32}
+  { This message was sent when the VideoBuffer was smaller
+    than was the IdeApp thought => writes to random memory and random crashes... PM }
+  Message(Application,evBroadcast,cmUpdate,nil);
+{$endif win32}
 {$ifdef Unix}
 {$ifdef Unix}
   SetKnownKeys;
   SetKnownKeys;
 {$endif Unix}
 {$endif Unix}
@@ -1207,7 +1215,10 @@ end;
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.14  2002-06-10 08:12:17  pierre
+  Revision 1.15  2002-07-12 14:17:39  pierre
+   * try to avoid memory corruption if UserScreen is smaller than IDE screen on win32
+
+  Revision 1.14  2002/06/10 08:12:17  pierre
    * System messages must be handled by the application directly
    * System messages must be handled by the application directly
 
 
   Revision 1.13  2002/05/30 15:03:23  pierre
   Revision 1.13  2002/05/30 15:03:23  pierre