Hi,
wenn du die prefs als xml sicherst hat das viele Vorteile.
Du hast halt keys und values und durchschaust auch noch eine Datei mit 100 Keys.
Außerdem kannst du auch nur bestimmte values ändern und musst nicht immer die
kompletten prefs sichern.
Ich hab Lion laufen mit RB2011R2, also bis auf ein paar optische Probleme sieht
alles sehr gut aus.
Gruß
Stefan
Am 20.07.2011 um 17:48 schrieb Enno Bussmann:
> Ich habe mich bislang nicht allzuviel mit xml beschäftigt: was birgt das hier
> für vorteile ?
>
> Gruss enno
>
> P.s. Hab mir gerade mal per system-profiler angesehen welche programme
> möglicherweise nicht liontauglich sind und siehe da, der löwe könnte bei RB
> für ärger sorgen...
>
> Am 20.07.11 10:10, schrieb Stefan Sicurella:
>> Hi Enno,
>>
>> ja, ich hab eine xml Datei mit den Prefs, natürlich könnte ich auch prüfen
>> ob diese vorhanden sind.
>>
>> Die Lösung gefällt mir zwar nicht, aber wenn mir nichts anderes einfällt
>> mache ich es auch so, DANKE
>>
>> Gruß
>>
>> Stefan
>>
>>
>> Am 20.07.2011 um 06:52 schrieb Enno Bussmann:
>>
>>> Hallo Stefan,
>>> ich habe deine erste lösung ausprobiert, da tut sich bei mir überhaupt
>>> nichts. Andererseits habe ich etwas code, der automatisch druckerprefs für
>>> den jeweils angeschlossenen drucker erstellt, vielleicht hilft dir das
>>> weiter:
>>>
>>> dim PageSetup As PrinterSetup
>>> dim ps as PrinterSetup
>>> dim f As FolderItem
>>> dim g As Graphics
>>> dim tos as TextOutputStream
>>> dim settings as string
>>> f = GetFolderItem("druckerprefs")
>>> if f.exists then '/habe ich zum testen drin gelassen/
>>> f.Delete
>>> end
>>> if not f.exists then
>>> PageSetup=New PrinterSetup
>>> If PageSetup.PageSetupDialog Then
>>> settings=PageSetup.SetupString
>>> end
>>> f.Name = "druckerprefs"
>>> tos=TextOutputStream.Create(f)
>>> tos.write settings
>>> tos.close
>>>
>>> ps = new PrinterSetup
>>> ps.SetupString = settings
>>> msgbox "Druckereinstellungen werden gespeichert und eine Testseite wird
>>> gedruckt."
>>>
>>> g = OpenPrinter(ps)
>>> if g<> nil then
>>> g.TextSize = 16
>>> g.Bold = true
>>> g.DrawString "OK" ,100,100
>>> else
>>> MsgBox "FEHLER: der Drucker konnte nicht eingerichtet werden!"
>>> end
>>>
>>> end
>>>
>>> hdh enno
>>>
>>> Am 19.07.11 23:52, schrieb Stefan Sicurella:
>>>> Hi,
>>>>
>>>> ich versuche gerade verschiedene Dinge mit dem PrinterSetup auf die Reihe
>>>> zu bekommen.
>>>>
>>>> Erster Start der App, es ist noch kein PrinterSetup vorhanden, der
>>>> Benutzer druckt das erste mal …
>>>>
>>>> Folgender Code crashed sofort die Debug-App
>>>> global: ps=new printer setup
>>>>
>>>> if len(ps.SetupString)=0 then
>>>> if ps.pagesetupDialog then
>>>> gesamtbreite=ps.Width
>>>> gesamthoch=ps.Height
>>>> else
>>>> //User hat abgebrochen
>>>> end if
>>>> end if
>>>>
>>>> ok, anderer versuch
>>>>
>>>> das geht, allerdings flackert dann vor jedem Druck der Bildschirm, als ob
>>>> ein Fenster ganz schnell auf und zu geht.
>>>>
>>>> Sub papierformat_prüfen()
>>>> dim g as Graphics
>>>> g = OpenPrinter(ps)
>>>> if g = nil then seitesetup
>>>> End Sub
>>>>
>>>>
>>>> Ich suche nach einer Lösung, die keine Probleme verursacht.
>>>>
>>>> RB2011R2 und 10.6.8
>>>>
>>>> Gruß
>>>>
>>>> Stefan
>>>>
>>
>>
>
