Changeset 104


Ignore:
Timestamp:
Jan 25, 2018, 11:03:52 PM (7 years ago)
Author:
chronos
Message:
Location:
trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/Components/EOTButton.pas

    r59 r104  
    123123    if FGraphic <> nil then
    124124    begin
    125       BitBlt(Buffer.Canvas.Handle, 0, 0, 48, 48, Back.Canvas.Handle, 0,
    126         0, SRCCOPY);
     125      // TODO: For some reason BitBlt is not working with gray background here
     126      //BitBlt(Buffer.Canvas.Handle, 0, 0, 48, 48, Back.Canvas.Handle, 0,
     127      //  0, SRCCOPY);
     128      Buffer.Canvas.Draw(0, 0, Back);
    127129      ImageOp_CBC(Buffer, Template, 0, 0, 133, 149 + 48 * Byte(FDown), 48, 48,
    128130        $000000, $FFFFFF);
  • trunk/Inp.pas

    r64 r104  
    3636  Canvas.Font.Assign(UniFont[ftNormal]);
    3737  Canvas.Brush.Style := bsClear;
    38   TitleHeight := ClientHeight;
     38  TitleHeight := Height;
    3939  InitButtons();
    4040  Center := true;
  • trunk/LocalPlayer/BaseWin.pas

    r103 r104  
    236236  ModalIndication := true;
    237237  Canvas.Brush.Style := bsClear;
    238   InnerWidth := ClientWidth - 2 * SideFrame;
    239   InnerHeight := ClientHeight - TitleHeight - NarrowFrame;
     238  InnerWidth := Width - 2 * SideFrame;
     239  InnerHeight := Height - TitleHeight - NarrowFrame;
    240240end;
    241241
  • trunk/LocalPlayer/Draft.pas

    r73 r104  
    8888  Back := TBitmap.Create;
    8989  Back.PixelFormat := pf24bit;
    90   Back.SetSize(ClientWidth, ClientHeight);
     90  Back.SetSize(Width, Height);
    9191  Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
    9292  Template := TBitmap.Create;
  • trunk/LocalPlayer/NatStat.pas

    r73 r104  
    8989  Back := TBitmap.Create;
    9090  Back.PixelFormat := pf24bit;
    91   Back.SetSize(ClientWidth, ClientHeight);
     91  Back.SetSize(Width, Height);
    9292  Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
    9393  Template := TBitmap.Create;
  • trunk/Messg.pas

    r51 r104  
    156156procedure TBaseMessgDlg.FormCreate(Sender: TObject);
    157157begin
    158   Left := (Screen.Width - ClientWidth) div 2;
     158  Left := (Screen.Width - Width) div 2;
    159159  Canvas.Font.Assign(UniFont[ftNormal]);
    160160  Canvas.Brush.Style := bsClear;
  • trunk/Start.pas

    r74 r104  
    258258    Location := Point(Screen.Width, Screen.Height);
    259259    Location := Point((Screen.width - 800) * 3 div 8,
    260       Screen.height - ClientHeight - (Screen.height - 600) div 3);
     260      Screen.height - Height - (Screen.height - 600) div 3);
    261261    Left := Location.X;
    262262    Top := Location.Y;
    263263
    264     r0 := CreateRectRgn(0, 0, ClientWidth, ClientHeight);
    265     r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, ClientWidth, TabHeight);
     264    r0 := CreateRectRgn(0, 0, Width, Height);
     265    r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);
    266266    CombineRgn(r0, r0, r1, RGN_DIFF);
    267267    // DeleteObject(r1);
Note: See TracChangeset for help on using the changeset viewer.