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:
233
clase/otoolbar.vc2
Normal file
233
clase/otoolbar.vc2
Normal file
@@ -0,0 +1,233 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="otoolbar.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS img_help AS _image OF "_baza.vcx"
|
||||
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: comanda_program
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BackStyle = 0
|
||||
BorderColor = 255,255,255
|
||||
BorderStyle = 1
|
||||
comanda_program =
|
||||
Height = 26
|
||||
MousePointer = 15
|
||||
Name = "img_help"
|
||||
Picture = ..\grafice\help\_disabled_help.ico
|
||||
Stretch = 1
|
||||
Width = 26
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE Click
|
||||
IF !EMPTY(this.comanda_program)
|
||||
IF this.comanda_program<>'INACTIV'
|
||||
OPEN_DEFAULT_APP(this.comanda_program)
|
||||
ELSE
|
||||
AMESSAGEBOX("Manualul de utilizare nu este configurat corect!",0+48,"Atentie")
|
||||
ENDIF
|
||||
ELSE
|
||||
AMESSAGEBOX("Manualul de utilizare nu este instalat!",0+48,"Atentie")
|
||||
ENDIF
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS img_program AS _image OF "_baza.vcx"
|
||||
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: comanda_program
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BackStyle = 0
|
||||
BorderColor = 192,192,192
|
||||
BorderStyle = 1
|
||||
comanda_program =
|
||||
Height = 26
|
||||
MousePointer = 15
|
||||
Name = "img_program"
|
||||
Stretch = 1
|
||||
Width = 37
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE Click
|
||||
*!* If Like([*.htm],Lower(This.comanda_program)) Or Like([*.html],Lower(This.comanda_program))
|
||||
*!* open_default_app(This.comanda_program)
|
||||
*!* Else
|
||||
*!* Try
|
||||
*!* lcComanda = This.comanda_program + Alltrim(Str(gnan)) + [;] + Alltrim(Str(gnluna)) + ;
|
||||
*!* [;] + Alltrim(gcS) + [;] + Alltrim(Str(gnIdFirma))
|
||||
*!* &lcComanda
|
||||
*!* Catch
|
||||
*!* AMESSAGEBOX("Programul "+ Alltrim(This.ToolTipText) +" nu este instalat pe server!",0+48,"Atentie")
|
||||
*!* Finally
|
||||
*!* Endtry
|
||||
*!* Endif
|
||||
*!* modificare ROACONT-2.0.95
|
||||
Local loUpdate
|
||||
Local lbrun, lcAppVer, lcComanda, lcRun, loEx
|
||||
Local llFileExists
|
||||
loUpdate = Createobject("oUpdate", [])
|
||||
If Type('loUpdate') = 'O'
|
||||
lbrun = .T.
|
||||
*!* modificare 17.11.2011
|
||||
*!* lbrun=loUpdate.updatecheck(Juststem(This.comanda_program),.T.,0)
|
||||
Do Case
|
||||
Case Lower(This.comanda_program) = [romfast_suport.exe]
|
||||
llFileExists = File(m.gcDirMare + This.comanda_program)
|
||||
lbrun = loUpdate.updatecheckTxt(Juststem(This.comanda_program),.F., m.llFileExists)
|
||||
lbrun = File(m.gcDirMare + This.comanda_program)
|
||||
|
||||
Case Lower(This.comanda_program) = [roascreenshot.exe]
|
||||
llFileExists = File(m.gcDirMare + This.comanda_program)
|
||||
*MESSAGEBOX('File(' + m.gcDirMare + This.comanda_program + ')=' + TRANSFORM(m.llFileExists))
|
||||
lbrun = loUpdate. updatecheckTxt(Juststem(This.comanda_program),.F., m.llFileExists)
|
||||
lbrun = File(m.gcDirMare + This.comanda_program)
|
||||
Otherwise
|
||||
lbrun = loUpdate.updatecheck(Juststem(This.comanda_program), .T., 0)
|
||||
Endcase
|
||||
*!* modificare 17.11.2011 ^
|
||||
Release loUpdate
|
||||
Else
|
||||
lbrun = .T.
|
||||
Endif
|
||||
|
||||
If lbrun
|
||||
DO CASE
|
||||
CASE Like([*.htm], Lower(This.comanda_program)) Or Like([*.html], Lower(This.comanda_program))
|
||||
open_default_app(This.comanda_program)
|
||||
CASE Like([chatbot], Lower(This.comanda_program))
|
||||
open_default_app('https://www.romfast.ro/chatbot_maria.html')
|
||||
* Nu mai deschid formularul foxpro - nu stiu de ce da timeout
|
||||
* DO FORM frm_chatbot
|
||||
OTHERWISE
|
||||
Try
|
||||
*!* modificare 17.11.2011 ^
|
||||
*!* lcComanda = This.comanda_program + Alltrim(Str(gnan)) + [;] + Alltrim(Str(gnluna)) + ;
|
||||
*!* [;] + Alltrim(gcS) + [;] + Alltrim(Str(gnIdFirma))
|
||||
Do Case
|
||||
Case Lower(This.comanda_program) = "romfast_suport.exe"
|
||||
lcComanda = gcDirMare + This.comanda_program
|
||||
open_default_app(lcComanda)
|
||||
|
||||
Case Lower(This.comanda_program) = "roascreenshot.exe"
|
||||
lcComanda = gcDirMare + This.comanda_program
|
||||
Try
|
||||
lcAppVer = Getversion(gcAppName)
|
||||
lcComanda = ["] + gcDirMare + This.comanda_program + [" "office@romfast.ro" "Sesizare ] + Alltrim(gcAppName) + [ v] + m.lcAppVer + [ - ] + Alltrim(m.gcFirma) + [ - ] + Padl(m.gnLuna, 2, '0') + [/] + Alltrim(Str(m.gnAn)) + [ - ] + Alltrim(m.gcUserNameApp) + ["]
|
||||
Catch To loEx
|
||||
lcComanda = gcDirMare + This.comanda_program
|
||||
Endtry
|
||||
lcRun = [RUN /N ] + m.lcComanda
|
||||
|
||||
&lcRun
|
||||
|
||||
Otherwise
|
||||
lcComanda = This.comanda_program + Alltrim(Str(gnAn)) + [;] + Alltrim(Str(gnLuna)) + ;
|
||||
[;] + Alltrim(gcS) + [;] + Alltrim(Str(gnIdFirma))
|
||||
&lcComanda
|
||||
Endcase
|
||||
*!* modificare 17.11.2011 ^
|
||||
Catch To loEx
|
||||
Messagebox("Programul " + Alltrim(This.ToolTipText) + " nu este instalat!" + Chr(13) + Chr(10) + loEx.Message, 0 + 48, "Atentie")
|
||||
Endtry
|
||||
ENDCASE
|
||||
Endif
|
||||
*!* modificare ROACONT-2.0.95 ^
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS sep AS _shape OF "_baza.vcx"
|
||||
*< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
BackStyle = 0
|
||||
BorderColor = 192,192,192
|
||||
Height = 32
|
||||
Name = "sep"
|
||||
SpecialEffect = 0
|
||||
Style = 0
|
||||
Width = 2
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS tool AS toolbar
|
||||
*< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
Caption = "ROMFAST Applications"
|
||||
Height = 19
|
||||
Left = 0
|
||||
Name = "tool"
|
||||
Top = 0
|
||||
Width = 33
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS tool_help AS toolbar
|
||||
*< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
Caption = "Ajutor"
|
||||
Height = 19
|
||||
Left = 0
|
||||
Name = "tool_help"
|
||||
Top = 0
|
||||
Width = 33
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS toolhelp AS formset
|
||||
*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Tool_help1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "toolhelp"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Tool_help1' AS tool_help WITH ;
|
||||
Height = 19, ;
|
||||
Left = 201, ;
|
||||
Name = "Tool_help1", ;
|
||||
Top = 31, ;
|
||||
Width = 33
|
||||
*< END OBJECT: ClassLib="otoolbar.vcx" BaseClass="toolbar" />
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS toolset AS formset
|
||||
*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Tool1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
AutoRelease = .T.
|
||||
Name = "toolset"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Tool1' AS tool WITH ;
|
||||
ControlBox = .F., ;
|
||||
Height = 19, ;
|
||||
Left = 213, ;
|
||||
Name = "Tool1", ;
|
||||
Top = 10, ;
|
||||
Width = 33
|
||||
*< END OBJECT: ClassLib="otoolbar.vcx" BaseClass="toolbar" />
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user