Changeset 117
- Timestamp:
- Feb 3, 2018, 3:20:56 PM (7 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Integrated.lpr
r111 r117 44 44 {$R cevo.res} 45 45 46 {$ IFDEF DEBUG}46 {$if declared(UseHeapTrace)} 47 47 const 48 48 HeapTraceLog = 'heaptrclog.trc'; … … 52 52 53 53 begin 54 {$ IFDEF DEBUG}54 {$if declared(UseHeapTrace)} 55 55 // Heap trace 56 56 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog); -
trunk/Protocol.pas
r60 r117 1752 1752 procedure InitUnit; 1753 1753 begin 1754 { TODO 1755 Assert(sizeof(TPlayerContext) = 2048); 1756 Assert(sizeof(TModel) - 2 * sizeof(LongInt) - 4 * sizeof(word) 1754 Assert(SizeOf(TPlayerContext) = 1936 + 28 * SizeOf(Pointer)); 1755 Assert(SizeOf(TModel) - 2 * SizeOf(LongInt) - 4 * SizeOf(Word) 1757 1756 = sIntSetDevModel and $F * 4); 1758 }1759 1757 end; 1760 1758 -
trunk/Start.lfm
r112 r117 10 10 ClientWidth = 556 11 11 Color = clBtnFace 12 DesignTimePPI = 1 2512 DesignTimePPI = 144 13 13 Font.Color = clWindowText 14 14 Font.Height = -13 … … 199 199 TabOrder = 0 200 200 TabStop = False 201 TopIndex = -1202 201 Visible = False 203 202 end -
trunk/Start.pas
r112 r117 1019 1019 EnemyColor := GrExt[HGrSystem].Data.Canvas.Pixels[96, 67]; 1020 1020 Mini.PixelFormat := pf24bit; 1021 Mini.width := MiniWidth * 2; 1022 Mini.height := MiniHeight; 1021 Mini.SetSize(MiniWidth * 2, MiniHeight); 1023 1022 if MiniMode = mmPicture then 1024 1023 begin … … 1060 1059 end; 1061 1060 end; 1061 MiniPixel.NextLine; 1062 PrevMiniPixel.NextLine; 1062 1063 end; 1063 1064 Mini.EndUpdate;
Note:
See TracChangeset
for help on using the changeset viewer.