aboutdialog.pro

Visual Prolog 7.1的一些学习资料,希望对您有用

/*****************************************************************************

                        Copyright (c) Prolog Development Center A/S

******************************************************************************/

implement aboutDialog
    inherits dialog
    open core, vpiDomains, resourceIdentifiers

constants
    className = "TaskWindow/aboutDialog".
    classVersion = "".

clauses
    classInfo(className, classVersion).

clauses
    new(Parent) :-
        dialog::new(Parent),
        generatedInitialize().
                        
% This code is maintained by the VDE. Do not update it manually, 17:08:54-19.10.2004
facts

predicates
    generatedInitialize : ().
clauses
    generatedInitialize():-
        setFont(vpi::fontCreateByName("MS Sans Serif", 8)),
        setText("About"),
        setRect(rct(122,26,266,126)),
        setModal(true),
        setDecoration(titlebar([closebutton()])),
        ButtonOk = button::newOk(This),
        ButtonOk:setText("&OK"),
        ButtonOk:setPosition(48, 84),
        setDefaultButton(ButtonOk),
        GroupBox = groupBox::new(This),
        GroupBox:setText(""),
        GroupBox:setPosition(4, 24),
        GroupBox:setSize(136, 56),
        TextDescription = textControl::new(GroupBox),
        TextDescription:setText("No description"),
        TextDescription:setPosition(8, 2),
        TextDescription:setSize(120, 10),
        TextDescription:setTabStop(true),
        TextVersion = textControl::new(GroupBox),
        TextVersion:setText("Version 1.0"),
        TextVersion:setPosition(8, 12),
        TextVersion:setSize(120, 10),
        TextVersion:setTabStop(true),
        TextCopyright = textControl::new(GroupBox),
        TextCopyright:setText("Copyright (c)"),
        TextCopyright:setPosition(8, 22),
        TextCopyright:setSize(120, 10),
        TextCopyright:setTabStop(true),
        TextCompany = textControl::new(GroupBox),
        TextCompany:setText("Prolog Development Center A/S"),
        TextCompany:setPosition(8, 32),
        TextCompany:setSize(120, 10),
        TextCompany:setTabStop(true),
        IconProject = iconControl::new(This),
        IconProject:setIcon(application_icon),
        IconProject:setPosition(12, 6).
% end of automatic code
end implement aboutDialog