Quellcode durchsuchen

SimpleGui: Mouse pointer

Arthur Yefimov vor 1 Jahr
Ursprung
Commit
344835019b
2 geänderte Dateien mit 4 neuen und 3 gelöschten Zeilen
  1. 2 2
      Programs/Examples/Game/MapEditor.Mod
  2. 2 1
      Programs/Examples/Game/SimpleGui.Mod

+ 2 - 2
Programs/Examples/Game/MapEditor.Mod

@@ -1,6 +1,6 @@
 MODULE MapEditor;
 IMPORT G := Graph, S := SimpleGui, Out, Int, Strings, E := GameEngine;
-CONST window = ~FALSE;
+CONST window = FALSE;
 VAR
   frmMain: S.Form;
 
@@ -118,7 +118,7 @@ RETURN TRUE END InitInterface;
 PROCEDURE Init(): BOOLEAN;
 VAR ok: BOOLEAN;
 BEGIN ok := TRUE;
-  IF window THEN G.Settings(640, 480, {G.window, G.maximized}) END;
+  IF window THEN G.Settings(640, 480, {G.window(*, G.maximized*)}) END;
   G.Init;
   IF ~G.Done THEN ok := FALSE END;
   IF ok THEN

+ 2 - 1
Programs/Examples/Game/SimpleGui.Mod

@@ -1133,6 +1133,7 @@ BEGIN
   UNTIL c = app.body;
   IF updated OR forceFlip THEN
     G.Flip;
+    G.Delay(4);
     forceFlip := FALSE
   ELSE G.Delay(4)
   END
@@ -1256,7 +1257,7 @@ BEGIN
   G.HLine(6, 15, 7, bl);
   G.Line(6, 9, 8, 14, bl);
   G.HLine(7, 9, 9, bl);
-  G.SetCursor(m)
+  G.SetNewCursor(m, 0, 0)
 END InitCursor;
 
 PROCEDURE Init*;