forum.clarionlife.net

Код: Выделить всё

#EXTENSION (MDIBackground, 'Image on the MDI
background'),PROCEDURE,HLP('MDIBackground')
#!
#! Version: 2.0
#! Author:  George Petrov
#! Dated :  27.05.1996
#! e-Mail:  George.Petrov@Princen-IT.nl or 100276,2655 at CompuServe
#!
#SHEET
#TAB('Image on the MDI background')
#DISPLAY('')
#DISPLAY('This extension will put an image on the background')
#DISPLAY('of the Main MDI window.')
#DISPLAY('                                                Copyright (c)
1996')
#DISPLAY('                                                George Petrov')
#ENABLE(%True)
#SHEET
#TAB('Image Properties')
#PROMPT('File Name:',OPENDIALOG('Pick an Image
File','Bitmap!*.BMP!PaintBrush!*.PCX!Graphic Interchange
Format!*.GIF!JPEG!*.JPG!Windows metafile!*.WMF!All Files!*.*!All Graphics
Formats!*.BMP;*.ICO;*.PCX;*.GIF;*.JPG;*.WMF')),%ImageFileName
#PROMPT('Display 3D Border', CHECK),%Border3D,DEFAULT(0)
#PROMPT('Auto Center', CHECK),%AutoCenter,DEFAULT(1)
#PROMPT('Auto Size', CHECK),%AutoSize,DEFAULT(1)
#PROMPT('Palette', CHECK),%TINUSEPALETTE,DEFAULT(0)
#ENABLE(%AutoCenter=1)
#DISPLAY('        NOTE: To Use Auto Center you have to add the')
#DISPLAY('                   IMMEDIATE attribute to the MDI Window')
#ENDENABLE
#ENABLE(%AutoSize=0)
#PROMPT('Width:',SPIN(@n5,1,1500,10)),%ImageWidth,DEFAULT(150)
#PROMPT('Height:',SPIN(@n5,1,1500,10)),%ImageHeight,DEFAULT(100)
#ENDENABLE
#ENABLE(%TINUSEPALETTE)
#PROMPT('Colors:',SPIN(@n5,1,1500,1)),%TINPALETTESIZE,DEFAULT(256)
#ENDENABLE
#ENDTAB
#ENDSHEET
#ENDENABLE
#ENDTAB
#ENDSHEET
#ATSTART
#DECLARE(%BackWindowAT)
#DECLARE(%BackWindowFrame)
#DECLARE(%BackImageAT)
#DECLARE(%TINSETPALETTE)
#IF(%Border3D)
   #SET(%BackWindowFrame,'GRAY,DOUBLE')
#ELSE
   #SET(%BackWindowFrame,'NOFRAME')
#ENDIF
#IF(%TINUSEPALETTE)
   #SET(%TINSETPALETTE,',PALETTE(' & %TINPALETTESIZE & ')')
#ELSE
   #SET(%TINSETPALETTE,'')
#ENDIF
#IF(%AutoSize)
   #SET(%BackWindowAT,'')
   #SET(%BackImageAT,'')
#ELSE
   #SET(%BackWindowAT,',AT(,,' & %ImageWidth & ',' & %ImageHeight & ')')
   #SET(%BackImageAT,',FULL')
#ENDIF
#IF(%AutoCenter)
  #IF(EXTRACT(%WindowStatement,'IMM') = %False)
    #ERROR(%Procedure & ': Select the IMMEDIATE attribute on the window
structure!')
    #ERROR(%Procedure & ': No Auto Center code generated')
  #ENDIF
#ENDIF
#ENDAT
#AT(%DataSectionBeforeWindow )
MDILogoThread       LONG
#ENDAT
#AT(%ModuleDataSection)
  MAP
    %Window:Background()
    MODULE('')
        DisableWindow(USHORT,SHORT
Enabled=False),PASCAL,NAME('EnableWindow')
    END
  END
#ENDAT
#AT(%AfterWindowOpening)
MDILogoThread  = START(%Window:Background)
#ENDAT
#AT( %WindowEventHandling, 'sized' ),WHERE(%AutoCenter)
    POST( 550h, , MDILogoTHread )
#ENDAT
#AT(%ProcedureRoutines)
%Window:Background  PROCEDURE
BackWindow
WINDOW(''),MDI,CENTER,%BackWindowFrame%BackWindowAT%TINSETPALETTE
            IMAGE('%ImageFileName'),USE(?BackImage)%BackImageAT
            END
    CODE
    OPEN(BackWindow)
    BackWindow{PROP:Width}  = ?BackImage{PROP:Width}
    BackWindow{PROP:Height} = ?BackImage{PROP:Height}
    BackWindow{PROP:Center} = True
    DisableWindow(BackWindow{PROP:Handle})
    ACCEPT
        Case Event()
        #IF(%AutoCenter)
        Of 550h
           BackWindow{PROP:Center} = True
        #ENDIF
        of EVENT:CloseWindow
           Break
        end
    END
    CLOSE(BackWindow)
#ENDAT

Код: Выделить всё

  Of Event:UserRedraw
    DisableWindow(BackWindow{PROP:Handle}, True)
    ...
    Display
    DisableWindow(BackWindow{PROP:Handle})

Код: Выделить всё

AppFrame             APPLICATION...
                                  END