Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Prism WPF Object - Margin Property Readonly? (https://www.delphipraxis.net/136356-wpf-object-margin-property-readonly.html)

Highttower 29. Jun 2009 08:47


WPF Object - Margin Property Readonly?
 
Hallo zusammen,
ich wollte mir am Wochenende Delphi Prism mit der WPF etwas anschauen und dachte mir, schreibst du mal ein kleines Pongspiel ... Soweit so gut, KeyDown Event hab ich gleich gefunden, und beim Verschieben von Objecten im ObjectInspektor gesehn ah die Margin zeigt wohl in der WPF die Postion in Relation zum Forumlar dar. Also habe ich angefangen das ganze zu Implementiern:

Hier die Form:

Code:
<?xml version='1.0' encoding='utf-8' ?>
<Window x:Class="Pong.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Pong" Height="494" Width="1107" Name="Game" KeyDown="Game_KeyDown" Loaded="Game_Loaded">
  <Grid>
      <Button Height="12" HorizontalAlignment="Left" Margin="12,0,0,12" Name="Brettunten" VerticalAlignment="Bottom" Width="75"></Button>
   </Grid>
</Window>
Und hier der Code:
Delphi-Quellcode:
method Window1.Game_KeyDown(sender: System.Object; e: System.Windows.Input.KeyEventArgs);
var
   tmpmarr, tmpmarl : Integer;
begin
   if(e.Key.ToString = 'Right') then begin
        //tmpmarr := Brettunten.Margin.Right;
        //if tmpmarr =
      MessageBox.Show('Rechts ', Brettunten.Margin.ToString);
      Brettunten.Margin.Left := Brettunten.Margin.Left + 1;
      Brettunten.Margin.Right := Brettunten.Margin.Right + 1 ;
      Brettunten.Margin.Bottom := 12;
      Brettunten.Margin.Top := 0;
      //Brettunten.Margin.Right := tmpmarr;
   end;
end;
Ich beise mir da jetzt Seit gestern Vormittag die Zähne dran aus. Die MessageBox wird geworfen, aber es ändert sich nix(weder der Button verschiebt sich, noch beim nächsten mal ist die margin anders). Hat jemand ne Idee was man dafür machen muss? Gibt es irgendein Mechanismus, der das Margin auf "WriteAble" oder so legt, muss ich in nen bestimmten Typ Casten? Oder hab ich ganz schlicht irgendwas falsch gemacht?

Vielen Dank,

Tobi

Highttower 29. Jun 2009 09:25

Re: WPF Object - Margin Property Readonly?
 
Problem gelöst:

Delphi-Quellcode:
Brettunten.Margin := new Thickness((Brettunten.Margin.Left + 1), Brettunten.Margin.Top, (Brettunten.Margin.Right - 1), Brettunten.Margin.Bottom);
Gruß,
Tobi

Khabarakh 29. Jun 2009 11:42

Re: WPF Object - Margin Property Readonly?
 
Zitat:

Zitat von Highttower
beim Verschieben von Objecten im ObjectInspektor gesehn ah die Margin zeigt wohl in der WPF die Postion in Relation zum Forumlar dar.

Da würde ich eher ein Canvas-Panel einsetzen:
XML-Code:
<Canvas>
  <Rectangle Canvas.Left="42" Canvas.Top="100" ... />
</Canvas>
Bzw. im Code:
Code:
Canvas.SetLeft(obj, 42);


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz