home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / ArgentCompta / Bankperfect / bp.exe / Scripts / Notes / notes_auto.py < prev    next >
Encoding:
Text File  |  2005-10-03  |  899 b   |  30 lines
  1. import BP, cPickle
  2.  
  3. f = CreateComponent("TForm", None)
  4. f.SetProps(Width=620, Height=400, Position="poMainFormCenter", Caption="Notes")
  5. f.Font.Name = "Tahoma"
  6. f.Constraints.MinWidth=620
  7. f.Constraints.MinHeight=400
  8.  
  9. ok = CreateComponent("TButton", f)
  10. ok.SetProps(Parent=f, Caption="OK", Left=500, Top=350, Width=90, Height=25, Anchors=["akRight", "akBottom"], ModalResult=1, Default=1, Cancel=1)
  11. Memo = CreateComponent("TMemo", f)
  12. Memo.SetProps(Parent=f, Left=30, Top=30, Width=560, Height=310, ReadOnly=1, Anchors=["akLeft", "akTop", "akRight", "akBottom"])
  13.  
  14. path = "%sScripts\\Notes\\notes.dat" %BP.BankPerfectExePath()
  15. try:
  16.   fl = open(path, "r")
  17.   n = cPickle.load(fl)
  18.   fl.close()
  19. except:
  20.   n = {}
  21.  
  22. t = n.keys()
  23. t.sort()
  24. l = []
  25. for k in t:
  26.   c, t = n[k]
  27.   if c: l.append("Note ½ %s ╗ :\n%s" %(k, t))
  28. if len(l) > 0:
  29.   Memo.Lines.Text = "\n\n\n".join(l)
  30.   f.ShowModal()