OpenOffice.info

Aha, so ist das. Damit verstehe ich den Hinweis auf das Model, und dieser Weg ist offensichtlich besser. Jürgen

ogrid = thiscomponent.drawpage.forms.MainForm.MainForm_Grid '<----- GridControlModel
ogrid.EnableVisible = true '<----- GridControlModel

grid = thisComponent.drawpage.forms.getByName("MainForm").getByName("frmSucheLkz").getByName ("grid") '<----- GridControlModel
oCtlView = oDocCrl.GetControl(grid) '<----- FmXGridControl
oCtlView.Visible = true '<----- FmXGridControl

Servus

[quote="juetho"]Aber wo wird das Model des Grid verwendet?! Oder wird es von der Eigenschaft EnableVisible benutzt, ohne dass man es direkt sieht? Jürgen[/quote]
[code]ogrid = thiscomponent.drawpage.forms.MainForm.MainForm_Grid '<----- GridControlModel
ogrid.EnableVisible = true '<----- GridControlModel[/code]
[code]grid = thisComponent.drawpage.forms.getByName("MainForm").getByName("frmSucheLkz").getByName ("grid") '<----- GridControlModel
oCtlView = oDocCrl.GetControl(grid) '<----- FmXGridControl
oCtlView.Visible = true '<----- FmXGridControl[/code]

[quote="F3K Total"]Mit Model ist das Grid-Model gemeint![/quote]
Aber wo wird das Model des Grid verwendet?! Oder wird es von der Eigenschaft EnableVisible benutzt, ohne dass man es direkt sieht? Jürgen

[quote="juetho"]auch wenn sie ursprünglich nicht zu meinem Problem passten. [/quote]
Mit Model ist das Grid-Model gemeint!
Das Event.source.model ist das Model des Buttons zum Start des Makros und hat nix mit dem eigentlichen Sinn des Makros, show/hide, zu tun.

Gruß R

Danke für diese zusätzlichen Hinweise, auch wenn sie ursprünglich nicht zu meinem Problem passten. Model gehört zu Event.Source, aber nicht zu dem Element, das ein-/ausgeblendet werden soll, hilft also beim Umschalten von Visible auf true/false überhaupt nicht. Aber deine Lösung hat mir ein paar Vereinfachungen gebracht:

[list][*]Statt über [i]getByName [/i]kann man den Namen eines Elements direkt benutzen:
[code]'ogrid = thiscomponent.drawpage.forms.getByName("MainForm").getByName("grid")
ogrid = thiscomponent.drawpage.forms.MainForm.grid[/code]
[*]Die Eigenschaft, mit der das Kontrollfeld sichtbar bzw. unsichtbar gesetzt wird, heißt nicht etwa [i]Visible,[/i] sondern [b]EnableVisible[/b]. Damit wird der Weg über CurrentController/View eingespart. (Allerdings kann das Nebenwirkungen haben, über die ich noch nichts weiß.)
[*]Dieser Weg funktioniert (wie von dir angegeben) auch dann, wenn das Element im Designer von vornherein als unsichtbar definiert wird; das Verbergen beim Laden des Formulars kann also entfallen.[/list]
Gruß Jürgen

sub show_hide_Gridcontrol (event)
    ogrid = thiscomponent.drawpage.forms.MainForm.MainForm_Grid
    obutton = event.source.model
    if obutton.label ="hide" then
        ogrid.EnableVisible = false
        obutton.label = "show"
    else
        ogrid.EnableVisible = true
        obutton.label = "hide"
    endif
end sub

Moin,
wenn Du statt auf das Control aufs Model gehst, kannst Du auch ein unsichtbar gespeichertes Tabellenkontrollfeld mit folgendem Makro sichtbar/unsichtbar machen.
[code]sub show_hide_Gridcontrol (event)
ogrid = thiscomponent.drawpage.forms.MainForm.MainForm_Grid
obutton = event.source.model
if obutton.label ="hide" then
ogrid.EnableVisible = false
obutton.label = "show"
else
ogrid.EnableVisible = true
obutton.label = "hide"
endif
end sub[/code]
Anbei ein Beispiel


Gruß R

Sub SetVisible ( oCtrl as Object, value as Boolean )
  oDocCrl = ThisComponent.getCurrentController()
  oCtlView = oDocCrl.GetControl(oCtrl)
  oCtlView.Visible = value
End Sub

Danke, ihr beiden. Der [b]entscheidende Hinweis[/b] war tatsächlich, dass das Kontrollfeld nicht im Designer auf unsichtbar gesetzt werden darf, sondern erst beim Laden des Formulars. Damit bin ich einen Schritt weiter und habe gleichzeitig erkannt, dass ein Feld, das "hinter" dem betreffenden Grid liegt, weiterhin sichtbar wird, sobald es den Fokus erhält. Das muss also zusätzlich geregelt werden (gehört aber in eine neue Diskussion).

Für die Lösung habe ich eine allgemeine Methode definiert:
[code]Sub SetVisible ( oCtrl as Object, value as Boolean )
oDocCrl = ThisComponent.getCurrentController()
oCtlView = oDocCrl.GetControl(oCtrl)
oCtlView.Visible = value
End Sub[/code]

@Robert: oDocCrl war bei mir schon definiert. nämlich in dem vorherigen funktionierenden Code-Teil.

Auf ein Neues! Jürgen

	oDocCrl = ThisComponent.getCurrentController()
	oCtlView = oDocCrl.GetControl(oFeld)
	IF Sichtbar = "sehen" THEN
		oCtlView.Visible=true
	ELSE
		oCtlView.Visible=false
	END IF

Hallo Jürgen,

ich habe das folgende Verfahren gerade mit einem Tablecontrol getestet:
[code]
oDocCrl = ThisComponent.getCurrentController()
oCtlView = oDocCrl.GetControl(oFeld)
IF Sichtbar = "sehen" THEN
oCtlView.Visible=true
ELSE
oCtlView.Visible=false
END IF
[/code]
Ich gebe der Prozedur die verschiedenen Komponenten mit, um an das Feld zu kommen, (wie Du auch) - zusätzlich die Botschaft "sehen", um sichtbar und unsichtbar zu schalten. Damit kann ich das Tabellenkontrollfeld zeigen und wieder verbergen.
Vielleicht geht das ja nicht, wenn das Tabellenkontrollfeld von vornherein unsichtbar über die GUI geschaltet wurde. Dann müsste eben zum Formularstart das Makro auch betätigt werden.
oDocCrl ist bei Dir allerdings nicht definiert ...


Gruß

Robert

    grid = thisComponent.drawpage.forms.getByName("MainForm").getByName("frmSucheLkz").getByName("grid")
    oCtlView = oDocCrl.GetControl(grid)
    oCtlView.Visible = true

Es gelingt mir nicht, eine kleine Tabelle in einem Formular bei Bedarf zu aktivieren.

[u]Aufgabe:[/u] Das Formular enthält Unterformulare: MainForm > frmName > frmLocation. Das letzte Formular enthält ein [u]Eingabe[/u]feld für das Länderkennzeichen und ein [u]Anzeige[/u]feld für den Ländernamen. Beim Verlassen dieses Feldes wird der Inhalt in einem Makro geprüft:
[list][*]DE > keinen Ländername anzeigen
[*]sonst > suche den Ländernamen in der Tabelle sys_lkz.
[list][*]gefunden > zeige den Ländernamen an
[*]nicht gefunden > wechsle in die Liste der Länder, sodass ein Land explizit ausgewählt wird[/list][/list]
Alles mit Ausnahme des letzten Punkts funktioniert. Ich beschränke mich deshalb beim Makro auf diesen Abschnitt. Dafür habe ich ein Formular [i]frmSucheLkz [/i](Tabelle: sys_lkz) mit einem grid (Tabellenkontrollfeld) vorgesehen. Im Entwurf wird das grid mit der Eigenschaft "Sichtbar = Nein" versehen. Mit dem folgenden Code (in Anpassung an [url=http://www.starbasicfaq.de/WiekannmanKontrollfelderunsichtbarschalt.html]Dannenhöfer[/url] soll das Grid sichtbar werden:
[code] grid = thisComponent.drawpage.forms.getByName("MainForm").getByName("frmSucheLkz").getByName("grid")
oCtlView = oDocCrl.GetControl(grid)
oCtlView.Visible = true[/code]
Aber das klappt nicht. Dannenhöfer weist ausdrücklich darauf hin, dass der Code in Version 3.1 nicht funktioniert; aber in der aktuellen [url=https://bugs.freedesktop.org/buglist.cgi?quicksearch=form+control+visible]Buglist[/url] finde ich nichts dazu. Ich habe versucht, das Formular frmSucheLkz auf die gleiche Ebene wie MainForm zu setzen; aber das hat nichts geändert.
[list][*]Fehlt eine weitere Anweisung, z.B. dass das grid den Eingabefokus erhalten soll oder das Formular MainForm neu aufgebaut werden muss?
[*]Oder muss ich ganz anders vorgehen? (Ein völlig neues Formular wie im Handbuch Seite 249 f. möchte ich nicht benutzen, weil es nur eine Hilfsmaßnahme sein soll und deshalb das eigentliche Formular aktiv bleiben soll.)[/list]
Für Tipps wäre ich sehr dankbar. Jürgen