Hallo,
ich habe lange gesucht und leider nichts gefunden was mir wirklich weiter geholfen hätte
Ich möchte gerne eigene Delphi Zeichen objekte erstellen wie z.b. ein Kreis oder ein Stern.
Dazu habe ich mir ein kleines Paint geschrieben.
Das speichern geht schon nur das vergrößern der objekte geht leider nicht.
Das vergrößern wollte ich so machen
(hier etwas code denn ich heute geschrieben habe)
Delphi-Quellcode:
procedure FillPixel(sx,sy,zx,zy:Integer; PaintBox:TPaintBox);
var
x,y:Integer;
begin
for y:=sy to zy do begin
for x:=sx to zx do begin
PaintBox.Canvas.Pixels[x,y]:=clBlack;
end;
end;
end;
procedure TForm1.ObenObj(F:TFileName);
var
i,x,y,fx,fy,ox,oy:Integer;
l:TStringList;
begin
ox:=-1; oy:=-1;
if FileExists(f) = True then begin
l:=TStringList.Create;
l.LoadFromFile(f);
fx:=2;
fy:=2;
for i:=0 to l.Count-1 do begin
x:=StrToInt(GetToken(l.Strings[i],':',1));
y:=StrToInt(GetToken(l.Strings[i],':',2));
// PaintBox2.Canvas.Pixels[x,y]:=clBlack;
if (ox > -1) and (oy > -1) then
FillPixel(ox,oy,x *fx,y *fy,PaintBox2);
ox:=x *fx;
oy:=y *fy;
end;
end
else
ShowMessage('Dateinamen gibt es nicht !');
end;
doch leider geht FillPixel nicht so wie ich es mir vorgestellt habe. hier ein Bild ich würde gerne nur die umrahmung und nicht das Innere, das lieg an in der FillPixl funktion und zwar bei den For y schleifen.