wechselnde ToolTips in PanelGadget

Anfängerfragen zum Programmieren mit PureBasic.
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: wechselnde ToolTips in PanelGadget

Beitrag von Nino »

Danilo hat geschrieben:Nimm mal als ersten Parameter für MultiByteToWideChar_() 28591 statt 1,
das ist dann Codepage "ISO 8859-1 Latin 1; Western European (ISO)".
Dann gehen die Umlaute, nur € geht noch nicht.

Für andere Werte siehe die MSDN-Hilfe zu der Funktion.
Bei der Codepage ISO 8859-15 ist auch noch das Euro-Zeichen mit dabei.
Danilo hat geschrieben:Das ganze Codepage-Zeug ist eh ein Graus, am besten macht man heutzutage alles gleich im Unicode-Modus.
Jep. Das Codepage-Zeug ist heutzutage völlig überholt und man kann froh sein, dass man sich (bei neuen Programmen) damit nicht mehr zu beschäftigen braucht.

Grüße, Nino
ozoffi
Beiträge: 41
Registriert: 08.02.2010 20:56

Re: wechselnde ToolTips in PanelGadget

Beitrag von ozoffi »

Hallo!

Wie dem auch sei, danke für die Hilfe - funktioniert wunderbar!

lg
Oliver
Benutzeravatar
Danilo
-= Anfänger =-
Beiträge: 2284
Registriert: 29.08.2004 03:07

Re: wechselnde ToolTips in PanelGadget

Beitrag von Danilo »

Nino hat geschrieben:
Danilo hat geschrieben:Nimm mal als ersten Parameter für MultiByteToWideChar_() 28591 statt 1,
das ist dann Codepage "ISO 8859-1 Latin 1; Western European (ISO)".
Dann gehen die Umlaute, nur € geht noch nicht.

Für andere Werte siehe die MSDN-Hilfe zu der Funktion.
Bei der Codepage ISO 8859-15 ist auch noch das Euro-Zeichen mit dabei.
Das dachte ich auch (so aus dem Kopf) und hatte den Code auch mit
28605 ("iso-8859-15 -> ISO 8859-15 Latin 9") probiert. Ging hier leider nicht,
wenn ich direkt schreibe: "Wörk? - äöü߀ - "+Str(index+1)

Habe nun nochmal probiert mit:

Code: Alles auswählen

      #EURO$ = Chr($A4)
      ToolTipText$="Wörk? - äöüß"+#EURO$+" - "+Str(index+1)

      If #PB_Compiler_Unicode=0
        MultiByteToWideChar_(28605,#MB_COMPOSITE,@ToolTipText$,Len(ToolTipText$),WideCharBuf_,#WideCharLen_)
      Else
        PokeS(WideCharBuf_,ToolTipText$)
      EndIf
Das geht, Danke.


Mit Unicode ging's aber auch so. ;)
cya,
...Danilo
"Ein Genie besteht zu 10% aus Inspiration und zu 90% aus Transpiration" - Max Planck
Antworten