Changeset 104
- Timestamp:
- Jan 25, 2018, 11:03:52 PM (7 years ago)
- Location:
- trunk
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Components/EOTButton.pas
r59 r104 123 123 if FGraphic <> nil then 124 124 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); 127 129 ImageOp_CBC(Buffer, Template, 0, 0, 133, 149 + 48 * Byte(FDown), 48, 48, 128 130 $000000, $FFFFFF); -
trunk/Inp.pas
r64 r104 36 36 Canvas.Font.Assign(UniFont[ftNormal]); 37 37 Canvas.Brush.Style := bsClear; 38 TitleHeight := ClientHeight;38 TitleHeight := Height; 39 39 InitButtons(); 40 40 Center := true; -
trunk/LocalPlayer/BaseWin.pas
r103 r104 236 236 ModalIndication := true; 237 237 Canvas.Brush.Style := bsClear; 238 InnerWidth := ClientWidth - 2 * SideFrame;239 InnerHeight := ClientHeight - TitleHeight - NarrowFrame;238 InnerWidth := Width - 2 * SideFrame; 239 InnerHeight := Height - TitleHeight - NarrowFrame; 240 240 end; 241 241 -
trunk/LocalPlayer/Draft.pas
r73 r104 88 88 Back := TBitmap.Create; 89 89 Back.PixelFormat := pf24bit; 90 Back.SetSize( ClientWidth, ClientHeight);90 Back.SetSize(Width, Height); 91 91 Back.Canvas.FillRect(0, 0, Back.Width, Back.Height); 92 92 Template := TBitmap.Create; -
trunk/LocalPlayer/NatStat.pas
r73 r104 89 89 Back := TBitmap.Create; 90 90 Back.PixelFormat := pf24bit; 91 Back.SetSize( ClientWidth, ClientHeight);91 Back.SetSize(Width, Height); 92 92 Back.Canvas.FillRect(0, 0, Back.Width, Back.Height); 93 93 Template := TBitmap.Create; -
trunk/Messg.pas
r51 r104 156 156 procedure TBaseMessgDlg.FormCreate(Sender: TObject); 157 157 begin 158 Left := (Screen.Width - ClientWidth) div 2;158 Left := (Screen.Width - Width) div 2; 159 159 Canvas.Font.Assign(UniFont[ftNormal]); 160 160 Canvas.Brush.Style := bsClear; -
trunk/Start.pas
r74 r104 258 258 Location := Point(Screen.Width, Screen.Height); 259 259 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); 261 261 Left := Location.X; 262 262 Top := Location.Y; 263 263 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); 266 266 CombineRgn(r0, r0, r1, RGN_DIFF); 267 267 // DeleteObject(r1);
Note:
See TracChangeset
for help on using the changeset viewer.