mittach,
ich möchte eine prozedur schreiben, die als input zwei word-werte(länder-id) überwiesen bekommt (und ob der farbwert zurrückgesetzt werden soll). ich möchte diese prozedur dazu verwenden, dass der benutzer in meinem programm auf eine karte klickt und somit das angeklickte land (jedes land hat seine eigene farbe) farblich hervorhebt. (zurückgesetzt werden muss, wenn bereits ein land markiert ist)
also ich hab mir jetzt folgendenden code zusammengebastelt und festgestellt, dass da irgendwo n hund drin ist:
Delphi-Quellcode:
procedure Tfrmmain.sign_land(landold, landnew: Word; setback: Boolean);
var
x, y: Word;
row: PRGBQuad;
begin
if setback = true then
begin
for y := 0 to imgmap.Picture.Bitmap.Height - 1 do
begin
row := imgmap.Picture.Bitmap.ScanLine[y];
for x := 0 to imgmap.Picture.Bitmap.Width - 1 do
begin
if (row.rgbBlue = 0) and (row.rgbGreen = 0) and (row.rgbRed = 255) then
begin
row^.rgbBlue := colors[landold - 1].rgbBlue;
row^.rgbGreen := colors[landold - 1].rgbGreen;
row^.rgbRed := colors[landold - 1].rgbRed;
end;
inc(row);
end;
end;
end;
for y := 0 to imgmap.Picture.Bitmap.Height - 1 do
begin
row := imgmap.Picture.Bitmap.ScanLine[y];
for x := 0 to imgmap.Picture.Bitmap.Width - 1 do
begin
if (row.rgbBlue = colors[landnew - 1].rgbBlue) and
(row.rgbGreen = colors[landnew - 1].rgbGreen) and
(row.rgbRed = colors[landnew - 1].rgbRed) then
begin
row.rgbBlue := 255;
row.rgbGreen := 0;
row.rgbRed := 0;
end;
inc(row);
end;
end;
end;
kann mir da jemand helfen?!? - ich vermute dass da n gravierender pointerfehler drin is
ps: die karte schaut danach bunt gestreift aus
