OpenOffice.info

Moin TrueColor,

danke für den Hinweis,
irgendwie war für den [ Abbrechen ] Button in den Makro-Dialog Button Eigenschaften noch die OK Funktionalität eingestellt,
dann reagiert er natürlich auch als OK, jetzt ist es korrigiert und auf Abbrechen eingestellt und tut auch so.

[attachment=0]Macro-Dialog_Multiselection.ods[/attachment]

Ich hab zwar nix zum Doppelklickproblem beizutragen. Aber beim Benutzen des Abbrechen-Buttons des Dialogs werden die Änderungen auch übernommen. Weiß nicht, ob das inzwischen schon aufgefallen ist.

Sub TopicsChoice(oEvent) as boolean
...
	topicschoice=true
End Sub

Hallo,

klasse, dass das gelöst ist. Interessanterweise klappt es auch als Sub:
[code]Sub TopicsChoice(oEvent) as boolean
...
topicschoice=true
End Sub
[/code]
So ein ähnliches Verhalten hatte ich auch mit einem Makro, dass bei einer Gültigkeit ausgelöst wird. Dort hatte die Belegung mit "true" die Wirkung, dass die (ungültige) Eingabe in die Zelle übernommen wurde, bei "false" wurde sie verworfen.

Hallo
Genau das ist der Unterschied - Function's können etwas an den Aufrufer zurückgeben, so wie es in Zeile 24 gemacht wird.

Wobei mir auch nicht im konkreten Fall klar ist [b]was|wer[/b] der Aufrufer ist.

Karolus

Function TopicsChoice(oEvent)
	odoc=thisComponent 
	iStartCol = oEvent.RangeAddress.StartColumn 
	iStartRow = oEvent.RangeAddress.StartRow 
	iStartShe = oEvent.RangeAddress.Sheet 
	if iStartCol = 7 then
		if iStartRow > 3 and iStartRow < 1000 then 
			Dim oDialog as object, oCkeckBox as object
			Dim i as integer, iDlgOK as integer, iX as Integer, iCount as Integer
			Dim	mChoices(9,1) as String 
			Dim mLongtext(9) as String
			DialogLibraries.loadLibrary( "Standard") 
			oDialogLib = DialogLibraries.getByName("Standard")
			oDialog = CreateUnoDialog(oDialogLib.getByName("Dialog1"))
			mySheet = oDoc.Sheets().getByName("Auswahl")
			iX = val(right(oDoc.sheets(iStartShe).getCellByPosition(7,3).string,1)) 
			for i=1 to 10
				mChoices(i-1,0) = mysheet.getCellByPosition(0,i).string & "   " 
				mChoices(i-1,1) = mysheet.getCellByPosition(iX,i).string
			next
			for i=0 to 9
				oDialog.Model.ControlModels(i).label = mChoices(i,0) & mChoices(i,1) 
			next
			TopicsChoice = True
			iDlgOK = oDialog.Execute() 
			if iDlgOK = 1 then 
				iCount = 0
				for i = 0 to 9
				if oDialog.Model.ControlModels(i).state = 1 then 
					mLongtext(iCount) = mChoices(i,1) 
					iCount=iCount+1
				end if
				next 
				if iCount > 0 then ReDim Preserve mLongtext(iCount-1) 
				oDoc.getCurrentSelection().string = join(mLongtext,", ") 
			end if
			oDialog.dispose()
		end if
	end if
End Function

Hallo zusammen,

es gibt eine Lösung für das Problem, allerdings verstehe ich nicht wirklich wie das wirkt.
Der/die Gute hat das Makro als Funktion deklariert und eine Zeile eingefügt,
kann mir jemand erklären was hier der Unterschied zwischen [b]Sub[/b] und [b]Function[/b] ist?

[attachment=0]the_solution.png[/attachment]
der Übersicht wegen als screenshot aus einem compare zur vorher Version

und hier der korrigierte Code

[code]Function TopicsChoice(oEvent)
odoc=thisComponent
iStartCol = oEvent.RangeAddress.StartColumn
iStartRow = oEvent.RangeAddress.StartRow
iStartShe = oEvent.RangeAddress.Sheet
if iStartCol = 7 then
if iStartRow > 3 and iStartRow < 1000 then
Dim oDialog as object, oCkeckBox as object
Dim i as integer, iDlgOK as integer, iX as Integer, iCount as Integer
Dim mChoices(9,1) as String
Dim mLongtext(9) as String
DialogLibraries.loadLibrary( "Standard")
oDialogLib = DialogLibraries.getByName("Standard")
oDialog = CreateUnoDialog(oDialogLib.getByName("Dialog1"))
mySheet = oDoc.Sheets().getByName("Auswahl")
iX = val(right(oDoc.sheets(iStartShe).getCellByPosition(7,3).string,1))
for i=1 to 10
mChoices(i-1,0) = mysheet.getCellByPosition(0,i).string & " "
mChoices(i-1,1) = mysheet.getCellByPosition(iX,i).string
next
for i=0 to 9
oDialog.Model.ControlModels(i).label = mChoices(i,0) & mChoices(i,1)
next
TopicsChoice = True
iDlgOK = oDialog.Execute()
if iDlgOK = 1 then
iCount = 0
for i = 0 to 9
if oDialog.Model.ControlModels(i).state = 1 then
mLongtext(iCount) = mChoices(i,1)
iCount=iCount+1
end if
next
if iCount > 0 then ReDim Preserve mLongtext(iCount-1)
oDoc.getCurrentSelection().string = join(mLongtext,", ")
end if
oDialog.dispose()
end if
end if
End Function
[/code]

hallo mikeleb,

danke das du dich noch einmal mit dem "bockigen" Cursor beschäftigt hast,
allerdings habe ich wenig Hoffnung das man das innerhalb des Makros lösen kann,
da der Doppelklick ja nicht zum Makro gehört.

Darum war ich jetzt auch bei "Bugzilla" petzen, und hoffe es wird ernst genommen.

Eventuelle Reaktionen/Lösungen werde ich hier kund tun,
oder hier [url=https://bz.apache.org/ooo/show_bug.cgi?id=126177][b] Issue 126177 [/b][/url] zum selber prüfen

wer mag kann das ja mit einem Klick auf vote etwas pushen ;)

oDialog.Model.ControlModels(i).label = mChoices(i,0) & mChoices(i,1)

iDlgOK = oDialog.Execute()

oDialog.dispose()

Hallo,

ich habe noch ein bisschen probiert:
Wenn ich die drei Code-Zeilen
[code]oDialog.Model.ControlModels(i).label = mChoices(i,0) & mChoices(i,1)[/code][code]iDlgOK = oDialog.Execute()[/code][code]oDialog.dispose()[/code]auskommentiere, wird der Rest ausgeführt und der Cursor landet in der Zelle (klass. Doppelklick-Verhalten).
Sobald der Dialog ausgeführt wird oder auch "nur" Dialogelemente geschrieben werden (nicht beim lesen!), bleibt der Cursor (unsichtbar) im Tabellenblattbereich hängen und wird erst nach einem Klick wieder frei.
Ich hatte schon die Idee, diesen Cursorklick per Makro auszulösen, allein ich scheiterte aufgrund Unwissenheit :(

Hallo zusammen,

erst einmal Danke das ihr euch die Mühe gemacht habt das mal anzuschauen
@ Balu
ich hatte befürchtet so etwas zu lesen aber ganz kann ich deine Argumentation nicht folgen
denn der Doppelklick muss schließlich erkannt werden und in diesem Fall hätte ich erwartet,
das erst nach dem zweiten "left mouse button up" das Makro gezündet wird,
aber scheinbar geschieht das bereits nach dem zweiten "left mouse button down" und das vergessene
zweite "left mouse button up verursacht das Problem.

@ Stephan
[quote="Stephan"]Einen Workaround habe ich nicht.[/quote] schade ;)
und Danke für deine Hinweise.
Es war der Versuch einem anderen Fragensteller in Calc etwas zu bieten.

ich hatte an andere Stelle schon einmal das Problem, darüber bin ich dann sogar mit Karolus aneinander geraten weil
da auch der Doppelklick ein Makro starten sollte und das klemmte dann vermutlich aus dem selben Grund.


@ mikeleb
[quote="mikeleb"]wenn ich den Dialog gar nicht ausgeführt habe[/quote]
nach welcher Aktion sonst noch?

Wenn ich auf eine nicht überwachte Zelle doppelklicke komm ich normal in den Editiermodus
nach verlassen der Zelle durch Enter oder Esc reagieren die Tabellenblattregister hier sofort?

Hallo,

ich kann das Verhalten ebenfalls bestätigen. Es trat bei mir übrigens auch auf, wenn ich den Dialog gar nicht ausgeführt habe.

Ich kann das Problem nachvollziehen.

Das Verhalten des Programms ist hier wirklich ärgerlich und ich halte es für eine Programmfehler den Du melden solltest und dabei unbedingt Deine Beispieldatei anhängen.

Einen Workaround habe ich nicht. Ich hatte gehofft man könne im Makro am Ende eine Zelle explizit selektieren, das bringt aber nichts, ein nicht-modaler Dialog hilft ebenfalls nicht, vielleicht ist aber die Info von Nutzen das wen man den nicht-modalen Dialog nicht beendet man dann nebenwirkungsfrei zwischen den Tabellenblättern wechseln kann (was nun aber auch nur das Problem verschiebt, denn irgendwann muss man den Dialog beenden).

Balu hat recht mit dem Listener, nur kann ich Dir dafür 'aus dem Hut' kein Beispiel geben. Da es früher mit z.B. Selection-Change-Listener (der wegen des Doppelklicks noch nicht einmal wirklich geeignet wäre) Probleme gab bin ich bei solchen Listener-Implementierungen auf Tabellenblättern misstrauisch, weshalb ich empfehlen würde zu überlegen ob Du das Ganze nicht 'konventionell' implementieren willst, also so dass Du einen Eigebemasken-Dialog programmierst, so das jegliche Eingaben (also nicht nur Spalte H) nur in diesem Dialog erfolgen. Das wird in jedem FAll stabil laufen.
Ein sinngemäßes Beispiel ist das 'Fahrtenbuch' was Du hier unter "Beispiele" findest:
http://de.openoffice.info/viewtopic.php?f=18&t=1553


Gruß
Stephan

Hallo clag,

[quote]
der zweite klick geht dann auf den Reiter.
[/quote]
Nun ja, wenn das Makro an das Tabellenereignis "Doppelklick" gebunden ist, dann muss man halt doppelt klicken damit das Makro neu gestartet und neu initialisiert wird.


[quote]
hat jemand eine Idee wie man das abstellen kann
[/quote]
Bleibt dir nix anderes übrig als das mit dem Tabellenereignis zu vergessen und stattdessen einen Listner zu programmieren. Das ist zumindest meine Empfehlung.



Gruß
balu

Hallo Kenner und Könner,

mit diesen Makro habe ich ein kleines Problem und keine Idee wo oder wie man das lösen kann.
Alles Funktioniert soweit das eintragen des Text in eine Zelle der Spalte H nach Doppelklick oder auch nicht (Abruch).
Soweit so gut.

Aber danach klebt der Cursor irgend wie an der Tabelle fest, wenn man direkt nach Ende des Dialog
zB das Tabellenblatt wechseln möchte und mit der Maus auf einen RegisterReiter klickt,
wird nicht dieser Reiter angeklickt sondern die Zelle die darunter liegt der zweite klick geht dann auf den Reiter.

Das gilt für jeden ersten Klick egal worauf man klick, man trifft nicht die Schaltfläche sondern irgend etwas in der Tabelle
beim ersten klick nach Beendigung des Dialog.

hat jemand eine Idee wie man das abstellen kann, das ist ziemlich nervig.

[attachment=0]265464_Test_Datei_+_Dialog_flex.ods[/attachment]