XbpPrintDialog(): Titel und Button-Beschriftungen ändern

[UliTs]

Hallo Allerseits,

wenn ich

Code: Alles auswählen

oXbpPrintDialog:Display()

aufrufe, wird bei mir als Titel "Drucken" und als Button-Beschriftungen "Drucken" bzw. "Abbrechen" angezeigt. Wie kann man dies ändern (z.B. Titel: "Druckerauswahl")?

Uli

[UliTs]

Mein Thread ist inzwischen fast 2 Jahre offen, ich denke, eine Rarität in unserem Forum .
Durch eine PN wurde ich nochmals darauf aufmerksam gemacht. Hat vielleicht inzwischen jemand eine Lösung?
Als einzige Idee hätte ich noch die, dass es vielleicht über die Windows-API geht.

Uli

[AUGE_OHR]

wenn ich

Code: Alles auswählen

oXbpPrintDialog:Display()

aufrufe, wird bei mir als Titel "Drucken" und als Button-Beschriftungen "Drucken" bzw. "Abbrechen" angezeigt. Wie kann man dies ändern (z.B. Titel: "Druckerauswahl")?
i

Der XbpPrintDialog greift auf "CommonDialog" zu, also Windows.
Es gibt zwar die Methode DialogTitle aber :

Note: The CommonDialog control ignores the setting of the DialogTitle property when displaying the Color, Font, or Print dialog boxes.

also genau bei den nicht.

Die Beschriftung der Button ist nun wiederum die "Übersetzung" der Resource ins deutsche und gilt System-weit.

[Koverhage]

Hallo Uli,

so wie ich es Ewald auch geschrieben habe.

GetWindowTextA und SetWindowTextA

nAHwnd := GetForegroundWindow()
GetWindowTextA( nAHwnd,@cATitle,200 )

DO WHILE !lSelect
nEvent := AppEvent(@mp1,@mp2,@oXbp,10)
IF Valtype(oXbp) = 'O'
oXbp:handleEvent(nEvent,mp1,mp2)
ENDIF
nHwnd := GetForegroundWindow()
SetWindowTextA( nHwnd,@cTitle,len(cTitle) )
ENDDO

SetWindowTextA( nAHwnd,@cATitle,len(cATitle) )

[UliTs]

Hallo Auge_Ohr,

vielen Dank für Deine Antwort. Allerdings rätsele ich bei Deiner Antwort, was Du meinen könntest:
1) Der Titel kann NICHT geändert werden?
2) Die Buttonbeschriftungen können geändert werden, Du weißt aber nicht wie?

Uli

[UliTs]

Hallo Koverhage,

vielen Dank für Deine Antwort. Aber wo baue ich Deinen Code ein?

Code: Alles auswählen

nAHwnd := GetForegroundWindow()

Vor

Code: Alles auswählen

oXbpPrinter := oPrintDlg:display( ::oXbpPrinter )

ist das Fenster noch nicht geöffnet, danach wurde der Dialog schon wieder beendet.

Uli

[AUGE_OHR]

vielen Dank für Deine Antwort. Allerdings rätsele ich bei Deiner Antwort, was Du meinen könntest:
1) Der Titel kann NICHT geändert werden?

Es ist laut Zitat für die Property "DialogTitle" nicht vorgesehen.
Es ist wohl per API SetWindowTextA() möglich =D>

2) Die Buttonbeschriftungen können geändert werden, Du weißt aber nicht wie?

wie ich schon sagte : "OK", "Abbruch", "Drucken" etc. steht doch in den Länder-spezifischen Resource Tabellen.
wenn du nun an den "Button" und seine "Caption" ran willst müsstest du das "Handle" des Button ermitteln z.b. mit WinID ( Empfehlung von Günter )