diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index bf92c229531d27eacc2a0bb83561c9ed3bcb9dd4..e5389bd8ad9171f61439cb5d23e0e246b89a963f 100644 (file)
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
+ LastDrawTime: UInt64;
procedure Draw();
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure RefillRecentMenu (menu: TMenuItem; start: Integer; fmt: AnsiString);
if FileExists(fn) then
OpenMap(fn, g_ExtractFilePathName(s))
else
- Application.MessageBox('', 'File not available anymore', MB_OK);
+ Application.MessageBox('File not available anymore', '', MB_OK);
// if Application.MessageBox(PChar(MsgMsgDelRecentPrompt), PChar(MsgMsgDelRecent), MB_ICONQUESTION or MB_YESNO) = idYes then
// begin
// RecentFiles.Delete(n);
s: String;
begin
Randomize();
+ LastDrawTime := 0;
{$IFDEF DARWIN}
miApple.Enabled := True;
ObjCount: Word;
aX, aY, aX2, aY2, XX, ScaleSz: Integer;
begin
+ LastDrawTime := GetTickCount64();
ID := 0;
PID := 0;
Width := 0;
end;
procedure TMainForm.OnIdle(Sender: TObject; var Done: Boolean);
+ const MaxFPS = 60;
var f: AnsiString;
begin
+ // TODO: move refresh to user actions (ask to repaint only when something changed)
+ if GetTickCount64() - LastDrawTime >= 1000 div MaxFPS then
+ begin
+ PanelMap.Refresh;
+ end;
+
if StartMap <> '' then
begin
f := StartMap;