Exercise exported desktop services

{
  "schemaVersion": 1,
  "projectId": "ab3e7724-fb71-4b4e-a5b1-5a9efe266bf3",
  "name": "WindowsServicesTest",
  "kind": "DesktopApp",
  "ai": {
    "storeChatsInProject": false
  },
  "language": {
    "dialect": "McBasic1",
    "requireExplicit": true,
    "compare": "Binary",
    "defaultArrayBase": 0
  },
  "application": {
    "bundleIdentifier": "com.mcbasic.samples.windowsservicestest",
    "version": "0.1.0",
    "buildNumber": "1",
    "appearance": "macOS",
    "startupFormId": "form-main",
    "shutdownMode": "OnStartupFormClosed"
  },
  "forms": [
    {
      "id": "form-main",
      "typeName": "frmMain",
      "layout": "Forms/frmMain.form.json",
      "code": "Forms/frmMain.bas"
    },
    {
      "id": "form-second",
      "typeName": "frmSecond",
      "layout": "Forms/frmSecond.form.json",
      "code": "Forms/frmSecond.bas"
    },
    {
      "id": "form-nobox",
      "typeName": "frmNoBox",
      "layout": "Forms/frmNoBox.form.json",
      "code": "Forms/frmNoBox.bas"
    }
  ],
  "modules": [],
  "classes": [],
  "tests": [],
  "references": [],
  "resources": [
    {
      "name": "Tone",
      "path": "Resources/tone.wav"
    },
    {
      "name": "HelloReport",
      "path": "Resources/Reports/Hello.report.json"
    },
    {
      "name": "DemoVideo",
      "path": "Resources/demo.mp4"
    }
  ],
  "targets": [
    "osx-arm64"
  ],
  "capabilities": []
}

Private Sub Form_Load()
    lblStatus.Caption = "Ready. Audio state: " + audTone.State
End Sub

Private Sub ShowMsgResult(ByVal Style As String, ByVal Result As Long)
    lblStatus.Caption = Style + " returned " + CStr(Result)
End Sub

Private Sub ShowDialogResult(ByVal Value As String)
    If dlgCommon.Cancelled Then
        lblStatus.Caption = dlgCommon.LastAction + " cancelled"
    Else
        lblStatus.Caption = dlgCommon.LastAction + ": " + Value
    End If
End Sub

Private Sub cmdMsgOk_Click()
    ShowMsgResult "OK only", MsgBox("This is a message with an OK button.", vbOKOnly, "Windows Services Test")
End Sub

Private Sub cmdMsgYnc_Click()
    ShowMsgResult "Yes/No/Cancel", MsgBox("Do you want to continue?", vbYesNoCancel + vbQuestion + vbDefaultButton2, "Question")
End Sub

Private Sub cmdMsgCrit_Click()
    ShowMsgResult "Critical", MsgBox("Something went wrong.", vbOKOnly + vbCritical, "Critical")
End Sub

Private Sub cmdMsgExcl_Click()
    ShowMsgResult "Exclamation", MsgBox("Take care.", vbOKOnly + vbExclamation, "Exclamation")
End Sub

Private Sub cmdMsgInfo_Click()
    ShowMsgResult "Information", MsgBox("For your information.", vbOKOnly + vbInformation, "Information")
End Sub

Private Sub cmdInput_Click()
    Dim Answer As String
    Answer = InputBox("What is your name?", "InputBox", "Ada")
    lblStatus.Caption = "InputBox returned [" + Answer + "]"
End Sub

Private Sub cmdOpen_Click()
    dlgCommon.ShowOpen
    ShowDialogResult dlgCommon.FileName
End Sub

Private Sub cmdSave_Click()
    dlgCommon.ShowSave
    ShowDialogResult dlgCommon.FileName
End Sub

Private Sub cmdFolder_Click()
    dlgCommon.ShowFolder
    ShowDialogResult dlgCommon.FileName
End Sub

Private Sub cmdColor_Click()
    dlgCommon.ShowColor
    If Not dlgCommon.Cancelled Then pnlColor.BackColor = dlgCommon.Color
    ShowDialogResult dlgCommon.Color
End Sub

Private Sub cmdFont_Click()
    dlgCommon.ShowFont
    If Not dlgCommon.Cancelled Then lblFontSample.Font = dlgCommon.Font
    ShowDialogResult dlgCommon.Font
End Sub

Private Sub cmdPrinter_Click()
    dlgCommon.ShowPrinter
    ShowDialogResult dlgCommon.PrinterName + " / " + dlgCommon.PaperName
End Sub

Private Sub cmdPageSetup_Click()
    dlgCommon.ShowPageSetup
    ShowDialogResult dlgCommon.PageOrientation + " " + CStr(dlgCommon.PageWidth) + " x " + CStr(dlgCommon.PageHeight)
End Sub

Private Sub cmdClip_Click()
    Dim Back As String
    Clipboard.SetText "McBasic clipboard test"
    Back = Clipboard.GetText()
    lblStatus.Caption = "Clipboard has text: " + CStr(Clipboard.HasText()) + ", read back [" + Back + "]"
    Clipboard.Clear
    lblStatus.Caption = lblStatus.Caption + "; after Clear has text: " + CStr(Clipboard.HasText())
End Sub

Private Sub cmdUrl_Click()
    Platform.OpenUrl "https://www.mcbasic.com"
    lblStatus.Caption = "Asked the system to open https://www.mcbasic.com"
End Sub

Private Sub cmdPlay_Click()
    audTone.Play
    lblStatus.Caption = "Audio state: " + audTone.State
End Sub

Private Sub cmdPause_Click()
    audTone.Pause
    lblStatus.Caption = "Audio state: " + audTone.State
End Sub

Private Sub cmdStop_Click()
    audTone.Stop
    lblStatus.Caption = "Audio state: " + audTone.State
End Sub

Private Sub cmdSeek_Click()
    audTone.Position = 0.5
    audTone.Play
    lblStatus.Caption = "Position set to 0.5 before Play; state: " + audTone.State
End Sub

Private Sub cmdVol_Click()
    audTone.Volume = 0.5
    lblStatus.Caption = "Volume is " + CStr(audTone.Volume)
End Sub

Private Sub audTone_Failed()
    lblStatus.Caption = "Audio failed: " + audTone.Error
End Sub

Private Sub audTone_Completed()
    lblStatus.Caption = "Audio completed"
End Sub

Private Sub ShowVideo(ByVal Action As String)
    lblStatus.Caption = Action + "; video state: " + vidDemo.State + ", position " + CStr(vidDemo.Position) + " of " + CStr(vidDemo.Duration) + " s"
End Sub

Private Sub cmdVidPlay_Click()
    vidDemo.Play
    ShowVideo "Video Play"
End Sub

Private Sub cmdVidPause_Click()
    vidDemo.Pause
    ShowVideo "Video Pause"
End Sub

Private Sub cmdVidStop_Click()
    vidDemo.Stop
    ShowVideo "Video Stop"
End Sub

Private Sub cmdVidPos_Click()
    vidDemo.Position = 0.5
    vidDemo.Play
    ShowVideo "Video Position 0.5 + Play"
End Sub

Private Sub cmdVidVol_Click()
    vidDemo.Volume = 0.3
    lblStatus.Caption = "Video volume is " + CStr(vidDemo.Volume)
End Sub

Private Sub cmdVidLoop_Click()
    vidDemo.Loop = Not vidDemo.Loop
    lblStatus.Caption = "Video Loop is " + CStr(vidDemo.Loop)
End Sub

Private Sub cmdVidStretch_Click()
    If vidDemo.Stretch = "Uniform" Then
        vidDemo.Stretch = "Fill"
    ElseIf vidDemo.Stretch = "Fill" Then
        vidDemo.Stretch = "UniformToFill"
    Else
        vidDemo.Stretch = "Uniform"
    End If
    lblStatus.Caption = "Video Stretch is " + vidDemo.Stretch
End Sub

Private Sub vidDemo_Loaded()
    lblStatus.Caption = "Video loaded (" + CStr(vidDemo.Duration) + " s)"
End Sub

Private Sub vidDemo_Completed()
    lblStatus.Caption = "Video completed"
End Sub

Private Sub vidDemo_Failed()
    lblStatus.Caption = "Video failed: " + vidDemo.Error
End Sub

Private Sub vidDemo_StateChanged()
    lblStatus.Caption = "Video state: " + vidDemo.State
End Sub

Private Sub cmdSecond_Click()
    Dim f As frmSecond
    Set f = New frmSecond
    f.Show
    lblStatus.Caption = "Second form opened (modeless)"
End Sub

Private Sub cmdNoBox_Click()
    Dim f As frmNoBox
    Set f = New frmNoBox
    f.Show
    lblStatus.Caption = "Form without control box opened"
End Sub

Private Sub cmdReport_Click()
    Try
        If Reports.Print(App.ResourcePath & "/Resources/Reports/Hello.report.json") Then
            lblStatus.Caption = "Report sent to the printer"
        Else
            lblStatus.Caption = "Report printing cancelled"
        End If
    Catch failure As McException
        lblStatus.Caption = "Report failed " & CStr(failure.Number) & ": " & failure.Message
    End Try
End Sub

Private Sub cmdError_Click()
    Err.Raise 5, "WindowsServicesTest", "This error was raised on purpose."
End Sub

Private Sub mnuFileOpen_Click()
    lblStatus.Caption = "Menu: File > Open"
End Sub

Private Sub mnuFileSave_Click()
    lblStatus.Caption = "Menu: File > Save"
End Sub

Private Sub mnuFileExit_Click()
    lblStatus.Caption = "Menu: File > Exit"
    Unload Me
End Sub

Private Sub mnuEditCopy_Click()
    lblStatus.Caption = "Menu: Edit > Copy"
End Sub

Private Sub mnuEditPaste_Click()
    lblStatus.Caption = "Menu: Edit > Paste"
End Sub

Option Explicit

' frmMain: tries every platform service on one form (dialogs, clipboard, URL, audio, video, menus, a second form, a run-time error).
' Each action writes its result to lblStatus, so no MsgBox is needed to read it (the MsgBox buttons show the value they return).

' Shows a short ready message when the form loads.
Private Sub Form_Load()
    lblStatus.Caption = "Ready. Audio state: " + audTone.State
End Sub

' Reports the value a MsgBox returned (1 OK, 2 Cancel, 6 Yes, 7 No).
Private Sub ShowMsgResult(ByVal Style As String, ByVal Result As Long)
    lblStatus.Caption = Style + " returned " + CStr(Result)
End Sub

' Reports a CommonDialog result, or that the person cancelled.
Private Sub ShowDialogResult(ByVal Value As String)
    If dlgCommon.Cancelled Then
        lblStatus.Caption = dlgCommon.LastAction + " cancelled"
    Else
        lblStatus.Caption = dlgCommon.LastAction + ": " + Value
    End If
End Sub

' MsgBox with the OK button only.
Private Sub cmdMsgOk_Click()
    ShowMsgResult "OK only", MsgBox("This is a message with an OK button.", vbOKOnly, "Windows Services Test")
End Sub

' MsgBox with Yes, No and Cancel, a question icon and the second button (No) as default.
Private Sub cmdMsgYnc_Click()
    ShowMsgResult "Yes/No/Cancel", MsgBox("Do you want to continue?", vbYesNoCancel + vbQuestion + vbDefaultButton2, "Question")
End Sub

' MsgBox with the critical (error) icon.
Private Sub cmdMsgCrit_Click()
    ShowMsgResult "Critical", MsgBox("Something went wrong.", vbOKOnly + vbCritical, "Critical")
End Sub

' MsgBox with the exclamation (warning) icon.
Private Sub cmdMsgExcl_Click()
    ShowMsgResult "Exclamation", MsgBox("Take care.", vbOKOnly + vbExclamation, "Exclamation")
End Sub

' MsgBox with the information icon.
Private Sub cmdMsgInfo_Click()
    ShowMsgResult "Information", MsgBox("For your information.", vbOKOnly + vbInformation, "Information")
End Sub

' InputBox with a default value; Cancel returns an empty string.
Private Sub cmdInput_Click()
    Dim Answer As String
    Answer = InputBox("What is your name?", "InputBox", "Ada")
    lblStatus.Caption = "InputBox returned [" + Answer + "]"
End Sub

' Open dialog limited by the filter set on the component.
Private Sub cmdOpen_Click()
    dlgCommon.ShowOpen
    ShowDialogResult dlgCommon.FileName
End Sub

' Save dialog.
Private Sub cmdSave_Click()
    dlgCommon.ShowSave
    ShowDialogResult dlgCommon.FileName
End Sub

' Folder dialog.
Private Sub cmdFolder_Click()
    dlgCommon.ShowFolder
    ShowDialogResult dlgCommon.FileName
End Sub

' Color dialog; paints the sample panel with the chosen color.
Private Sub cmdColor_Click()
    dlgCommon.ShowColor
    If Not dlgCommon.Cancelled Then pnlColor.BackColor = dlgCommon.Color
    ShowDialogResult dlgCommon.Color
End Sub

' Font dialog; applies the chosen font to the sample label.
Private Sub cmdFont_Click()
    dlgCommon.ShowFont
    If Not dlgCommon.Cancelled Then lblFontSample.Font = dlgCommon.Font
    ShowDialogResult dlgCommon.Font
End Sub

' Print dialog; shows the printer and paper it returned.
Private Sub cmdPrinter_Click()
    dlgCommon.ShowPrinter
    ShowDialogResult dlgCommon.PrinterName + " / " + dlgCommon.PaperName
End Sub

' Page setup dialog; shows orientation and page size.
Private Sub cmdPageSetup_Click()
    dlgCommon.ShowPageSetup
    ShowDialogResult dlgCommon.PageOrientation + " " + CStr(dlgCommon.PageWidth) + " x " + CStr(dlgCommon.PageHeight)
End Sub

' Clipboard round trip: set, test, read, clear, test again.
Private Sub cmdClip_Click()
    Dim Back As String
    Clipboard.SetText "McBasic clipboard test"
    Back = Clipboard.GetText()
    lblStatus.Caption = "Clipboard has text: " + CStr(Clipboard.HasText()) + ", read back [" + Back + "]"
    Clipboard.Clear
    lblStatus.Caption = lblStatus.Caption + "; after Clear has text: " + CStr(Clipboard.HasText())
End Sub

' Opens the McBasic web site in the default browser.
Private Sub cmdUrl_Click()
    Platform.OpenUrl "https://www.mcbasic.com"
    lblStatus.Caption = "Asked the system to open https://www.mcbasic.com"
End Sub

' Starts the audio from the beginning.
Private Sub cmdPlay_Click()
    audTone.Play
    lblStatus.Caption = "Audio state: " + audTone.State
End Sub

' Pauses the audio.
Private Sub cmdPause_Click()
    audTone.Pause
    lblStatus.Caption = "Audio state: " + audTone.State
End Sub

' Stops the audio.
Private Sub cmdStop_Click()
    audTone.Stop
    lblStatus.Caption = "Audio state: " + audTone.State
End Sub

' Sets Position to 0.5 seconds before Play (must not fail), then plays.
Private Sub cmdSeek_Click()
    audTone.Position = 0.5
    audTone.Play
    lblStatus.Caption = "Position set to 0.5 before Play; state: " + audTone.State
End Sub

' Sets the player volume to half.
Private Sub cmdVol_Click()
    audTone.Volume = 0.5
    lblStatus.Caption = "Volume is " + CStr(audTone.Volume)
End Sub

' Reports an audio error text.
Private Sub audTone_Failed()
    lblStatus.Caption = "Audio failed: " + audTone.Error
End Sub

' Reports that playback reached the end.
Private Sub audTone_Completed()
    lblStatus.Caption = "Audio completed"
End Sub

' Shows the video state, with the position while it plays.
Private Sub ShowVideo(ByVal Action As String)
    lblStatus.Caption = Action + "; video state: " + vidDemo.State + ", position " + CStr(vidDemo.Position) + " of " + CStr(vidDemo.Duration) + " s"
End Sub

' Plays the one-second demo clip (a resumed pause continues where it stopped).
Private Sub cmdVidPlay_Click()
    vidDemo.Play
    ShowVideo "Video Play"
End Sub

' Pauses the clip.
Private Sub cmdVidPause_Click()
    vidDemo.Pause
    ShowVideo "Video Pause"
End Sub

' Stops the clip and rewinds it.
Private Sub cmdVidStop_Click()
    vidDemo.Stop
    ShowVideo "Video Stop"
End Sub

' Moves to half a second (the clip is one second long), then plays from there.
Private Sub cmdVidPos_Click()
    vidDemo.Position = 0.5
    vidDemo.Play
    ShowVideo "Video Position 0.5 + Play"
End Sub

' Sets the video volume to 0.3 (the demo clip has no sound track, so this only proves the call works).
Private Sub cmdVidVol_Click()
    vidDemo.Volume = 0.3
    lblStatus.Caption = "Video volume is " + CStr(vidDemo.Volume)
End Sub

' Turns Loop on or off; with Loop on the clip restarts at the end until Pause or Stop.
Private Sub cmdVidLoop_Click()
    vidDemo.Loop = Not vidDemo.Loop
    lblStatus.Caption = "Video Loop is " + CStr(vidDemo.Loop)
End Sub

' Cycles Stretch: Uniform, Fill, UniformToFill, then Uniform again.
Private Sub cmdVidStretch_Click()
    If vidDemo.Stretch = "Uniform" Then
        vidDemo.Stretch = "Fill"
    ElseIf vidDemo.Stretch = "Fill" Then
        vidDemo.Stretch = "UniformToFill"
    Else
        vidDemo.Stretch = "Uniform"
    End If
    lblStatus.Caption = "Video Stretch is " + vidDemo.Stretch
End Sub

' Reports that the clip is ready, with its length.
Private Sub vidDemo_Loaded()
    lblStatus.Caption = "Video loaded (" + CStr(vidDemo.Duration) + " s)"
End Sub

' Reports that the clip reached the end (never with Loop on).
Private Sub vidDemo_Completed()
    lblStatus.Caption = "Video completed"
End Sub

' Reports why the clip cannot play.
Private Sub vidDemo_Failed()
    lblStatus.Caption = "Video failed: " + vidDemo.Error
End Sub

' Shows each state change (Loaded, Playing, Paused, Stopped, Completed).
Private Sub vidDemo_StateChanged()
    lblStatus.Caption = "Video state: " + vidDemo.State
End Sub

' Opens the second form modelessly, so this form stays usable.
Private Sub cmdSecond_Click()
    Dim f As frmSecond
    Set f = New frmSecond
    f.Show
    lblStatus.Caption = "Second form opened (modeless)"
End Sub

' Opens a form with ControlBox = False and no menus: on Windows it gets a Help > About menu bar.
Private Sub cmdNoBox_Click()
    Dim f As frmNoBox
    Set f = New frmNoBox
    f.Show
    lblStatus.Caption = "Form without control box opened"
End Sub

' Prints a one-page report through the system print dialog (the Windows Print dialog on Windows).
' Cancel returns False; a printer error stops the call with error 5 and the reason, shown in the label.
Private Sub cmdReport_Click()
    Try
        If Reports.Print(App.ResourcePath & "/Resources/Reports/Hello.report.json") Then
            lblStatus.Caption = "Report sent to the printer"
        Else
            lblStatus.Caption = "Report printing cancelled"
        End If
    Catch failure As McException
        lblStatus.Caption = "Report failed " & CStr(failure.Number) & ": " & failure.Message
    End Try
End Sub

' Raises run-time error 5 on purpose to show the error dialog.
Private Sub cmdError_Click()
    Err.Raise 5, "WindowsServicesTest", "This error was raised on purpose."
End Sub

' File > Open (Ctrl+O).
Private Sub mnuFileOpen_Click()
    lblStatus.Caption = "Menu: File > Open"
End Sub

' File > Save (Ctrl+S).
Private Sub mnuFileSave_Click()
    lblStatus.Caption = "Menu: File > Save"
End Sub

' File > Exit closes the window.
Private Sub mnuFileExit_Click()
    lblStatus.Caption = "Menu: File > Exit"
    Unload Me
End Sub

' Edit > Copy (Ctrl+C).
Private Sub mnuEditCopy_Click()
    lblStatus.Caption = "Menu: Edit > Copy"
End Sub

' Edit > Paste (Ctrl+V).
Private Sub mnuEditPaste_Click()
    lblStatus.Caption = "Menu: Edit > Paste"
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

Option Explicit

' frmSecond: a small form that frmMain opens modelessly.

' Closes this form; the main form stays open.
Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

Option Explicit

' frmNoBox: a form with ControlBox = False and no menus. Windows gives it no system menu, so McBasic adds a menu bar
' with only Help > About; this form proves the About stays reachable.

' Closes this form (it has no Close button of its own); the main form stays open.
Private Sub cmdClose_Click()
    Unload Me
End Sub

{
  "schemaVersion": 1,
  "title": "WindowsServicesTest report",
  "page": {
    "size": "A4",
    "orientation": "Portrait",
    "margin": 42
  },
  "paragraphs": [
    "A one-page report for the Windows test: Reports.Print shows the Windows Print dialog and prints this page on the chosen printer."
  ],
  "columns": [
    {
      "header": "Service",
      "weight": 2,
      "alignment": "Left"
    },
    {
      "header": "Result",
      "weight": 1,
      "alignment": "Right"
    }
  ],
  "rows": [
    ["MsgBox", "1"],
    ["Clipboard", "2"],
    ["Audio", "3"]
  ],
  "totalColumn": 1
}