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:
14
Programe/Vechi/danu_ingest.prg
Normal file
14
Programe/Vechi/danu_ingest.prg
Normal file
@@ -0,0 +1,14 @@
|
||||
*________________________________________
|
||||
PROCEDURE danu_ingest
|
||||
PARAMETERS cas,txt1,txt2
|
||||
SELECT mf
|
||||
oi=CREATEOBJECT('ingest')
|
||||
oi.label1.caption=txt1
|
||||
oi.label2.caption=txt2
|
||||
IF cas
|
||||
oi.label2.visible=.f.
|
||||
oi.text1.visible=.f.
|
||||
ENDIF
|
||||
oi.show(1)
|
||||
RETURN
|
||||
*________________________________________
|
||||
Reference in New Issue
Block a user