-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
So was haltet ihr davon !
procedure TForm1.Button1Click(Sender: TObject);
...
...
...
Button3.Width:= round(Button3.Width * 1.25);
Button3.Height := round(Button3.Height * 1.25);
Button3.Left:= round(Button3.Left * 1.25);
Button3.Top:= round(Button3.Top * 1.25);
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
:thumb: Das hilft mir doch schon mal weiter !
Übrigens: noch mal ne Info zu meinem Bild Größe 2400 x 1564
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
nur nach rechts und unten ausdehnen
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
Ja ! außerdem ist es an der Oberen - Linken - Ecke positioniert !
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
Tja das ist genau die Schwierigkeit die ich dabei habe :wink:
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
Mein Problem ist, dass ich Nen Button auf ein TImage setzen will und das wenn ich das Bild Scrolle oder vergrößere bzw. verkleinere das der Button sich in der Größe und Position auf dem Bild an einer Bestimmten stelle anpasst !
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
Tja ich komme da einfach nicht mehr weiter :cry:
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
THX für die Seiten vom Delphi Treff arbeit damit auch schon ne zeit lang ;-)
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
Hab es gelesen aber umgesetzt bekomme ich da von was da steht NIX :(
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
Vielleicht sollte ich mir erst mal Delphi für Dummies kaufen und das auswendig lernen :wink:
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
unit WerkPlan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, jpeg, Grids;
type
TPercentRect = record
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
Ich habe jetzt NewWidth und NewHeight raus geworfen, da ich die als Variablen schon mal wo anders eingetragen habe ! Mein Fenster schaut jetzt so komisch aus und lässt sich auch in keiner Größe mehr ändern !
-
Forum: Multimedia
by Davidlocke13,
20. Sep 2012
unter Var bei der procedure TForm1.FormCanResize werden mir NewWidth, NewHeight mit folgendem Fehler angezeigt:
WerkPlan.pas(71): E2004 Bezeichner redefiniert: 'NewWidth'
Werk2Plan.dpr(5): F2063 Verwendete Unit 'WerkPlan.pas' kann nicht compiliert werden
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
Sorry das ich so ein Idiot bin !
Mitbekommen für was das ist habe ich !
Aber bekomme es damit nicht hin ne vernünftige procedure für meine Buttons zu bastel damit die auf ein und der selben Stelle bleiben und mit dem Zoom größer und kleiner werden !
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
Irgendwie werde ich aus dem ScaleBy nicht so schlau :cry:
Hoffe könnt mir da noch mal helfen
THX
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
Tja das mit dem ScaleBy muss ich erst mal begreifen bevor ich das umsetzen kann ! Ich lese mich da mal durch die Seiten ;-)
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
2.
Es hat sich bei mir noch ein weiters Problem ergeben !
Ich wollte auf das Bild jetzt nen Button setzten hat auch in der TScrollBox so weit funktioniert das der auf ein und der Selben Stelle bleibt, nur seit dem Zoom klappt das halt nicht mehr da der Button seine Position nicht durch den Zoom hält und auch nicht mit vergrößert wir !
Gibt es dafür eine Lösung ?
Gruß
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
In meiner TScrollBox geht das jetzt auch ordentlich !
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
Mein Fehler das Teil darf bei Align nicht auf alClient sein ! ;-)
THX für eure Hilfe geht jetzt
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
So schaut das jetzt bei mir aus
procedure TForm1.Button1Click(Sender: TObject);
var
NewWidth,NewHeight: Integer;
begin
NewWidth := round(Image1.Width * 1.25);
NewHeight := round(Image1.Height * 1.25);
Image1.Width := NewWidth;
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
Ah ok das verstehe ich jetzt schon besser noch mal Danke
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
THX für deine Schnelle Antwort aber so 100 Blicke ich da noch nicht durch !
Wo soll der CODE hin und was soll ich da genau eintragen ;-)
Sorry das ich mich da was schwer tue und danke für deine Hilfe
-
Forum: Multimedia
by Davidlocke13,
19. Sep 2012
Hallo
Bin Delphi einsteiger und habe ein Problem mit einer Zoom Funktion !
habe ein TImage und will das jetzt mit jeweils einem Button verkleiner bzw. vergrößern aber keine Ahnung wie ich das hinbekommen !?
Im TImage ist ein JPG geladen das nachher wehrend dem Anwendungslauf vergrößert werden soll
Könnt ihr mir da helfen ?
Gruß David ;-)