Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/Win/Windows Locale Information
Function:
Required plugins for this example: MBS Win Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/Windows Locale Information
This example is the version from Sun, 17th Mar 2012.
Project "Windows Locale Information.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action() dim l as new WinLocalizationMBS show l End EventHandler
End Control
Control PushButton2 Inherits PushButton
ControlInstance PushButton2 Inherits PushButton
EventHandler Sub Action() dim l as new WinLocalizationMBS(WinLocalizationMBS.LANG_ENGLISH, WinLocalizationMBS.SUBLANG_ENGLISH_US, WinLocalizationMBS.SORT_DEFAULT) show l End EventHandler
End Control
Control PushButton3 Inherits PushButton
ControlInstance PushButton3 Inherits PushButton
EventHandler Sub Action() dim l as new WinLocalizationMBS(WinLocalizationMBS.LANG_GERMAN, WinLocalizationMBS.SUBLANG_GERMAN, WinLocalizationMBS.SORT_DEFAULT) show l End EventHandler
End Control
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open() if not TargetWin32 then MsgBox "This example works only on Windows." end if End EventHandler
Sub Show(l as WinLocalizationMBS) List.DeleteAllRows list.addrow "LanguageID", l.LanguageID list.addrow "LanguageNameLocalized", l.LanguageNameLocalized list.addrow "LanguageNameEnglish", l.LanguageNameEnglish list.addrow "LanguageNameAbbreviated", l.LanguageNameAbbreviated list.addrow "LanguageNameNativ", l.LanguageNameNativ list.addrow "CountryCode", l.CountryCode list.addrow "CountryNameLocalized", l.CountryNameLocalized list.addrow "CountryNameEnglish", l.CountryNameEnglish list.addrow "CountryNameAbbreviated", l.CountryNameAbbreviated list.addrow "CountryNameNative", l.CountryNameNative list.addrow "DefaultLanguageID", l.DefaultLanguageID list.addrow "DefaultCountryCode", l.DefaultCountryCode list.addrow "DefaultCodePageOEM", l.DefaultCodePageOEM list.addrow "DefaultCodePageANSI", l.DefaultCodePageANSI list.addrow "DefaultCodePageMac", l.DefaultCodePageMac list.addrow "ListItemSeparator", l.ListItemSeparator list.addrow "MeasureSystem", l.MeasureSystem list.addrow "DecimalSeparator", l.DecimalSeparator list.addrow "ThousandSeparator", l.ThousandSeparator list.addrow "DigitGrouping", l.DigitGrouping list.addrow "NumberOfFraction", l.NumberOfFraction list.addrow "LeadingZeros", l.LeadingZeros list.addrow "NegativeNumberMode", l.NegativeNumberMode list.addrow "NativeASCII0to9", l.NativeASCII0to9 list.addrow "CurrencySymbolLocalized", l.CurrencySymbolLocalized list.addrow "CurrencySymbolInternational", l.CurrencySymbolInternational list.addrow "CurrencyDecimalSeparator", l.CurrencyDecimalSeparator list.addrow "CurrencyThousandSeparator", l.CurrencyThousandSeparator list.addrow "CurrencyGroupingMode", l.CurrencyGroupingMode list.addrow "CurrencyDigitsLocalized", l.CurrencyDigitsLocalized list.addrow "CurrencyDigitsInternational", l.CurrencyDigitsInternational list.addrow "CurrencyPositiveMode", l.CurrencyPositiveMode list.addrow "CurrencyNegativeMode", l.CurrencyNegativeMode list.addrow "DateSeparator", l.DateSeparator list.addrow "TimeSeparator", l.TimeSeparator list.addrow "DateShortFormatString", l.DateShortFormatString list.addrow "DateLongFormatString", l.DateLongFormatString list.addrow "TimeShortFormatString", l.TimeShortFormatString list.addrow "DateShortFormatOrdering", l.DateShortFormatOrdering list.addrow "DateLongFormatOrdering", l.DateLongFormatOrdering list.addrow "TimeFormatSpecifier", l.TimeFormatSpecifier list.addrow "TimeMarkerPosition", l.TimeMarkerPosition list.addrow "TimeCenturyFormatSpecifier", l.TimeCenturyFormatSpecifier list.addrow "TimeLeadingZeros", l.TimeLeadingZeros list.addrow "DateLeadingZerosDay", l.DateLeadingZerosDay list.addrow "DateLeadingZerosMonth", l.DateLeadingZerosMonth list.addrow "TimeAM", l.TimeAM list.addrow "TimePM", l.TimePM list.addrow "CalendarTypeSpecifier", l.CalendarTypeSpecifier list.addrow "CalendarTypeSpecifier2", l.CalendarTypeSpecifier2 list.addrow "FirstDayOfWeek", l.FirstDayOfWeek list.addrow "FirstWeekOfYear", l.FirstWeekOfYear list.addrow "SignPositive", l.SignPositive list.addrow "SignNegative", l.SignNegative list.addrow "SignPositivePosition", l.SignPositivePosition list.addrow "SignNegativePosition", l.SignNegativePosition list.addrow "PosSymPrecedes", l.PosSymPrecedes list.addrow "PosSepBySpace", l.PosSepBySpace list.addrow "NegSymPrecedes", l.NegSymPrecedes list.addrow "NegSepBySpace", l.NegSepBySpace list.addrow "LanguageNameAbbreviatedISO", l.LanguageNameAbbreviatedISO list.addrow "CountryNameAbbreviatedISO", l.CountryNameAbbreviatedISO list.addrow "DefaultCodePageEBCDIC", l.DefaultCodePageEBCDIC list.addrow "Papersize", l.Papersize list.addrow "CurrencyNameEnglish", l.CurrencyNameEnglish list.addrow "CurrencyNameNative", l.CurrencyNameNative list.addrow "DateShortYearMonth", l.DateShortYearMonth list.addrow "Sortname", l.Sortname list.addrow "DigitSubstitution", l.DigitSubstitution End Sub
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
Module Module1
Sub AddRow(extends l as listbox, a as string, b as string) l.AddRow a l.Cell(l.LastIndex,1)=b End Sub
End Module
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS Win Plugin.




Links
MBS Xojo PDF Plugins