Changeset 468 for trunk/Start.pas
- Timestamp:
- Dec 3, 2023, 11:28:08 AM (6 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Start.pas
r462 r468 6 6 uses 7 7 GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Types, 8 LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, 9 Menus, Registry, DrawDlg, Generics.Collections, Protocol, MiniMap, Brain, 10 Translator; 8 LCLIntf, LCLType, SysUtils, Classes, System.UITypes, 9 Registry, DrawDlg, Generics.Collections, Protocol, MiniMap, Brain, Translator, 10 {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.StdCtrls, Dpi.Menus{$ELSE} 11 Graphics, Controls, Forms, StdCtrls, Menus{$ENDIF}; 11 12 12 13 type … … 255 256 256 257 Canvas.Font.Assign(UniFont[ftNormal]); 257 Canvas.Brush.Style := bsClear;258 Canvas.Brush.Style := TBrushStyle.bsClear; 258 259 259 260 QuitBtn.Hint := Phrases.Lookup('STARTCONTROLS', 0); … … 303 304 304 305 EmptyPicture := TBitmap.Create; 305 EmptyPicture.PixelFormat := pf24bit;306 EmptyPicture.PixelFormat := TPixelFormat.pf24bit; 306 307 EmptyPicture.SetSize(64, 64); 307 308 EmptyPicture.Canvas.FillRect(0, 0, EmptyPicture.Width, EmptyPicture.Height); 308 309 LogoBuffer := TBitmap.Create; 309 LogoBuffer.PixelFormat := pf24bit;310 LogoBuffer.PixelFormat := TPixelFormat.pf24bit; 310 311 LogoBuffer.SetSize(wBuffer, 56); 311 312 LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height); … … 531 532 begin 532 533 Canvas.Font.Assign(UniFont[ftCaption]); 533 Canvas.Font.Style := Canvas.Font.Style + [ fsUnderline];534 Canvas.Font.Style := Canvas.Font.Style + [TFontStyle.fsUnderline]; 534 535 RisedTextOut(Canvas, xAction, Y - 3, Phrases2.Lookup(HeaderItem)); 535 536 Canvas.Font.Assign(UniFont[ftNormal]); … … 566 567 FillRect(Rect(0, 1, ClientWidth, 3)); 567 568 FillRect(Rect(TabOffset + 4 * TabSize + 2, 0, ClientWidth, TabHeight)); 568 Brush.Style := bsClear;569 Brush.Style := TBrushStyle.bsClear; 569 570 end; 570 571 if Page in [pgStartRandom, pgStartMap] then … … 745 746 FillRect(Rect(xBrain[I] - 5, yBrain[I] + 25, xBrain[I] - 2, 746 747 yBrain[I] + 27)); 747 Brush.Style := bsClear;748 Brush.Style := TBrushStyle.bsClear; 748 749 end; 749 750 if PlayerSlots[I].OfferMultiple then … … 911 912 begin 912 913 {$IFDEF UNIX} 913 ShowInTaskBar := stAlways;914 ShowInTaskBar := TShowInTaskbar.stAlways; 914 915 {$ENDIF} 915 916 MainTexture.Age := -1;
Note:
See TracChangeset
for help on using the changeset viewer.