msarson

                    PROGRAM

!A type, usually defined at the global scope
gtParams            GROUP,TYPE
p1                    LONG
p2                    LONG
p3                    LONG
p4                    String(20)
                    END

msarson

// To view the default settings, hold "alt" while clicking on the "Settings" button.
// For documentation on these settings, see: https://aka.ms/terminal-documentation

{
    "$schema": "https://aka.ms/terminal-profiles-schema",

    "defaultProfile": "{7d04ce37-c00f-43ac-ba47-992cb1393215}",
    "alwaysShowTabs":  true,
    "initialCols":  120,

msarson

  PROGRAM

                    MAP
MyMESSAGE               PROCEDURE(STRING text, <STRING caption>, <STRING icon>, <STRING buttons>, UNSIGNED default=0, UNSIGNED style=0),UNSIGNED,PROC
                    END

    CODE
        system{PROP:MessageHook} = Address(MyMESSAGE)
        Message('No')

msarson

  */--- Clarion 11.13505  February 12, 2020 ----- Fixes/Changes/Features--/
  ------------------------------------------------------------------------

FEATURE: AnyScreen "developer" functionality is integrated into both EE and PE 
FEATURE: Add support for the latest ODBC interfaces from Microsoft to the MSSQL driver
FEATURE: Add support for OPT attribute on SQL based keys
FEATURE: You can now set a filter to INLIST(field, value1, value2, ...) <> 0 and the SQL drivers will convert this to "var IN (field, field, ...)" rather than evaluating the filter locally

IMPROVEMENT: The IDE was using extra CPU cycles when code generation was waiting for a process to finish
IMPROVEMENT: ODBC drivers are now more efficient when BUFFER is being used

msarson

using System;
using System.ComponentModel;
using System.Linq;

namespace GroupTest
{
    public class GroupBaseClass : INotifyPropertyChanged
    {

        protected dynamic group;

msarson

  PROGRAM

                    MAP
HaltThread              PROCEDURE()
AnotherThread           PROCEDURE()

                    END
AppFrame            APPLICATION('Application'),AT(,,505,318),CENTER,MASK,SYSTEM,MAX, |
                        STATUS(-1,80,120,45),FONT('Segoe UI',8,,FONT:regular), |
                        RESIZE

msarson

                    PROGRAM

                    MAP
                    END
TextFEQ             LONG

Window              WINDOW('Test issue'),AT(,,600,273),GRAY,IMM,SYSTEM,MAX,FONT('Segoe UI', |
                        10,,,CHARSET:ANSI),RESIZE
                        TEXT,AT(462,1,136,254),USE(?TestText),SCROLL,VSCROLL
                        BUTTON('Button1'),AT(53,214),USE(?BUTTON1)

msarson

  PROGRAM

                    MAP
                    END

LineHeight          EQUATE(13)
SelectedColor       EQUATE(8388608)
SelectedFillColor   EQUATE(11525621)
GridColor           EQUATE(12632256)

msarson

                                PROGRAM
          
                                
                                MAP
AddToQ                          PROCEDURE(String FirstName, String LastName)
CreateRow                           PROCEDURE(),string
EndRow                              PROCEDURE(),string
CreateCell                          PROCEDURE(String theText, byte isHeader),string

msarson

                              program

                              map
                                atan2   (REAL pX, REAL pY),real
                              end

  code
  Message(ATan2(10,15))

!-------------------------------------------------