Changeset 35
- Timestamp:
- Jan 9, 2017, 12:56:03 AM (8 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/IsoEngine.pas
r34 r35 140 140 LandPatch.PixelFormat := pf24bit; 141 141 LandPatch.Canvas.Brush.Color := 0; 142 LandPatch. Width := xxt * 18;143 LandPatch. Height := yyt * 9;142 LandPatch.SetSize(xxt * 18, yyt * 9); 143 LandPatch.Canvas.FillRect(0, 0, LandPatch.Width, LandPatch.Height); 144 144 if OceanPatch <> nil then 145 145 OceanPatch.Free; … … 147 147 OceanPatch.PixelFormat := pf24bit; 148 148 OceanPatch.Canvas.Brush.Color := 0; 149 OceanPatch. Width := xxt * 8;150 OceanPatch. Height := yyt * 4;149 OceanPatch.SetSize(xxt * 8, yyt * 4); 150 OceanPatch.Canvas.FillRect(0, 0, OceanPatch.Width, OceanPatch.Height); 151 151 LandMore := TBitmap.Create; 152 152 LandMore.PixelFormat := pf24bit; 153 153 LandMore.Canvas.Brush.Color := 0; 154 LandMore. Width := xxt * 18;155 LandMore. Height := yyt * 9;154 LandMore.SetSize(xxt * 18, yyt * 9); 155 LandMore.Canvas.FillRect(0, 0, LandMore.Width, LandMore.Height); 156 156 OceanMore := TBitmap.Create; 157 157 OceanMore.PixelFormat := pf24bit; 158 158 OceanMore.Canvas.Brush.Color := 0; 159 OceanMore. Width := xxt * 8;160 OceanMore. Height := yyt * 4;159 OceanMore.SetSize(xxt * 8, yyt * 4); 160 OceanMore.Canvas.FillRect(0, 0, OceanMore.Width, OceanMore.Height); 161 161 DitherMask := TBitmap.Create; 162 162 DitherMask.PixelFormat := pf24bit; 163 DitherMask. Width := xxt * 2;164 DitherMask. Height := yyt * 2;163 DitherMask.SetSize(xxt * 2, yyt * 2); 164 DitherMask.Canvas.FillRect(0, 0, DitherMask.Width, DitherMask.Height); 165 165 BitBlt(DitherMask.Canvas.Handle, 0, 0, xxt * 2, yyt * 2, 166 166 GrExt[HGrTerrain].Mask.Canvas.Handle, 1 + 7 * (xxt * 2 + 1), … … 326 326 BitBlt(LandPatch.Canvas.Handle, (x + 2) * (xxt * 2), yyt, xxt * 2, yyt, 327 327 DitherMask.Canvas.Handle, 0, 0, SRCAND); 328 329 328 BitBlt(DitherMask.Canvas.Handle, 0, 0, xxt * 2, yyt, DitherMask.Canvas.Handle, 330 329 0, 0, DSTINVERT); … … 337 336 OceanMore.Free; 338 337 DitherMask.Free; 339 // 338 //LandPatch.Savetofile('landpatch.bmp'); 340 339 341 340 // reduce size of terrain icons -
trunk/ScreenTools.pas
r29 r35 549 549 GrExt[nGrExt].Mask := TBitmap.create; 550 550 GrExt[nGrExt].Mask.PixelFormat := pf24bit; 551 GrExt[nGrExt].Mask.Width := Source.Width; 552 GrExt[nGrExt].Mask.Height := Source.Height; 551 GrExt[nGrExt].Mask.SetSize(Source.Width, Source.Height); 553 552 554 553 GrExt[nGrExt].Data.BeginUpdate; … … 583 582 FillChar(GrExt[nGrExt].pixUsed, GrExt[nGrExt].Data.Height div 49 * 10, 0); 584 583 inc(nGrExt); 585 end 584 end; 586 585 end; 587 586
Note:
See TracChangeset
for help on using the changeset viewer.