Einfärben und Namen abfrtagen klappt;
Es klappt nicht, die Originalfarbige in den Arbeitsspeicher zu schaffen (wie???) und die mit dne Parteifarben einzufärbenden im Vordergrund zu haben.
die mit verschiedenen Farben (nur in den Arbeitsspeicher) zu ladende Datei heisst:
Bitmap2 := TBitmap.Create;
Bitmap2.LoadFromFile('bildbundeslaender.bmp');
paintbox1.Canvas.Draw(0,0,Bitmap2);
sie erhält dann unterschiedliche Farben.
Die Parteien bmp (alle gleiche Position und gleoiche Größe)
wird aufgerufen mit:
Bitmap1 := TBitmap.Create;
Bitmap1.LoadFromFile('laender.bmp');
paintbox2.Canvas.Draw(0,0,Bitmap1);
faerben(sender);
dann klappt das mit dem Mauszeiger drüberfahren nicht mehr
procedure TForm1.paintbox2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
// label1.caption:= '';
if (X <= paintbox2.Width) and (Y <= paintbox2.Height) then
case paintbox2.canvas.pixels[X, Y] of
clcream:label1.Caption:='Nordrhein-Westfalen';
$0005727A:label1.Caption:='Rheinland-Pfalz';
$006F6F11:label1.Caption:='Niedersachsen';
$00C551D9:label1.Caption:='Hessen';
...
end;
end;
Ohne die bitmap1 funktioniert die Darstellung und die Ländernamen.
Außerdem:
ih würde gerne den label1.caption dann jeweils an der Mausspitze haben, um den Ländernamen quasi "auf" dem Land zu haben, wenn ich drüberfahre
Wie das geht, weiss ich nicht
wer hilft??