Перерисовка

{$apptype windows}
{$product Lost Souls}
{$version 1.0.0.0}
{$copyright Copyright(c) 2018 Best Games}
{$company Best Games}
 
uses GraphABC, Timers;
 
type
  Button = class
    x, y, w, h: integer;
    P: Picture;
    IsPressed: boolean;
    DelButton1, DelButton2: Picture;
    
    ///Создает кнопку в позиции (x,y) масштабируя её к размеру (w,h)
    constructor(x, y, w, h: integer; PicName, DelPicName1, DelPicName2: string);
    begin
      var p := new Picture(PicName);
      (Self.x, Self.y, Self.w, Self.h, Self.P, Self.IsPressed) := (x, y, w, h, P, false);
      DelButton1 := new Picture(DelPicName1);
      DelButton2 := new Picture(DelPicName2);
    end;
    
    procedure PressButton;
    begin
      if not IsPressed then begin
        DelButton1.Draw(x, y);
        (x, y) := (x + 3, y + 3);
        P.Draw(x, y, w, h);
        IsPressed := true;
      end;
    end;
    
    function DePressButton(x1, y1, mb: integer): boolean;
    begin
      if IsPressed then begin
        if (x1 in [x..x + w]) and (y1 in [y..y + h]) and (mb = 1) then Result := True else Result := False;
        IsPressed := false;
        DelButton2.Draw(x, y);
        (x, y) := (x - 3, y - 3);
        P.Draw(x, y, w, h);
      end;
    end;
  end;
 
var
  xekr, yekr: integer;
  KeysState := new byte[256];
  Scene: byte := 1;
  xb, yb: integer;
  Menu := new Picture('Imgs\Menu.png');
  Settings: Button;
  FpsImg := new Picture('Imgs\1.png');
  Fps: integer;
 
var
  FpsTimer := new Timer(1000, procedure ->begin
    FpsImg.Draw(xekr - 130, 30, 100, Trunc(100 * (FpsImg.Height / FpsImg.Width)));
    SetBrushStyle(bsclear);
    SetFontSize(22);
    TextOut(xekr - 130 + (((xekr - 130 + 100) - (xekr - 130))) div 2 - TextWidth(Fps.ToString) div 2, 30 + (30 + Trunc(100 * (FpsImg.Height / FpsImg.Width)) - 30) div 2 - TextHeight(Fps.ToString) div 2, Fps.ToString);
    SetBrushStyle(bssolid);
    Fps := 0;
  end);
 
function GetKeyState(Id: byte): byte;
external 'User32.dll' name 'GetKeyState';
 
procedure MouseUp(x, y, mb: integer);
begin
  case Scene of
    1:
      begin
        Settings.DePressButton(x, y, mb);
        SetPixel(Trunc(xekr * (90 / Menu.Width)), Trunc(yekr * (204 / Menu.Height)), clred);
        SetPixel(Trunc(xekr * (104 / Menu.Width)), Trunc(yekr * (224 / Menu.Height)), clred);
        
      end;
  end;
end;
 
procedure DrawMenu();
begin
  Menu.Draw(0, 0, xekr, yekr);
  Redraw;
  if Settings = nil then begin
    var bm := new System.Drawing.Bitmap(Trunc(xekr * 0.0772058823529412), Trunc(xekr * 0.0772058823529412));
    var gr := system.Drawing.Graphics.FromImage(bm);
    gr.CopyFromScreen(3 + Trunc(xekr * 0.0110294117647059), 29 + Trunc(yekr * 0.0204081632653061), 0, 0, bm.Size);
    Bm.Save('Imgs\Del1.bmp', System.Drawing.Imaging.ImageFormat.bmp);
    gr.CopyFromScreen(6 + Trunc(xekr * 0.0110294117647059), 32 + Trunc(yekr * 0.0204081632653061), 0, 0, bm.Size);
    Bm.Save('Imgs\Del2.bmp', System.Drawing.Imaging.ImageFormat.bmp);
    Settings := new Button(Trunc(xekr * 0.0110294117647059), Trunc(yekr * 0.0204081632653061), Trunc(xekr * 0.0772058823529412), Trunc(xekr * 0.0772058823529412), 'Imgs\Settings.png', 'Imgs\Del1.bmp', 'Imgs\Del2.bmp');
    DeleteFile('Imgs\Del1.bmp');
    DeleteFile('Imgs\Del2.bmp');
  end;
  SetPenColor(clBlack);
  SetBrushStyle(bsclear);
  SetFontSize(30);
  TextOut(Trunc(xekr * (105 / Menu.Width)) + (Trunc(xekr * (182 / Menu.Width)) - Trunc(xekr * (105 / Menu.Width))) div 2 - TextWidth('Play') div 2, Trunc(yekr * (325 / Menu.Height)) + (Trunc(yekr * (358 / Menu.Height)) - Trunc(yekr * (325 / Menu.Height))) div 2 - TextHeight('Play') div 2, 'Play');
  SetBrushStyle(bssolid);
  Settings.P.Draw(Settings.x, Settings.y, Settings.w, Settings.h);
end;
 
begin
  LockDrawing;
  InitWindow(0, 0, ScreenWidth, ScreenHeight);
  SetWindowCaption('Lost Souls');
  Window.IsFixedSize := true;
  (xekr, yekr) := (Window.Width, Window.Height);
  DrawMenu;
  FpsTimer.Start;
  OnMouseUp := MouseUp;
  while true do
  begin
    for var i: byte := 0 to $FF do 
      KeysState[i] := GetKeyState(i);
    for var i: byte := 0 to $FF do
      if KeysState[i] shr 7 = $01 then case i of
          1: 
            case Scene of
              1:
                begin
                  (xb, yb) := (System.Windows.Forms.Cursor.Position.X, System.Windows.Forms.Cursor.Position.Y);
                  if (xb in [Settings.x..Settings.x + Settings.w]) and (yb in [Settings.y..Settings.y + Settings.h]) then Settings.PressButton;
                end;
            end;
        end;
    try
      Redraw;
    except
    end;
    Inc(Fps);
  end;
end.