paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: Fix compilation in non-Windows OS. Clean-up

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9708 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-03-27 11:11:33 +00:00
parent 3c65849b4b
commit c5dd3f0862
2 changed files with 2 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/lazmapviewer/source/mvde_intfgraphics.pas
View File

@ -54,7 +54,6 @@ type
procedure AddAlphaToColors;
protected
procedure DrawBitmapOT(X, Y: Integer; ABitmap: TCustomBitmap; AOpaqueColor, ATransparentColor: TColor);
// procedure DrawTextImage(X, Y: Integer; AMaskImage: TFPCustomImage);
function GetBrushColor: TColor; override;
function GetBrushStyle: TBrushStyle; override;
function GetFontColor: TColor; override;
@ -413,29 +412,6 @@ begin
img.Free;
end;
end;
(*
{ The provided image serves as an alpha mask: black is transparent, white is
opaque.}
procedure TMvIntfGraphicsDrawingEngine.DrawTextImage(X, Y: Integer;
AMaskImage: TFPCustomImage);
var
ix, iy: Integer;
maskclr: TFPColor;
bufClr: TFPColor;
fontClr: TFPColor;
begin
fontClr := TColorToFPColor(FontColor);
for iy := 0 to AMaskImage.Height-1 do
for ix := 0 to AMaskImage.Width-1 do
begin
bufClr := FBuffer.Colors[X + ix, Y + iy];
maskClr.Red := fontClr.Red;
maskClr.Green := fontClr.Green;
maskClr.Blue := fontClr.Blue;
maskClr.Alpha := AMaskImage.Colors[ix, iy].Red; // since the text is white, Red is sufficient
FBuffer.Colors[X + iX, Y + iy] := AlphaBlend(bufClr, maskClr);
end;
end; *)
procedure TMvIntfGraphicsDrawingEngine.DrawCacheItem(X, Y: Integer;
AImg: TPictureCacheItem; ADrawMode: TItemDrawMode; AOpacity: Single);

2
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -1019,6 +1019,8 @@ uses
mvJobQueue,
{$IFDEF MSWINDOWS}
mvDLEWin,
{$ELSE}
mvDLEFPC,
{$ENDIF}
mvDE_IntfGraphics;