Mit Bildern arbeiten

[billi]

Hallo,
ich möchte eigendlich nur ein Bild verkleinert anzeigen, komme aber mit der Hilfe von Delphi nicht weiter. Diese Frage umfasst ja eigendlich Grundlagenwissen... darum möchte ich auch nicht umbedingt eine reine Lösung, eigendlich wär es besser, wenn mir jemand ein Tutorial nennen könnte, denn so kann ich das dann auch lernen und stückel nicht nur Code zusammen, von dem ich keine Ahnung habe.
Kann mir jemand dabei Helfen?
gruß
billi

[Keldorn]

Hallo wenn es dir nur ums anzeigen geht, könntest du eine image-komponente verwenden. gugg dir dazu insbesondere die eigenschaften stretch und proportional der Komponente an, die helfen weiter. wenn du selber zeichnen möchstest, ist Tcanvas.stretchdraw dein Freund.

mfg Frank

[billi]

Hallo.
ich hab mal geschaut: Das ich mit der TImage Komponente arbeiten muss ist mir auch klar, nur hat die Eigenschaft stretsh das Prob, das das Bild nicht proportional an die Image Komponente angepasst wird. Und eine Eigenschaft proportional hab ich leider nicht gefunden...
gruß
MArkus

[Tonic1024]

Moin...

Hast du schon mal drüber nachgedacht, sofern es wirklich nicht geht, die Proportionalität "von Hand" zu berechnen?
ist nicht tragisch... Du musst dir das Seitenverhältnis ausrechnen und dieser Wert muss beibehalten werden. Dann musst du noch Wissen ob du ein hochformat oder quervormat hast und fertig...

bis denne...

[billi]

ita est...
Da bin ich auch schon dabei, nur wär so ne Funktion halt praktisch gewesen...

[billi]

Hallo,
so hab das mit der Proportionalität mal von Hand gemacht, nur ist die Qualität der Bilder unter aller s**!!!

Hier der Code. Vieleicht kann mir jemand sagen, wie die Bilder qualitativ besser werden...
gruß,
billi

Delphi-Quellcode:

var
RBit, Bit: TBitmap;
JPG: TJPEGImage;
NewWidth, NewHeight: integer;
w, h, hdw, wdh: Real;
begin
Bit:=TBitmap.Create;
RBit:=TBitmap.Create;
JPG:=TJPEGImage.Create;
JPG.LoadFromFile(pfad.text+Cerweitert_namenliste.text+'.jpg');
w:= JPG.Width;
h:= JPG.Height;
wdh:= w/h;
hdw:= h/w;
if w > h then
begin
newwidth:= 193;
newheight:= trunc(hdw*193);
end;
if h > w then
begin
newwidth:= trunc(wdh*113);
newheight:= 113;
end;
if h = w then
begin
newwidth:= trunc(wdh*113);
newheight:= 113;
end;
Bit.Assign(JPG);
RBit.Width:=NewWidth;
RBit.Height:=NewHeight;
RBit.Canvas.CopyRect(Rect(0,0,NewWidth,NewHeight),Bit.Canvas,Rect(0,0,Bit.Width,Bit.Height));
JPG.Assign(RBit);
Ierweitert_bild.Picture.Graphic:= JPG;
Ierweitert_bild.center:= true;
JPG.Free;
RBit.Free;
Bit.Free;
end;

[Matze]

Delphi-Quellcode:

Image1.Stretch:=true;
Image1.Proportional:=true;

mach's halt so und nicht im OI.

[billi]

das geht doch nur ab Gelphi 6?!!!!

[Matze]

Oh, sorry, wusste ich nicht. :wall:

[billi]

gibt's dennoch ne Möglichkeit das unter delphi5 zu verwenden?