Changeset 111 for trunk/Game.pas
- Timestamp:
- Dec 10, 2024, 11:18:50 AM (12 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Game.pas
r108 r111 125 125 DirectionText: array[TMoveDirection] of string = ('None', 'Left', 'Up', 'Right', 'Down'); 126 126 InitialTileCount = 2; 127 BoxFontSize = 20; 127 128 128 129 resourcestring … … 411 412 MetaCanvas.FillRect(0, 0, MetaCanvas.Width, MetaCanvas.Height); 412 413 413 TopBarHeight := ScaleY( 55, 96);414 LeftBarWidth := ScaleY( 90, 96);414 TopBarHeight := ScaleY(65, 96); 415 LeftBarWidth := ScaleY(100, 96); 415 416 if CanvasSize.X - LeftBarWidth < Canvas.Height then begin 416 417 ControlsRect := Rect(0, 0, CanvasSize.X, TopBarHeight); … … 641 642 with Canvas do begin 642 643 Font.Color := Core.Core.ThemeManager1.Theme.ColorControlText; 643 Font.Height := Trunc( 24);644 Font.Height := Trunc(ScaleX(BoxFontSize, 96)); 644 645 645 646 BoxSize := Size(TextWidth(Title), TextHeight(Title) + TextHeight(Value)); … … 656 657 Brush.Style := bsClear; 657 658 Font.Color := Core.Core.ThemeManager1.Theme.ColorControlText; 658 Font.Height := Trunc( 24);659 Font.Height := Trunc(ScaleX(BoxFontSize, 96)); 659 660 TextOut(Pos.X + (BoxSize.Width - TextWidth(Value)) div 2, 660 661 Pos.Y + TextHeight(Title), Value);
Note:
See TracChangeset
for help on using the changeset viewer.