Przeglądaj źródła

* fix a bug in cmQuitApp handling

pierre 22 lat temu
rodzic
commit
0ae5ded638
1 zmienionych plików z 5 dodań i 2 usunięć
  1. 5 2
      ide/fpide.pas

+ 5 - 2
ide/fpide.pas

@@ -759,7 +759,7 @@ begin
              cmShowReadme    : ShowReadme;
              cmShowReadme    : ShowReadme;
 {$ifdef FVISION}
 {$ifdef FVISION}
              cmResizeApp     : ResizeApplication(Event.Id, Event.InfoWord);
              cmResizeApp     : ResizeApplication(Event.Id, Event.InfoWord);
-             cmQuitApp       : Message(@Self, evCommand, cmQuitApp, nil);
+             cmQuitApp       : Message(@Self, evCommand, cmQuit, nil);
 {$endif FVISION}
 {$endif FVISION}
            else DontClear:=true;
            else DontClear:=true;
            end;
            end;
@@ -1254,7 +1254,10 @@ end;
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.24  2002-12-12 00:06:41  pierre
+  Revision 1.25  2003-01-31 11:01:00  pierre
+   * fix a bug in cmQuitApp handling
+
+  Revision 1.24  2002/12/12 00:06:41  pierre
    Use fpregs unit
    Use fpregs unit
 
 
   Revision 1.23  2002/11/28 12:58:15  pierre
   Revision 1.23  2002/11/28 12:58:15  pierre