Toolbar im XbpCrt-Fenster

[henxl]

Hallo,

ich möchte eine Toolbar in einem XbpCrt-Fenster installieren. Allerdings wird die Toolbar nicht angezeigt. Ich bekomme nach dem XbpCrt:create() einen leeren Bildschirm.
Ist eine Toolbar mit XbpToolBar im XbpCrt-Fenster überhaupt möglich ?
Muss ich nach dem XbpToolBar-create() die Größe den XbpCrt-Fensters ändern ?
Aber wie (setSize funktioniert unter Windows nicht), wenn das Fenster auch ein Menu hat und nur über die Anzahl der Zeilen und Spalten geändert werden kann ?

Kann mir jemand weiterhelfen ?

Grüße
Heinz

[AUGE_OHR]

hi,

ich möchte eine Toolbar in einem XbpCrt-Fenster installieren. Allerdings wird die Toolbar nicht angezeigt. Ich bekomme nach dem XbpCrt:create() einen leeren Bildschirm.
Ist eine Toolbar mit XbpToolBar im XbpCrt-Fenster überhaupt möglich ?
Muss ich nach dem XbpToolBar-create() die Größe den XbpCrt-Fensters ändern ?

Ich denke das es nicht geht zumindest habe ich es mit dem Toolbar Demo
nicht geschafft nachdem ich es aug oCrt umgestellt hatte

Aber wie (setSize funktioniert unter Windows nicht), wenn das Fenster auch ein Menu hat und nur über die Anzahl der Zeilen und Spalten geändert werden kann ?

... deshalb geht auch kein :resize wie ich feststellen musste.
Nein :setSize() gibt es nicht für oCrt sondern SETMODE(), aber das wird
dir wohl auch nicht weiterhelfen.

Ich habe dann aber mal aus Spass meine PbStack Class in ein oCrt ein-
gebaut und siehe da es funktioniert

Code: Alles auswählen

   oCrt := XbpCrt():new( AppDesktop(), , ;
                        {100,100}, 43, 100, "Crt Demo PbStack")
   //  :ClipChildren auf .F. setzen
   oCrt:clipChildren := .F.
   oCrt:resize := {|aOld, aNew, oSelf| CrtResize(aOld,aNew,oSelf)}
   oCrt:create()

   aSize := oCrt:currentsize()
   SetAppWindow( oCrt )

Ich habe also ein 43x100 oCrt Bildschirm. Normal wären ja 80 Zeichen
also hätte ich jetzt rechts noch 20 Platz. nun hab ich die "Outlook bar"
an den rechten Rand gesetzt und das sieht ganz nett aus.

Code: Alles auswählen

oPb := PbStack():New( oCrt,;
                                      ,;
                      {aSize[1]-100,0},;
                      {100,aSize[2]}  ,;
                      aPP             ,;
                      lVisible         )

ok es passte nicht ganz in der Höhe (Diffenz Titlebar) aber die PbStack
Class hat ja einen :resize Slot also kein Problem.

Code: Alles auswählen

aSize := oCrt:currentSize()
oPB:resize( {0,0},{100,aSize[2]-36})

wenn du willst kann ich dir ja mal eine Demo schicken.

[henxl]

Hallo Jimmy,

vielen Dank für Deine umfassende Antwort. Ich hatte früher auch ein System von Pushbuttons, um eine Toolbar zu realisieren. Aber keine eigene Klasse. Deshalb interessiert mich Deine PbStack-Demo.

Grüße
Heinz