Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
80
Ferestre/Vechi/fundal.sc2
Normal file
80
Ferestre/Vechi/fundal.sc2
Normal file
@@ -0,0 +1,80 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
AlwaysOnTop = .F.
|
||||
AutoCenter = .T.
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 0
|
||||
DoCreate = .T.
|
||||
Enabled = .T.
|
||||
Height = 337
|
||||
Name = "Ffergen1"
|
||||
Picture = ..\..\..\standarde\
|
||||
Width = 700
|
||||
WindowState = 0
|
||||
WindowType = 0
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Image1' AS image WITH ;
|
||||
Height = 189, ;
|
||||
Left = 68, ;
|
||||
Name = "Image1", ;
|
||||
Picture = ..\grafice\conimob.bmp, ;
|
||||
Stretch = 0, ;
|
||||
Top = 9, ;
|
||||
Width = 563
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
PROCEDURE Activate
|
||||
IF PRIMADATA
|
||||
Do ce_windows In pmenu.prg
|
||||
*!* PUBLIC op_imob
|
||||
*!* op_imob=Crea('p_imob')
|
||||
DO alegeprogram
|
||||
DO FORM START00
|
||||
OSTART=CREATEOBJ('START00')
|
||||
PRIMADATA=.F.
|
||||
op_imob.Show
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
*thisform.image1.height=thisform.height
|
||||
*thisform.image1.width=thisform.width
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Release
|
||||
OSTART.RELEASE
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE RightClick
|
||||
DO FORM START00
|
||||
*OSTART.SHOW(1)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Image1.RightClick
|
||||
thisform.rightclick
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user