Changeset 456 for trunk/LocalPlayer
- Timestamp:
- May 30, 2023, 11:31:10 AM (18 months ago)
- Location:
- trunk/LocalPlayer
- Files:
-
- 13 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/CityScreen.pas
r447 r456 8 8 Protocol, ClientTools, Term, ScreenTools, IsoEngine, BaseWin, 9 9 LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, 10 ButtonA, ButtonC, Area, GraphType, UTexture;10 ButtonA, ButtonC, Area, GraphType, Texture; 11 11 12 12 const -
trunk/LocalPlayer/Enhance.pas
r447 r456 50 50 51 51 uses 52 Help, UKeyBindings;52 Help, KeyBindings; 53 53 54 54 {$R *.lfm} -
trunk/LocalPlayer/Help.pas
r447 r456 128 128 129 129 uses 130 Directories, ClientTools, Term, Tribes, Inp, Messg, UPixelPointer, Global,131 UKeyBindings;130 Directories, ClientTools, Term, Tribes, Inp, Messg, PixelPointer, Global, 131 KeyBindings; 132 132 133 133 {$R *.lfm} … … 467 467 xSrc := iix mod 7 * xSizeBig; 468 468 ySrc := (iix div 7 + 1) * ySizeBig; 469 PaintPtr := PixelPointer(OffScreen, ScaleToNative(x0), ScaleToNative(y0));470 CoalPtr := PixelPointer(Templates.Data, ScaleToNative(xCoal), ScaleToNative(yCoal));469 PaintPtr := TPixelPointer.Create(OffScreen, ScaleToNative(x0), ScaleToNative(y0)); 470 CoalPtr := TPixelPointer.Create(Templates.Data, ScaleToNative(xCoal), ScaleToNative(yCoal)); 471 471 for dy := -1 to 1 do 472 ImpPtr[dy] := PixelPointer(BigImp, ScaleToNative(xSrc), ScaleToNative(ySrc));472 ImpPtr[dy] := TPixelPointer.Create(BigImp, ScaleToNative(xSrc), ScaleToNative(ySrc)); 473 473 for Y := 0 to ScaleToNative(ySizeBig) * 2 - 1 do begin 474 474 if ((ScaleToNative(y0) + Y) >= 0) and ((ScaleToNative(y0) + Y) < ScaleToNative(InnerHeight)) then begin -
trunk/LocalPlayer/IsoEngine.pas
r447 r456 6 6 uses 7 7 Protocol, ClientTools, ScreenTools, Tribes, LCLIntf, LCLType, SysUtils, 8 Classes, Graphics, UPixelPointer, UGraphicSet;8 Classes, Graphics, PixelPointer, GraphicSet; 9 9 10 10 const … … 255 255 for ySrc := 0 to TerrainIconLines - 1 do begin 256 256 for I := 0 to yyt * 3 - 1 do 257 MaskLine[I] := PixelPointer(Mask24, ScaleToNative(0),257 MaskLine[I] := TPixelPointer.Create(Mask24, ScaleToNative(0), 258 258 ScaleToNative(1 + ySrc * (yyt * 3 + 1) + I)); 259 259 for xSrc := 0 to TerrainIconCols - 1 do begin … … 1424 1424 begin 1425 1425 FOutput.BeginUpdate; 1426 Line := PixelPointer(FOutput, ScaleToNative(x0), ScaleToNative(y0));1426 Line := TPixelPointer.Create(FOutput, ScaleToNative(x0), ScaleToNative(y0)); 1427 1427 for Y := 0 to ScaleToNative(Height) - 1 do begin 1428 1428 y_n := (ScaleFromNative(Y) + y0 - ym) / yyt; -
trunk/LocalPlayer/KeyBindings.pas
r455 r456 1 unit UKeyBindings;1 unit KeyBindings; 2 2 3 3 interface -
trunk/LocalPlayer/MessgEx.lfm
r426 r456 12 12 DesignTimePPI = 144 13 13 Font.Color = clWindowText 14 Font.Height = - 1314 Font.Height = -20 15 15 Font.Name = 'MS Sans Serif' 16 16 FormStyle = fsStayOnTop … … 20 20 OnPaint = FormPaint 21 21 OnShow = FormShow 22 LCLVersion = '2. 0.12.0'22 LCLVersion = '2.2.2.0' 23 23 Scaled = False 24 24 object Button1: TButtonA … … 61 61 object EInput: TEdit 62 62 Left = 125 63 Height = 2 663 Height = 27 64 64 Top = 64 65 65 Width = 168 -
trunk/LocalPlayer/MessgEx.pas
r447 r456 63 63 64 64 uses 65 ClientTools, BaseWin, Term, Help, UnitStat, Tribes, UPixelPointer,65 ClientTools, BaseWin, Term, Help, UnitStat, Tribes, PixelPointer, 66 66 Diagram, Sound; 67 67 … … 211 211 else 212 212 Result := inherited; 213 Gtk2Fix;213 //Gtk2Fix; 214 214 end; 215 215 … … 244 244 Screwed := Default(TScrewed); 245 245 BigImp.BeginUpdate; 246 SrcPtr := PixelPointer(BigImp, ScaleToNative(xIcon), ScaleToNative(yIcon));246 SrcPtr := TPixelPointer.Create(BigImp, ScaleToNative(xIcon), ScaleToNative(yIcon)); 247 247 for iy := 0 to ScaleToNative(Height) - 1 do begin 248 248 for ix := 0 to ScaleToNative(Width) - 1 do begin -
trunk/LocalPlayer/Select.lfm
r232 r456 1 1 object ListDlg: TListDlg 2 2 Left = 290 3 Height = 262 3 4 Top = 145 5 Width = 381 4 6 BorderIcons = [] 5 7 BorderStyle = bsNone … … 7 9 ClientWidth = 381 8 10 Color = clBtnFace 9 Font.Charset = DEFAULT_CHARSET11 DesignTimePPI = 144 10 12 Font.Color = clWindowText 11 Font.Height = - 1313 Font.Height = -20 12 14 Font.Name = 'MS Sans Serif' 13 Font.Style = []14 15 FormStyle = fsStayOnTop 15 16 OnCloseQuery = FormCloseQuery … … 17 18 OnDestroy = FormDestroy 18 19 OnKeyDown = FormKeyDown 19 OnMouseWheel = FormMouseWheel20 20 OnMouseDown = PaintBox1MouseDown 21 21 OnMouseMove = PaintBox1MouseMove 22 OnMouseWheel = FormMouseWheel 22 23 OnPaint = FormPaint 23 24 OnShow = FormShow 24 PixelsPerInch = 9625 LCLVersion = '2.2.2.0' 25 26 Scaled = False 26 27 object CloseBtn: TButtonB 27 28 Left = 343 29 Height = 25 28 30 Top = 6 29 31 Width = 25 30 Height = 2531 32 Down = False 32 33 Permanent = False … … 37 38 Tag = 2 38 39 Left = 344 40 Height = 25 39 41 Top = 224 40 42 Width = 25 41 Height = 2542 43 Down = False 43 44 Permanent = True … … 48 49 Tag = 1 49 50 Left = 312 51 Height = 25 50 52 Top = 224 51 53 Width = 25 52 Height = 2553 54 Down = False 54 55 Permanent = True … … 58 59 object Layer0Btn: TButtonB 59 60 Left = 280 61 Height = 25 60 62 Top = 224 61 63 Width = 25 62 Height = 2563 64 Down = False 64 65 Permanent = True … … 68 69 object ToggleBtn: TButtonB 69 70 Left = 13 71 Height = 25 70 72 Top = 6 71 73 Width = 25 72 Height = 2573 74 Down = False 74 75 Permanent = False -
trunk/LocalPlayer/Select.pas
r447 r456 850 850 procedure TListDlg.FormClose(Sender: TObject; var CloseAction: TCloseAction); 851 851 begin 852 Gtk2Fix;852 //Gtk2Fix; 853 853 end; 854 854 -
trunk/LocalPlayer/Term.lfm
r427 r456 12 12 Constraints.MinHeight = 480 13 13 Constraints.MinWidth = 800 14 DesignTimePPI = 1 2014 DesignTimePPI = 144 15 15 Font.Color = clWindowText 16 Font.Height = - 1316 Font.Height = -20 17 17 Font.Name = 'MS Sans Serif' 18 18 KeyPreview = True … … 31 31 OnShow = FormShow 32 32 Position = poDefault 33 LCLVersion = '2. 0.12.0'33 LCLVersion = '2.2.0.4' 34 34 Scaled = False 35 35 WindowState = wsMaximized -
trunk/LocalPlayer/Term.pas
r447 r456 14 14 LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, DrawDlg, Types, 15 15 Forms, Menus, ExtCtrls, dateutils, Platform, ButtonB, ButtonC, EOTButton, Area, 16 UGraphicSet, UMiniMap, IsoEngine;16 GraphicSet, MiniMap, IsoEngine; 17 17 18 18 const … … 591 591 uses 592 592 Directories, CityScreen, Draft, MessgEx, Select, CityType, Help, 593 UnitStat, Log, Diagram, NatStat, Wonders, Enhance, Nego, UPixelPointer, Sound,594 Battle, Rates, TechTree, Registry, Global, UKeyBindings, CmdList;593 UnitStat, Log, Diagram, NatStat, Wonders, Enhance, Nego, PixelPointer, Sound, 594 Battle, Rates, TechTree, Registry, Global, KeyBindings, CmdList; 595 595 596 596 {$R *.lfm} … … 680 680 for ix := 0 to BigImp.Width div xSizeBig - 1 do 681 681 for iy := 0 to BigImp.Height div ySizeBig - 1 do begin 682 PixelPtr := PixelPointer(BigImp, ScaleToNative(ix * xSizeBig),682 PixelPtr := TPixelPointer.Create(BigImp, ScaleToNative(ix * xSizeBig), 683 683 ScaleToNative(Cut + iy * ySizeBig)); 684 684 for Y := 0 to ScaleToNative(ySizeBig - 2 * Cut) - 1 do begin … … 718 718 SmallImp.SetSize(nx, ny); 719 719 SmallImp.BeginUpdate; 720 PixelPtr := PixelPointer(SmallImp);720 PixelPtr := TPixelPointer.Create(SmallImp); 721 721 for Y := 0 to ScaleToNative(ny) - 1 do begin 722 722 for X := 0 to ScaleToNative(nx) - 1 do begin … … 6877 6877 begin 6878 6878 BrushType := trix[I]; 6879 PanelPaint 6879 PanelPaint; 6880 6880 end 6881 6881 else if (TroopLoc >= 0) then -
trunk/LocalPlayer/Tribes.pas
r447 r456 6 6 uses 7 7 Protocol, ScreenTools, LazFileUtils, Classes, Graphics, SysUtils, Global, 8 UGraphicSet;8 GraphicSet; 9 9 10 10 type -
trunk/LocalPlayer/UnitStat.pas
r447 r456 52 52 53 53 uses 54 Tribes, Help, Directories, UTexture;54 Tribes, Help, Directories, Texture; 55 55 56 56 {$R *.lfm} -
trunk/LocalPlayer/Wonders.pas
r447 r456 38 38 39 39 uses 40 Term, ClientTools, Help, Tribes, UPixelPointer;40 Term, ClientTools, Help, Tribes, PixelPointer; 41 41 42 42 {$R *.lfm} … … 110 110 Height := ScaleToNative(128); 111 111 Offscreen.BeginUpdate; 112 Line[0] := PixelPointer(Offscreen, ScaleToNative(Center.X), ScaleToNative(Center.Y));113 Line[1] := PixelPointer(Offscreen, ScaleToNative(Center.X), ScaleToNative(Center.Y) - 1);114 Line[2] := PixelPointer(Offscreen, ScaleToNative(Center.X) - 1, ScaleToNative(Center.Y));115 Line[3] := PixelPointer(Offscreen, ScaleToNative(Center.X) - 1, ScaleToNative(Center.Y) - 1);112 Line[0] := TPixelPointer.Create(Offscreen, ScaleToNative(Center.X), ScaleToNative(Center.Y)); 113 Line[1] := TPixelPointer.Create(Offscreen, ScaleToNative(Center.X), ScaleToNative(Center.Y) - 1); 114 Line[2] := TPixelPointer.Create(Offscreen, ScaleToNative(Center.X) - 1, ScaleToNative(Center.Y)); 115 Line[3] := TPixelPointer.Create(Offscreen, ScaleToNative(Center.X) - 1, ScaleToNative(Center.Y) - 1); 116 116 for Y := 0 to Height - 1 do begin 117 117 for X := 0 to Width - 1 do begin … … 160 160 x0Src := (I mod 7) * xSizeBig; 161 161 y0Src := (I div 7 + SystemIconLines) * ySizeBig; 162 Src := PixelPointer(BigImp, ScaleToNative(x0Src), ScaleToNative(y0Src));163 Dst := PixelPointer(Offscreen, ScaleToNative(x0Dst), ScaleToNative(y0Dst));162 Src := TPixelPointer.Create(BigImp, ScaleToNative(x0Src), ScaleToNative(y0Src)); 163 Dst := TPixelPointer.Create(Offscreen, ScaleToNative(x0Dst), ScaleToNative(y0Dst)); 164 164 for Y := 0 to ScaleToNative(ySizeBig) - 1 do begin 165 165 for X := 0 to ScaleToNative(xSizeBig) - 1 do begin
Note:
See TracChangeset
for help on using the changeset viewer.