ich habe es heute mit diese porcedure versucht:
Delphi-Quellcode:
procedure SetPixel(x,y:Integer; Canvas1:TCanvas);
begin
Canvas1.Pixels[x,y]:=clBlack;
end;
procedure TForm1.ObenObj(F:TFileName);
var
i,x,y:Integer;
l:TStringList;
bild:TCanvas;
begin
ox:=-1; oy:=-1;
Bild:=TCanvas.Create;
Bild.Brush:=TBrush.Create;
if FileExists(f) = True then begin
l:=TStringList.Create;
l.LoadFromFile(f);
for i:=0 to l.Count-1 do begin
x:=StrToInt(GetToken(l.Strings[i],':',1));
y:=StrToInt(GetToken(l.Strings[i],':',2));
SetPixel(x,y,bild);
end; // for
PaintBox1.Canvas.StretchDraw(Rect(2,2,2,2),Bild.Brush.Bitmap);
end // If
else
ShowMessage('Dateinamen gibt es nicht !');
end;
aber leider gibt er einen fehler:
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt CreateObject.exe ist eine
Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Leinwand/Bild erlaubt kein Zeichnen'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------
den kann ich nicht nachvollziehen.
Meinziel ist es später das ich das bild mit der Maus vergrößern und Verkleinern kann.
Die bilder die ich damit vergrößern möchte enhalten nur kleine objekte wie z.b. Dreiece, Häuser, und soweiter. Das was bei delphi nicht dabei ist neben.