| |
| |
|
KHR | Hallo Miteinander
möchte in einem Programm während des Laufs die Fenstergröße verändern.
Das sollte mit SetWindowPos() klappen
Für das Fenster gehts, mit dem Verschieben der Buttons klappst nicht.
Was mach ich falsch?
KompilierenMarkierenSeparierendeclare BT_GrafikZeigen&, BT_Abbruch&
declare BT_GrafikFertig&, BT_GrafikDrucken&
window 10,10 - (%MaxX-20),480
BT_GrafikZeigen& = Create(Button,%hwnd,Graphik zeigen, 10,(@Height(%HWND)-35),160,25)
BT_Abbruch& = Create(Button,%hwnd,Auswertung beenden, 180,(@Height(%HWND)-35),180,25)
BT_GrafikFertig& = Create(Button,%hwnd,Ende, 370,(@Height(%HWND)-35),180,25)
BT_GrafikDrucken& = Create(Button,%hwnd,Drucken, 560,(@Height(%HWND)-35),180,25)
waitkey
SetWindowPos %hwnd = 10,10 - (%MaxX-20),(%MaxY-80)
@SetFocus(%hwnd)
cls
SetWindowPos BT_GrafikZeigen& = 10,(@Height(%HWND))
SetWindowPos BT_Abbruch& = 180,(@Height(%HWND))
SetWindowPos BT_GrafikFertig& = 370,(@Height(%HWND))
SetWindowPos BT_GrafikDrucken& = 560,(@Height(%HWND))
@SetFocus(BT_GrafikZeigen& )
@SetFocus(BT_Abbruch&)
@SetFocus(BT_GrafikFertig&)
@SetFocus(BT_GrafikDrucken&)
@SetFocus(%hwnd)
waitkey
end
|
|
| |
| Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 02.02.2009 ▲ |
|
| |
|
|
 | | Und wenn Du die normale 6 Parameter SetWindowPos-Variante nutzt ala setWindowPos meinButton=10,10 - 200,300;0 ? |
|
| |
| |
| |
|
|
KHR | Hallo David,
Du meinst so:
KompilierenMarkierenSeparierendeclare BT_GrafikZeigen&, BT_Abbruch&
declare BT_GrafikFertig&, BT_GrafikDrucken&
window 10,10 - (%MaxX-20),480
BT_GrafikZeigen& = Create(Button,%hwnd,Graphik zeigen, 10,(@Height(%HWND)-35),160,25)
BT_Abbruch& = Create(Button,%hwnd,Auswertung beenden, 180,(@Height(%HWND)-35),180,25)
BT_GrafikFertig& = Create(Button,%hwnd,Ende, 370,(@Height(%HWND)-35),180,25)
BT_GrafikDrucken& = Create(Button,%hwnd,Drucken, 560,(@Height(%HWND)-35),180,25)
waitkey
SetWindowPos %hwnd = 10,10 - (%MaxX-20),(%MaxY-80)
SetWindowPos BT_GrafikZeigen& = 10,(@Height(%HWND)),160,25;0
SetWindowPos BT_Abbruch& = 180,(@Height(%HWND)),180,25;0
SetWindowPos BT_GrafikFertig& = 370,(@Height(%HWND)),180,25;0
SetWindowPos BT_GrafikDrucken& = 560,(@Height(%HWND)),180,25;0
waitkey
Damit hatte ich angefangen! das selbe Ergebnis
Die verschieden Experimentalstufen zwischendrin waren auch nicht besser - im Gegenteil |
|
| |
| Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 02.02.2009 ▲ |
|
| |
|
|
| | Das dritte Parametertrennzeichen ist aber ein Minus, kein Komma. |
|
| |
| |
| |
|
|
KHR | Hallo David,
ääääH - Mist !!
beim rückwärts gehen gestolpert.
Aber auch mit Minus statt Komma wirds nicht besser. |
|
| |
| Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 02.02.2009 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Einfach nur Height(%hwnd) geht natürlich auch nicht. Bischen Platz sollte man den Buttons schon gönnen:
KompilierenMarkierenSeparierendeclare BT_GrafikZeigen&, BT_Abbruch&
declare BT_GrafikFertig&, BT_GrafikDrucken&
window 10,10 - (%MaxX-20),480
BT_GrafikZeigen& = Create(Button,%hwnd,Graphik zeigen, 10,(@Height(%HWND)-35),160,25)
BT_Abbruch& = Create(Button,%hwnd,Auswertung beenden, 180,(@Height(%HWND)-35),180,25)
BT_GrafikFertig& = Create(Button,%hwnd,Ende, 370,(@Height(%HWND)-35),180,25)
BT_GrafikDrucken& = Create(Button,%hwnd,Drucken, 560,(@Height(%HWND)-35),180,25)
waitkey
SetWindowPos %hwnd = 10,10 - (%MaxX-20),(%MaxY-80)
@SetFocus(%hwnd)
cls
SetWindowPos BT_GrafikZeigen& = 10,(@Height(%HWND)-30)
SetWindowPos BT_Abbruch& = 180,(@Height(%HWND)-30)
SetWindowPos BT_GrafikFertig& = 370,(@Height(%HWND)-30)
SetWindowPos BT_GrafikDrucken& = 560,(@Height(%HWND)-30)
@SetFocus(BT_GrafikZeigen& )
@SetFocus(BT_Abbruch&)
@SetFocus(BT_GrafikFertig&)
@SetFocus(BT_GrafikDrucken&)
@SetFocus(%hwnd)
waitkey
end
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 02.02.2009 ▲ |
|
| |
|
|
KHR | Danke Jörg,
habs nun mittlerweile auch selbst rausgefunden. Irgendwie hatte ich das -35 von @Height(%HWND)-35
bei meinen Versuchen rausgewurschtelt.
Manchmal steh ich halt auf der Leitung. |
|
| |
| Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 02.02.2009 ▲ |
|
| |
|
(1.112)
Deutsch
English
Français
Español
Italia