Changeset 15 for trunk/LocalPlayer


Ignore:
Timestamp:
Jan 7, 2017, 10:16:37 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Top left position of main window.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/Term.pas

    r12 r15  
    42054205      offscreen.Canvas.Font.Assign(UniFont[ftSmall]);
    42064206      rec := Rect(0, 0, MapWidth, MapHeight);
    4207       { TODO ScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2),
    4208         (ywd - yw) * yyt, rec, rec, 0, nil);}
     4207      ScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2),
     4208        (ywd - yw) * yyt, rec, rec, 0, nil);
    42094209      for DoInvalidate := false to FastScrolling do
    42104210      begin
     
    42124212        begin
    42134213          rec.Bottom := MapHeight - overlap;
    4214           { TODO ScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec,
    4215             rec, 0, nil);}
     4214          ScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec,
     4215            rec, 0, nil);
    42164216          ProcessOptions := prInvalidate;
    42174217        end
     
    77897789    procedure TMainScreen.mLogClick(Sender: TObject);
    77907790    begin
    7791       LogDlg.Show
     7791      LogDlg.Show;
    77927792    end;
    77937793
    77947794    procedure TMainScreen.FormShow(Sender: TObject);
    77957795    begin
    7796       Timer1.Enabled := true
     7796      Timer1.Enabled := true;
     7797      Left := 0;
     7798      Top := 0;
    77977799    end;
    77987800
    77997801    procedure TMainScreen.FormClose(Sender: TObject; var Action: TCloseAction);
    78007802    begin
    7801       Timer1.Enabled := false
     7803      Timer1.Enabled := false;
    78027804    end;
    78037805
    78047806    procedure TMainScreen.Radio(Sender: TObject);
    78057807    begin
    7806       TMenuItem(Sender).Checked := true
     7808      TMenuItem(Sender).Checked := true;
    78077809    end;
    78087810
Note: See TracChangeset for help on using the changeset viewer.