[gelöst] MapView und Images (Transparent)

[juelin]

Hallo,
ich weis gerade nicht weiter.
Ich habe ein Programm, indem ich eine Karte mit MapView anzeige
und als jpg-File speichere.
Das funktioniert auch und das File Map.jpg wird richtig erstellt. (siehe Anhang bild1)
Dazu habe ich noch zwei Images im MapView Image1 und Image2. (siehe Anhang bild3)
Nun lade ich das File iMap.jpg n Image1. Den Timer1 starte ich in Form7.FormActivate
und der Timer1 steht auf 1000ms.

Code: Alles auswählen

procedure TForm7.FormActivate(Sender: TObject);
begin
........
    knopf:=1;
    MapView1.Visible:=True;
    MapView1.MapProvider:='OpenStreetMap Standard';
    MapView1.Active:=True;
    MapView1.Zoom:=zoom;  // zoom = 13
    Mapview1.CenterOnArea(area);
    Timer1.Enabled:=True;
end;
          
procedure TForm7.Timer1Timer(Sender: TObject);
  var h1: integer;
begin
  Timer1.Enabled:=False;
  if FileExists(ExtractFilePath(ParamStr(0))+'Map.jpg') then
  begin
    DeleteFile(ExtractFilePath(ParamStr(0))+'Map.jpg');
  end;
  MapView1.SaveToFile(TJpegImage, ExtractFilePath(ParamStr(0))+'Map.jpg');
  Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'Map.jpg');
  MapView1.Visible:=False;
  for h1:=1 to locatorindex do
  begin
    Kartenpunkt.Lat:=locatortab[h1].lat;
    Kartenpunkt.Lon:=locatortab[h1].lon;
    Punkt:=MapView1.LonLatToScreen(Kartenpunkt);
    Image2.Canvas.Pen.Color:=clRed;
    Image2.Canvas.Brush.Color:=clRed;
    Image2.Canvas.Ellipse(Punkt.X-10,Punkt.Y-10,Punkt.X+10,Punkt.Y+10);
    Image2.Canvas.Pen.Color:=clBlack;
  end;
end;

// Die Umschaltung von StringGrid aus Image erfolgt mit Button1.
procedure TForm7.Button1Click(Sender: TObject);
begin
  Label1.Caption:=UTF8Encode(#169)+'LINSOFT                                                 Q S O                                         Datum: '+FormatDateTime('DD.MM.YYYY',now);
  if (mtasts = 1) then
  begin
    Label2.Caption:='';
    if knopf = 1 then
    begin
      StringGrid1.Visible:=False;
      MapView1.Visible:=True;
      knopf:=2;
      Button1.Caption:='Anzeigen Daten';
    end else begin
      StringGrid1.Visible:=True;
      MapView1.Visible:=False;
      knopf:=1;
      Button1.Caption:='Anzeigen Karte';
    end;
  end;
end;

In Image2 zeichne ich drei Kreise. Image2 habe ich in den Eigenschaften auf Transparent gestellt.
Image2 liegt über dem Image1.
Leider wirkt sich das Transparent nicht aus. (siehe Anhang bild2)
Was mache ich falsch?
Hat Jemand eine Idee?
Danke und Gruß
Jürgen

[theo]

Warum malst du die Ellipsen nicht direkt auf das Kartenbild (Canvas)?
Das Bild würde ich ausserdem in einen Stream speichern. Das muss ja nicht auf die "Platte".

[wp_xyz]

Ich habe das Gefühl, du willst hier das Rad neu erfinden, also etwas, was im MapViewer schon eingebaut ist. Schau dir doch einfach mal die Beschreibung im wiki an, da steht "alles" (ok... das meiste...): https://wiki.lazarus.freepascal.org/LazMapViewer

Hier Schritt für Schritt, wie man Markierungspunkte in die Map einfügt und ggfs selbst zeichnet:

• MapView im Designmode selektieren
• Den Button '...' neben der Eigenschaft "Layers" klicken, um den Layer-Editor zu öffnen. "Add" klicken, um eine neue Ebene hinzuzufügen
• Im Objekt-Baum über dem Objektinspektor, auf "PointsOfInterest" rechts-klicken, nochmals "Add" um einen Markierungspunkt hinzuzufügen.
• Den neuen Markierungspunkt im Objektbaum anwählen, und im Objektinspektor die Koordinaten des Punktes eintragen (Latitude, Longitude), sowie die Beschriftung (Caption). Wenn du im Formular eine ImageListe hast und diese mit der Eigenschaft POIImages der MapView verbunden hast, kannst du auch einen ImageIndex angegen für das Icon, das an diesem Punkt angezeigt werden soll. Roland hat für den Ordner "marker-images" eine Vielzahl von schönen Bildern zur Verfügung gestellt.
• Alternativ zu einem vorgefertigten Icon, kann du auch die in deinem Post erwähnte Ellipse zeichnen. Nimm dafür das Event OnDrawPoint des Markierungspunktes. Zeichne nicht auf dem Canvas, sondern nimm den in der Parameterliste bereitgestellen Drawer, damit das alles auch dann funktioniert, falls du mit BGRABitmap zeichnen möchtest. Siehe dazu das beigefügte Mini-Projekt mit zwei Markierungspunkten.

[juelin]

danke an Alle.
Habe inzwischen noch etwas selber experimentiert
und mein Problem gelöst.
Also nochmals Danke und Gruß
Jürgen