738 lines
19 KiB
Plaintext
738 lines
19 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="cmd_butoane.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
DEFINE CLASS but_attach AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_ataseaza
|
||
cpicturedown = attach_jos.bmp
|
||
cpictureup = attach_sus.bmp
|
||
Name = "but_attach"
|
||
Picture = ..\grafice\attach_sus.bmp
|
||
ToolTipText = "Atasare"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_cautare AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_cauta
|
||
cpicturedown = searchalb.bmp
|
||
cpictureup = searchalb.bmp
|
||
Height = 28
|
||
Name = "but_cautare"
|
||
Picture = ..\grafice\searchalb.bmp
|
||
SpecialEffect = 0
|
||
Width = 31
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_compara AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_compara
|
||
cpicturedown = compara_jos.bmp
|
||
cpictureup = compara_sus.bmp
|
||
Name = "but_compara"
|
||
Picture = ..\grafice\compara_sus.bmp
|
||
ToolTipText = "Comparare"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_copiaza AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_copiaza
|
||
cpicturedown = copy_jos.bmp
|
||
cpictureup = copy_sus.bmp
|
||
Name = "but_copiaza"
|
||
Picture = ..\grafice\copy_sus.bmp
|
||
ToolTipText = "Copiere (CTRL+K)"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_da AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_termin
|
||
cpicturedown = da_jos.bmp
|
||
cpictureup = da_sus.bmp
|
||
Height = 31
|
||
Name = "but_da"
|
||
Picture = ..\grafice\da_sus.bmp
|
||
ToolTipText = "Renuntare (ESC)"
|
||
Width = 54
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_excel AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = inainte_de_do_excel
|
||
cpicturedown = excel_jos.bmp
|
||
cpictureup = excel_sus.bmp
|
||
Name = "but_excel"
|
||
Picture = ..\grafice\excel_sus.bmp
|
||
ToolTipText = "Fisier Excel (CTRL+E)"
|
||
Visible = .F.
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_factura AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_factura
|
||
cpicturedown = factura2.bmp
|
||
cpictureup = factura1.bmp
|
||
Name = "but_factura"
|
||
Picture = ..\grafice\factura1.bmp
|
||
ToolTipText = "Factura"
|
||
Visible = .F.
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_grafic AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_grafic
|
||
cpicturedown = grafic_jos.bmp
|
||
cpictureup = grafic_sus.bmp
|
||
Name = "but_grafic"
|
||
Picture = ..\grafice\grafic_sus.bmp
|
||
ToolTipText = "Grafic (CTRL+G)"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_help AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_help
|
||
cpicturedown = help_jos.bmp
|
||
cpictureup = help_sus.bmp
|
||
Name = "but_help"
|
||
Picture = ..\..\comun\grafice\help_sus.bmp
|
||
ToolTipText = "Help (CTRL+ H)"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_jos AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_scrolldown
|
||
cpicturedown = jos2.bmp
|
||
cpictureup = jos1.bmp
|
||
Height = 30
|
||
Name = "but_jos"
|
||
Picture = ..\grafice\jos1.bmp
|
||
ToolTipText = "Jos"
|
||
Width = 27
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_listare AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = inainte_de_do_listare
|
||
cpicturedown = listare_jos.bmp
|
||
cpictureup = listare_sus.bmp
|
||
Name = "but_listare"
|
||
Picture = ..\grafice\listare_sus.bmp
|
||
ToolTipText = "Listare (CTRL+P)"
|
||
Visible = .F.
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_listfactura AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_listfact
|
||
cpicturedown = listare_jos.bmp
|
||
cpictureup = listare_sus.bmp
|
||
Name = "but_listfactura"
|
||
Picture = ..\grafice\listare_sus.bmp
|
||
Visible = .F.
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_modifica AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = inainte_de_do_modifica
|
||
cpicturedown = modific_jos.bmp
|
||
cpictureup = modific_sus.bmp
|
||
MousePointer = 0
|
||
Name = "but_modifica"
|
||
Picture = ..\grafice\modific_sus.bmp
|
||
ToolTipText = "Modificare (CTRL+M)"
|
||
Visible = .F.
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_modiparam AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_modiparam
|
||
cpicturedown = modiparam_jos.bmp
|
||
cpictureup = modiparam_sus.bmp
|
||
Name = "but_modiparam"
|
||
Picture = ..\grafice\modiparam_sus.bmp
|
||
ToolTipText = "Modificare parametri"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_nou AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_adauga
|
||
cpicturedown = nou_jos.bmp
|
||
cpictureup = nou_sus.bmp
|
||
DisabledPicture = ..\grafice\nou_sus_dis.bmp
|
||
Name = "but_nou"
|
||
Picture = ..\grafice\nou_sus.bmp
|
||
ToolTipText = "Adaugare (CTRL+N)"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_nou_gri AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_adauga
|
||
cpicturedown = nou_jos_dis.bmp
|
||
cpictureup = nou_sus_dis.bmp
|
||
Name = "but_noup"
|
||
Picture = ..\grafice\nou_sus_dis.bmp
|
||
ToolTipText = "Adaugare (CTRL+N)"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_nu AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_renunt
|
||
cpicturedown = nu_jos.bmp
|
||
cpictureup = nu_sus.bmp
|
||
Height = 32
|
||
Name = "but_nu"
|
||
Picture = ..\grafice\nu_sus.bmp
|
||
ToolTipText = "Renuntare (ESC)"
|
||
Width = 56
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_precedent AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_precedent
|
||
cpicturedown = precedent2.bmp
|
||
cpictureup = precedent1.bmp
|
||
Name = "but_precedent"
|
||
Picture = ..\grafice\precedent1.bmp
|
||
ToolTipText = "Verificare"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_reface AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = inainte_de_do_reface
|
||
cpicturedown = refac_jos.bmp
|
||
cpictureup = refac_sus.bmp
|
||
Name = "but_reface"
|
||
Picture = ..\grafice\refac_sus.bmp
|
||
ToolTipText = "Refacere"
|
||
Visible = .F.
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_renunt AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_renunt
|
||
cpicturedown = renunt_jos.bmp
|
||
cpictureup = renunt_sus.bmp
|
||
Name = "but_renunt"
|
||
Picture = ..\grafice\renunt_sus.bmp
|
||
ToolTipText = "Renuntare (ESC)"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_reset AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: _memberdata && XML Metadata for customizable properties
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
caction = do_reset
|
||
Caption = ""
|
||
cpicturedown = reset_jos.bmp
|
||
cpictureup = reset_sus.bmp
|
||
Name = "but_reset"
|
||
Picture = ..\grafice\reset_sus.bmp
|
||
ToolTipText = "Reseteaza"
|
||
_memberdata = <VFPData>
|
||
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_retur AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_retur
|
||
cpicturedown = retur2.bmp
|
||
cpictureup = retur1.bmp
|
||
MousePointer = 0
|
||
Name = "but_retur"
|
||
Picture = ..\grafice\retur1.bmp
|
||
ToolTipText = "Retur"
|
||
Visible = .F.
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_salveaza AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_salvare
|
||
cpicturedown = save_jos.bmp
|
||
cpictureup = save_sus.bmp
|
||
Name = "but_salveaza"
|
||
Picture = ..\grafice\save_sus.bmp
|
||
ToolTipText = "Salvare"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_sterge AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = inainte_de_do_sterge
|
||
cpicturedown = sterg_jos.bmp
|
||
cpictureup = sterg_sus.bmp
|
||
DisabledPicture = ..\grafice\sterg2_sus_dis.bmp
|
||
Name = "but_sterge"
|
||
Picture = ..\grafice\sterg_sus.bmp
|
||
ToolTipText = "Stergere (CTRL+D)"
|
||
Visible = .F.
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_sus AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_scrollup
|
||
cpicturedown = sus2.bmp
|
||
cpictureup = sus1.bmp
|
||
Height = 30
|
||
Name = "but_sus"
|
||
Picture = ..\grafice\sus1.bmp
|
||
ToolTipText = "Sus"
|
||
Width = 27
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_termin AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_termin
|
||
cpicturedown = terminat_jos.bmp
|
||
cpictureup = terminat_sus.bmp
|
||
Name = "but_termin"
|
||
Picture = ..\grafice\terminat_sus.bmp
|
||
ToolTipText = "Terminare (CTRL+F)"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_urmator AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_urmator
|
||
cpicturedown = urmator2.bmp
|
||
cpictureup = urmator1.bmp
|
||
Name = "but_urmator"
|
||
Picture = ..\grafice\urmator1.bmp
|
||
ToolTipText = "Verificare"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_urmator_tot AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_urmator_tot
|
||
cpicturedown = urmator2_tot.bmp
|
||
cpictureup = urmator1_tot.bmp
|
||
Name = "but_urmator_tot"
|
||
Picture = ..\grafice\urmator1_tot.bmp
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS but_verifica AS buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_verifica
|
||
cpicturedown = verificare2.bmp
|
||
cpictureup = verificare1.bmp
|
||
Name = "but_verifica"
|
||
Picture = ..\grafice\verificare1.bmp
|
||
ToolTipText = "Verificare"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_adauga AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_adauga
|
||
Caption = "\<Adaug<75>"
|
||
FontBold = .T.
|
||
Name = "cmd_adauga"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_cauta AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_cauta
|
||
Caption = "\<Caut<75>"
|
||
FontBold = .T.
|
||
Name = "cmd_cauta"
|
||
ToolTipText = "ALT+C"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_executa AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: lvizibil && .F. daca butonul nu este vizibil , .T. daca butonul este vizibil (in functie de drepturi). Proprietatea ptr. butoanele care au visible=.F. default.
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
caction = do_executa
|
||
Caption = "\<Execut<75>"
|
||
FontBold = .T.
|
||
lvizibil = .T.
|
||
Name = "cmd_executa"
|
||
_memberdata = <VFPData>
|
||
<memberdata name="lvizibil" display="lVizibil"/>
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_login AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_login
|
||
Caption = "Log \<In"
|
||
FontBold = .T.
|
||
Name = "cmd_login"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_logoff AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_logoff
|
||
Caption = "Log \<Off"
|
||
FontBold = .T.
|
||
Name = "cmd_logoff"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_modifica AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = inainte_de_do_modifica
|
||
Caption = "\<Modifica"
|
||
FontBold = .T.
|
||
Name = "cmd_modifica"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_renunt AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_renunt
|
||
Caption = "\<Renun<75>"
|
||
FontBold = .T.
|
||
Name = "cmd_renunt"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_reset AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_reset
|
||
Caption = "\<Reset"
|
||
FontBold = .T.
|
||
Name = "cmd_reset"
|
||
TabStop = .F.
|
||
ToolTipText = "ALT+R"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_select AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: schimba_caption
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
caction = do_select
|
||
Caption = "\<Selecteaz<61> tot"
|
||
FontBold = .T.
|
||
Name = "cmd_select"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_select_adv AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: do_bifeaza && Metoda delegat pentru click-ul pe coloana cu bifa.
|
||
*m: do_reset
|
||
*m: schimba_caption
|
||
*m: setup
|
||
*p: ccoloana && Numele coloanei din cursor pentru care se aplica bifa.
|
||
*p: ccursor
|
||
*p: cfiltrusuplimentar && Conditie SQL suplimentara (sintaxa FOR/WHERE), aplicata DOAR pe ramura de selectare (nu si la deselectare); goala = comportament neschimbat.
|
||
*p: cgrid && Numele obiectului (de ex. : thisform.grid1 ).
|
||
*p: ncheck && Index-ul obiectului de tip checkbox in array-ul Objects al coloanei din grid.
|
||
*p: ncoloana && Index-ul coloanei in array-ul Objects al gridului.
|
||
*p: nselectate && Numarul de randuri selectate
|
||
*</DefinedPropArrayMethod>
|
||
|
||
HIDDEN ncheck,ncoloana
|
||
*<PropValue>
|
||
Caption = "\<Selecteaz<61> tot"
|
||
ccoloana =
|
||
ccursor =
|
||
cFiltruSuplimentar =
|
||
cgrid =
|
||
FontBold = .T.
|
||
Height = 27
|
||
Name = "cmd_select_adv"
|
||
ncheck = 0
|
||
ncoloana = 0
|
||
nselectate = 0
|
||
Width = 111
|
||
_memberdata = <VFPData>
|
||
<memberdata name="ccoloana" type="Property" favorites="True"/>
|
||
<memberdata name="cgrid" type="Property" favorites="True"/>
|
||
<memberdata name="cFiltruSuplimentar" type="Property" favorites="True"/>
|
||
<memberdata name="setup" display="Setup"/>
|
||
<memberdata name="ccursor" display="cCursor"/>
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
PROCEDURE Click
|
||
If !Empty(This.ccoloana) And !Empty(This.ccursor)
|
||
lcCursor = This.ccursor
|
||
lcColoana = This.ccoloana
|
||
lcFiltru = Iif(Empty(Filter(lcCursor)),[2=2],Filter(lcCursor))
|
||
Select (lcCursor)
|
||
If Reccount(lcCursor) > 0
|
||
lnRecno = Recno()
|
||
Set Filter To
|
||
If This.nselectate = 0
|
||
lcFiltruSelect = lcFiltru
|
||
If !Empty(This.cFiltruSuplimentar)
|
||
lcFiltruSelect = "(" + lcFiltru + ") AND (" + This.cFiltruSuplimentar + ")"
|
||
Endif
|
||
Calculate Cnt() To lnNrInreg For &lcFiltruSelect
|
||
Replace (lcColoana) With 1 For &lcFiltruSelect
|
||
This.nselectate = lnNrInreg
|
||
Else
|
||
Replace (lcColoana) With 0 For &lcFiltru
|
||
This.nselectate = 0
|
||
Endif
|
||
Set Filter To &lcFiltru
|
||
Go Min(lnRecno,Reccount(lcCursor))
|
||
If !Empty(Filter(lcCursor))
|
||
lcGrid = This.cgrid
|
||
poGrid = &lcGrid
|
||
poGrid.Refresh()
|
||
Endif
|
||
Endif
|
||
Endif
|
||
This.schimba_caption
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Destroy
|
||
Local lcGrid, i, j, loGrid
|
||
If !Empty(This.ccoloana) And !Empty(This.cgrid)
|
||
lcGrid = This.cgrid
|
||
TRY
|
||
loGrid = &lcGrid
|
||
i = This.ncoloana
|
||
j = This.ncheck
|
||
If Type(lcGrid+'.Objects(i).Objects(j)')="O"
|
||
Unbindevent(loGrid.Objects(i).Objects(j),"Click",This,"do_bifeaza")
|
||
ENDIF
|
||
CATCH
|
||
ENDTRY
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE do_bifeaza && Metoda delegat pentru click-ul pe coloana cu bifa.
|
||
pcGrid = This.cgrid
|
||
poGrid = &pcGrid
|
||
This.nselectate = This.nselectate + Iif(poGrid.Objects(This.ncoloana).Objects(This.ncheck).Value=0,-1,1)
|
||
This.schimba_caption()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_reset
|
||
This.nselectate = 0
|
||
This.schimba_caption()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
DoDefault()
|
||
This.Setup()
|
||
ENDPROC
|
||
|
||
PROCEDURE schimba_caption
|
||
If This.nselectate = 0
|
||
This.Caption = "\<Selecteaz<61> tot"
|
||
Else
|
||
This.Caption = "De\<selecteaz<61> tot"
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE setup
|
||
Local lcColoana, lcGrid
|
||
LOCAL i, j, loGrid
|
||
If !Empty(This.ccoloana) And !Empty(This.cgrid)
|
||
lcGrid = This.cgrid
|
||
Try
|
||
loGrid = &lcGrid
|
||
Catch
|
||
Endtry
|
||
If Type('loGrid') = 'O'
|
||
This.ccursor = loGrid.RecordSource
|
||
lcColoana = Upper(This.ccursor+[.]+This.ccoloana)
|
||
For i = 1 To loGrid.ColumnCount
|
||
With loGrid.Objects(i)
|
||
If Upper(.ControlSource) = lcColoana
|
||
For j = 1 To .Objects.Count
|
||
If Upper(.Objects(j).BaseClass) = [CHECKBOX]
|
||
This.ncoloana = i
|
||
This.ncheck = j
|
||
Bindevent(.Objects(j),"Click",This,"do_bifeaza",1)
|
||
Exit
|
||
Endif
|
||
Endfor
|
||
Exit
|
||
Endif
|
||
Endwith
|
||
Endfor
|
||
Endif
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_sterge AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = inainte_de_do_sterge
|
||
Caption = "\<<3C>terge"
|
||
FontBold = .T.
|
||
Name = "cmd_sterge"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cmd_termin AS cmd_buton OF "_cmd_base.vcx"
|
||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
caction = do_termin
|
||
Caption = "\<Termin"
|
||
FontBold = .T.
|
||
Name = "cmd_termin"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|