PWCT Samples : Developing large applications

PWCT Samples : Developing large applications

Postby Mahmoud Fayed » Mon Nov 11, 2013 1:16 pm

Hello

Programming Without Coding Technology (PWCT) Samples

Sample : Developing large applications

Steps Tree

Code: Select all
============
Main.SSF
============
The First Step
                Load System Modules
                                Set Procedure to "About.PRG"
                Create System Objects
                                Create Object AboutObject of Class AboutClass
                Define New Window  ( win1 ) , Title : "System"
                                Window Events
                                Window Properties
                                Window Controls
                                                START OF MAIN MENU
                                                                MENU POPUPS
                                                                                DEFINE POPUP "File"
                                                                                                POPUP ITEMS
                                                                                                                Define ITEM ( "About" )
                                                                                                                Define ITEM ( "Close System" )
                                                                                                END OF POPUP
                                                                END OF MAIN MENU
                                                Define New Statusbar
                                                                Items
                                                                                Define New StatusItem ( "Ready" )
                                                                                                Events
                                                                                                Properties
                                                                                Keyboard
                                                                                                Events
                                                                                                Properties
                                                                                Clock
                                                                                                Events
                                                                                                Properties
                                                                End Statusbar
                                End Of Window
                                win1.Maximize ( )
                                Activate window
Procedures
                Define Procedure closesystem
                                Start Here
                                                win1.Release ( )
                                End of Procedure
 
============
About.SSF
============
 
Set Class Name & Window Name
                PWCT-Code Generator: Replace String (MyClassName) with (AboutClass)
                PWCT-Code Generator: Replace String (MyWindowName) with (&(self:cWindowName))
Class
                Define Class MyClassName
                                Declare Class Data
                                                Data cWindowName Init Value "AboutWindow"
                                Declare Class Methods
                                                Method showwindow
                                                Method closewindow
                                End of Class
                                Class Methods
                                                Define Method showwindow Class MyClassName
                                                                Start Here
                                                                                Define New Window  ( MyWindowName ) , Title : "Welcome"
                                                                                                Window Events
                                                                                                Window Properties
                                                                                                Window Controls
                                                                                                                Define New Button ( btnClose ) , Caption : "Close"
                                                                                                                                Button Events
                                                                                                                                                Event: ON CLICK : Action self:closewindow
                                                                                                                                Button Properties
                                                                                                End Of Window
                                                                                                MyWindowName.Center ( )
                                                                                                Activate window
                                                                End of Method (Return 0)
                                                Define Method closewindow Class MyClassName
                                                                Start Here
                                                                                MyWindowName.Release ( )
                                                                End of Method (Return 0)


shot1.jpg
shot1.jpg (28.77 KiB) Viewed 8015 times


shot2.jpg
shot2.jpg (10.62 KiB) Viewed 8015 times


Greetings,
Mahmoud
Mahmoud Fayed
Site Admin
 
Posts: 642
Joined: Tue Apr 23, 2013 4:50 am

Return to Samples

Who is online

Users browsing this forum: No registered users and 1 guest

cron