Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by S - tefano,
9. Okt 2008
Ich hatte mich geirrt, zum einen bietet TImage ein smScaledOptimal-Pendant an (proportional=true, stretch=false), zum anderen kann man im TImage aber nicht die Größe der u.U. verkleinerten Bitmap anzeigen lassen.
Habe mir das mal mit einer Methode gemacht. Wens interessiert:
function getBildSeitenVerhaeltnis(x, y: integer): double;
begin
result:= Max(x, y) / Min(x, y);
end;
function...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by S - tefano,
9. Okt 2008
Hallihallo,
nach langer Zeit reaktiviere ich meinen Account ;)
Entschuldigt schonmal alles was an meinem Ansatz ungünstig ist, aber es ist spät.
Mein generelles Ziel: Ein Bild anzeigen und dem User ermöglichen, eine Auswahlbox irgendwo im Bildbereich zu ziehen, die nach MouseUp stehen bleibt. Also einfach eine Markierungsbox, die man aufziehen und verschieben kann, um den Programm zu sagen...