Forum: Cross-Platform-Entwicklung
Delphi
by Mavarik,
7. Nov 2014
Ja - Du hast mein Posting nicht gelesen!
Vergiss das ScaledLayout... oder kannst Du das Fenster auf Deinem Handy mit der Maus groß ziehen?
Forum: Cross-Platform-Entwicklung
Delphi
by Mavarik,
7. Nov 2014
Jo.. dann so:
procedure TMainForm.FormResize(Sender: TObject);
var
X,Y : Single;
begin
X := ScaledLayout1.OriginalWidth;
Y := ScaledLayout1.OriginalHeight;
if (Self.ClientWidth / ScaledLayout1.OriginalWidth) <
(Self.ClientHeight / ScaledLayout1.OriginalHeight)
Forum: Cross-Platform-Entwicklung
Delphi
by Mavarik,
7. Nov 2014
Da hast Du recht. Auf Windows macht das vielleicht Sinn, aber nicht auf "dem" Device.
Hier wirst Du im seltensten Fall die Anwendung vergrößern. :stupid:
Forum: Cross-Platform-Entwicklung
Delphi
by Mavarik,
7. Nov 2014
Welches objekt Du nimmst ist in FM total egal... nen Panel nen Edit whatever.
Alle Childs des Elements übernehmen den Scale...
Mavarik
Forum: Cross-Platform-Entwicklung
Delphi
by Mavarik,
6. Nov 2014
Quark sind nur wenigen Zeilen...
procedure TPapier.OnPapierGesture(Sender: TObject;const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
LScale,
Direction : Single;
begin
if EventInfo.GestureID = igiZoom then
begin
if not(TInteractiveGestureFlag.gfBegin in EventInfo.Flags) and not(TInteractiveGestureFlag.gfEnd in EventInfo.Flags) then
Forum: Cross-Platform-Entwicklung
Delphi
by Mavarik,
6. Nov 2014
Na dann schau es Dir mal an!
Forum: Cross-Platform-Entwicklung
Delphi
by Mavarik,
5. Nov 2014
Ach... Welche den nicht? Würde gegen das Firemonkey Konzept sprechen...
Mavarik