Grafik als screenshot

[bitsetter]

Hallo,

gedacht ist es eigentlich so, dass du die Bundesländer einmalig verschiedenfarbig mit der procedure einfaerben einfärbst und dann das Bild abspeicherst.

Dann kannst du das eingefärbte Bild mit Bitmap1.LoadFromFile laden und im onMouseMove Ivent der Paintbox kannst du dann die Farben des Bildes mit Bitmap1.canvas.pixels[X, Y] auslesen.

Delphi-Quellcode:

//onMouseMove Ivent der Paintbox
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin//Zuornung der Farben entsprechen der procedure einfaerben
  label1.caption:= '';
  case PaintBox1.canvas.pixels[X, Y] of//Farbe unter dem Cursor auslesen
  //case PaintBox2.canvas.pixels[X, Y] of
  //case Bitmap1.canvas.pixels[X, Y] of//oder Farbe vom Bitmap auslesen
    clbackground: label1.caption := 'NRW';
    clskyblue: label1.caption := 'RHPf';
    clblack: label1.caption := 'Nieders';
    clred: label1.caption := 'Hessen ';
    clfuchsia: label1.caption := 'BaWü ';
    clmaroon: label1.caption := 'Bayern ';
    clgreen: label1.caption := 'Saarland ';
    claqua: label1.caption := 'Schl.Holstein';
    clmoneygreen: label1.caption := 'Bremen ';
    clmedgray: label1.caption := 'Mecklenburg Vorpomm ';
    clappworkspace: label1.caption := 'Brandenburg';
    clhotlight: label1.caption := 'SachsenAnhalt';
    clyellow: label1.caption := 'Sachsen ';
    clpurple: label1.caption := 'Thüringen ';
    clolive: label1.caption := 'Berlin ';
    cllime: label1.caption := 'Hamburg ';
  end;
end;