Monkeybread Xojo plugin - Example: /Win/Windows Locale Information

Platforms to show: All Mac Windows Linux Cross-Platform

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.xojo_binary_project"

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