Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MDI Window (Real Studio network user group Deutschland Mailinglist archive)

Back to the thread list
Previous thread: Drucken unter Windows und StyledTextPrinter
Next thread: Fenster unter windows


Re: 5.2.1de ist da   -  
  MDI Window   -   Rudi Maier
   Re: MDI Window   -   Christian Schmitz
    Re: MDI Window   -   Rudi Maier

MDI Window
Date: 18.12.03 16:55 (Thu, 18 Dec 2003 16:55:17 +0100)
From: Rudi Maier
Hallo,

ich speichere die Fensterposition in eine Prefsdatei. Klappt unter Mac OS
wunderbar. Unter Window habe ich ein MDI-Fenster in dem das eigentliche
Dokument-Fenster ist.
Nun muß ich unter Windows zwei Fensterpositionen abspeichern, nämlich das
MDI-Fenster unt das Dokument-Fenster.
Wie komme ich an die MDI-Fensterposition?

Rudi

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: MDI Window
Date: 18.12.03 17:57 (Thu, 18 Dec 2003 17:57:52 +0100)
From: Christian Schmitz
Rudi Maier <<email address removed>> wrote:

> Hallo,
>
> Nun muß ich unter Windows zwei Fensterpositionen abspeichern, nämlich das
> MDI-Fenster unt das Dokument-Fenster.

genau.

> Wie komme ich an die MDI-Fensterposition?

Ist Teil der Application Klasse:

dim w as MDIWindow

w=app.MDIWindow

if w<>Nil then
MsgBox str(w.Left)
MsgBox str(w.Top)
MsgBox str(w.Width)
MsgBox str(w.Height)
end if

Mfg
Christian

--

Re: MDI Window
Date: 19.12.03 08:27 (Fri, 19 Dec 2003 08:27:06 +0100)
From: Rudi Maier
am 18.12.2003 17:57 Uhr schrieb Christian Schmitz unter
<email address removed>:

> Rudi Maier <<email address removed>> wrote:
>
>> Hallo,
>>
>> Nun muß ich unter Windows zwei Fensterpositionen abspeichern, nämlich das
>> MDI-Fenster unt das Dokument-Fenster.
>
> genau.
>
>> Wie komme ich an die MDI-Fensterposition?
>
> Ist Teil der Application Klasse:
>
> dim w as MDIWindow
>
> w=app.MDIWindow
>
> if w<>Nil then
> MsgBox str(w.Left)
> MsgBox str(w.Top)
> MsgBox str(w.Width)
> MsgBox str(w.Height)
> end if
>
> Mfg
> Christian

Danke Christian.

Rudi

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>