Quellcode von 4.1 für 5 anpassen

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
hubionmac
Beiträge: 2
Registriert: 21.11.2012 08:57

Quellcode von 4.1 für 5 anpassen

Beitrag von hubionmac »

Hallo zusammen,

ich habe hier einen Quellcode der vermutlich mit einer Version 4 von PureBasic erstellt wurde und muss nun den Code anpassen, so dass er auf Laufwerk C läuft und nicht wie bisher auf Laufwerk D.
Das ist leider direkt im Quellcode festgelegt worden. Mein Problem ist, dass sich anscheinend viele der Funktionen seit Version 4 gehändert haben WindowWidth() benötigt Parameter etc.
Da ich mich gerade erst mit PureBasic vertraut machen muss, hier die Frage ob mir jemand ggf. bei der Aktualisierung des Codes Helfen könnte?
####################################################################################

Code: Alles auswählen

InitKeyboard                                ()

Dim Strings.s                               (36)
For Item = 0 To 36
  Read Strings                              (Item)
Next

Procedure RefreshWindow                     (W,H,FG)
  OKW = 0 : OKH = 0
  Repeat
;    Delay                                   (2)                                ;;;;;  << Wenns länger dauern soll 
    If W < WindowWidth                      ()
      ResizeWindow                          (WindowWidth()-1,WindowHeight())
    ElseIf W > WindowWidth                  ()
      ResizeWindow                          (WindowWidth()+1,WindowHeight())
    ElseIf W = WindowWidth                  ()
      OKW = 1
    EndIf
    If H < WindowHeight                     ()
      ResizeWindow                          (WindowWidth(),WindowHeight()-1)
    ElseIf H > WindowHeight                 ()
      ResizeWindow                          (WindowWidth(),WindowHeight()+1)
    ElseIf H = WindowHeight                 ()
      OKH = 1
    EndIf
  Until OKW + OKH = 2
  ResizeGadget                              (0,5,5,WindowWidth()-10,40)
  ResizeGadget                              (3,64,20,WindowWidth()-91,20)
  ResizeGadget                              (4,WindowWidth()-22,13,15,15)
  ResizeGadget                              (5,WindowWidth()-22,28,15,15)
  For Gadget = FG To 113
    HideGadget                              (Gadget,1)
  Next
EndProcedure
Procedure.s Date                            ()
  GetLocalTime_                             (@Time.SYSTEMTIME)
  ProcedureReturn                           (Str(Time\wDay)+"."+Str(Time\wMonth)+"."+Str(Time\wYear))
EndProcedure
LoadImage                                   (0,"D:\AktData\AD.ico")
LoadImage                                   (1,"D:\AktData\DOC.ico")
OpenWindow                                  (0,0,0,0,0,#PB_Window_BorderLess,"AktenDaten")
  CreateGadgetList                          (WindowID(0))
     TextGadget                             (0,35,23,5,15,"/")
    Frame3DGadget                           (0,5,5,290,40,"Aktenzeichen",0)
     StringGadget                           (1,10,20,25,20,"",#PB_String_Numeric)
     StringGadget                           (2,40,20,19,20,"",#PB_String_Numeric)
     TextGadget                             (3,64,20,209,20,"AktenDaten",#PB_Text_Border | #PB_Text_Center)
     ButtonGadget                           (4,278,13,15,15,"X")
     ButtonGadget                           (5,278,28,15,15,"M")
    Frame3DGadget                           (6,5,50,315,390,"Neue Akte anlegen",0)
     Frame3DGadget                          (7,10,65,150,345,"Mandant",0)
      StringGadget                          (13,15,80,140,20,"")
      StringGadget                          (14,15,100,140,20,"")
      StringGadget                          (15,15,120,140,20,"")
      StringGadget                          (16,15,140,140,20,"")
      StringGadget                          (17,15,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (18,52,160,103,20,"")
      StringGadget                          (19,15,180,140,20,"")
      StringGadget                          (20,15,200,140,20,"")
      StringGadget                          (21,15,220,140,20,"")
      StringGadget                          (22,15,240,140,20,"")
      TextGadget                            (8,15,265,10,30,"R V")
      StringGadget                          (23,25,265,130,20,"")
      StringGadget                          (24,25,285,130,20,"")
      StringGadget                          (25,25,305,130,20,"")
      StringGadget                          (26,25,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (27,62,325,93,20,"")
      StringGadget                          (28,25,345,130,20,"")
      StringGadget                          (29,25,365,130,20,"")
      StringGadget                          (30,25,385,130,20,"")
     Frame3DGadget                          (9,165,65,150,345,"Gegner",0)
      StringGadget                          (31,170,80,140,20,"")
      StringGadget                          (32,170,100,140,20,"")
      StringGadget                          (33,170,120,140,20,"")
      StringGadget                          (34,170,140,140,20,"")
      StringGadget                          (35,170,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (36,207,160,103,20,"")
      StringGadget                          (37,170,180,140,20,"")
      StringGadget                          (38,170,200,140,20,"")
      StringGadget                          (39,170,220,140,20,"")
      StringGadget                          (40,170,240,140,20,"")
      TextGadget                            (10,170,265,10,100,"G E G N   R A")
      StringGadget                          (41,180,265,130,20,"")
      StringGadget                          (42,180,285,130,20,"")
      StringGadget                          (43,180,305,130,20,"")
      StringGadget                          (44,180,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (45,217,325,93,20,"")
      StringGadget                          (46,180,345,130,20,"")
      StringGadget                          (47,180,365,130,20,"")
      StringGadget                          (48,180,385,130,20,"")
      StringGadget                          (49,-100,0,30,30,"")
    TextGadget                              (11,10,418,45,15,"Sache:")
    StringGadget                            (50,50,415,155,20,"")
    ButtonGadget                            (12,210,415,105,20,"Akte anlegen",#PB_Button_Default)
   Frame3DGadget                            (51,5,50,310,225,"Schriftsätze",0)
    ListViewGadget                          (52,0,800,200,200)
    ListIconGadget                          (53,10,65,300,205,"Empfänger",279)
   Frame3DGadget                            (57,5,280,310,335,"Informationen",0)
    ButtonGadget                            (58,240,280,70,15,"Bearbeiten",#PB_Button_Toggle)
    Frame3DGadget                           (59,10,295,300,155,"Mandant",0)
     TextGadget                             (60,15,310,150,60,"")
     TextGadget                             (61,170,310,130,60,"")
    Frame3DGadget                           (62,15,365,290,80,"Rechtsschutzversicherung",0)
     TextGadget                             (63,20,380,145,60,"")
     TextGadget                             (64,170,380,120,60,"")
    Frame3DGadget                           (65,10,455,300,155,"Gegner",0)
     TextGadget                             (66,15,470,150,60,"")
     TextGadget                             (67,170,470,130,60,"")
    Frame3DGadget                           (68,15,525,290,80,"gegnerischer Rechtsanwalt",0)
     TextGadget                             (69,20,540,145,60,"")
     TextGadget                             (70,170,540,120,60,"")
    Frame3DGadget                           (71,320,50,315,390,"Akte bearbeiten",0)
     Frame3DGadget                          (72,325,65,150,345,"Mandant",0)
      StringGadget                          (76,330,80,140,20,"")
      StringGadget                          (77,330,100,140,20,"")
      StringGadget                          (78,330,120,140,20,"")
      StringGadget                          (79,330,140,140,20,"")
      StringGadget                          (80,330,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (81,367,160,103,20,"")
      StringGadget                          (82,330,180,140,20,"")
      StringGadget                          (83,330,200,140,20,"")
      StringGadget                          (84,330,220,140,20,"")
      StringGadget                          (85,330,240,140,20,"")
      TextGadget                            (73,330,265,10,30,"R V")
      StringGadget                          (86,340,265,130,20,"")
      StringGadget                          (87,340,285,130,20,"")
      StringGadget                          (88,340,305,130,20,"")
      StringGadget                          (89,340,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (90,377,325,93,20,"")
      StringGadget                          (91,340,345,130,20,"")
      StringGadget                          (92,340,365,130,20,"")
      StringGadget                          (93,340,385,130,20,"")
     Frame3DGadget                          (74,480,65,150,345,"Gegner",0)
      StringGadget                          (94,485,80,140,20,"")
      StringGadget                          (95,485,100,140,20,"")
      StringGadget                          (96,485,120,140,20,"")
      StringGadget                          (97,485,140,140,20,"")
      StringGadget                          (98,485,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (99,522,160,103,20,"")
      StringGadget                          (100,485,180,140,20,"")
      StringGadget                          (101,485,200,140,20,"")
      StringGadget                          (102,485,220,140,20,"")
      StringGadget                          (103,485,240,140,20,"")
      TextGadget                            (75,485,265,10,100,"G E G N   R A")
      StringGadget                          (104,495,265,130,20,"")
      StringGadget                          (105,495,285,130,20,"")
      StringGadget                          (106,495,305,130,20,"")
      StringGadget                          (107,495,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (108,532,325,93,20,"")
      StringGadget                          (109,495,345,130,20,"")
      StringGadget                          (110,495,365,130,20,"")
      StringGadget                          (111,495,385,130,20,"")
    StringGadget                            (112,325,415,305,20,"")

CreatePopupMenu                             (1)
  MenuItem                                  (1,"Verfassen")
  MenuBar                                   ()
  MenuItem                                  (2,"Öffnen")
  MenuItem                                  (3,"Umbenennen")
  MenuItem                                  (4,"Löschen")
CreatePopupMenu                             (2)
  MenuItem                                  (1,"Verfassen")
  RefreshWindow                             (250,50,6)

Repeat
  EventID = WaitWindowEvent                 ()
  If EventID = #PB_EventMenu
    Select EventMenuID                      ()
      Case 1
        AddGadgetItem                       (53,-1,"",UseImage(1))
        DisableGadget                       (53,1)
        Counter = CountGadgetItems          (53)
        If Counter > 11
          Counter = 11
        EndIf
        StringGadget                        (200,30,68+(Counter*17),260,18,"  ["+Date()+"]")
        ActivateGadget                      (200)
        Ende = 0
        Repeat
          WaitWindowEvent                   ()
          ExamineKeyboard                   ()
          If KeyboardReleased               (#PB_Key_Escape)
            DisableGadget                   (53,0)
            RemoveGadgetItem                (53,CountGadgetItems(53)-1)
            FreeGadget                      (200)
            Ende = 1
          ElseIf KeyboardReleased           (#PB_Key_Return)
            If GetGadgetText                (200) <> ""
              SetGadgetText                 (3,GetGadgetItemText(52,0,0))
              DisableGadget                 (53,0)
              SetGadgetItemText             (53,CountGadgetItems(53)-1,GetGadgetText(200),0)
              CopyFile                      ("C:\AktData\Vorlage.dot","C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc")
              RunProgram                    ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc","",0)
              FreeGadget                    (200)
              EditedAkt = 1
              Ende = 1
            Else
              SetGadgetText                 (3,"Ungültiger Dateiname!")
              SetGadgetText                 (200,"  ["+Date()+"]")
            EndIf
          EndIf
        Until Ende = 1
      Case 2
        RunProgram                          ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","",0)
      Case 3
        Ende = 0
        Item = GetGadgetState               (53)
        If Item > 10
          Counter = 10 : Else : Counter = Item+1
        EndIf
        DisableGadget                       (53,1)
        StringGadget                        (200,30,68+(Counter*17),260,18,GetGadgetItemText(53,Item,0))
        ActivateGadget                      (200)
        Repeat
          WaitWindowEvent                   ()
          ExamineKeyboard                   ()
          If KeyboardReleased               (#PB_Key_Escape)
            DisableGadget                   (53,0)
            FreeGadget                      (200)
            Ende = 1
          ElseIf KeyboardReleased           (#PB_Key_Return)
            If GetGadgetText                (200) <> ""
              SetGadgetText                 (3,GetGadgetItemText(52,0,0))
              DisableGadget                 (53,0)
              SetGadgetItemText             (53,Item,GetGadgetText(200),0)
              FreeGadget                    (200)
              EditedAkt = 1
              Ende = 1
            Else
              SetGadgetText                 (3,"Ungültiger Dateiname!")
              SetGadgetText                 (200,GetGadgetItemText(53,Item,0))
            EndIf
          EndIf
        Until Ende = 1
      Case 4
        If MessageRequester                 ("Löschen von Schriftsätzen bestätigen","Möchten Sie ''"+GetGadgetText(53)+"'' wirklich löschen?",#MB_IconQuestion|4) = 6
          CopyFile                          ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","C:\AktData\XX\"+AZn$+"-"+AZy$+" "+GetGadgetText(53)+".doc")
          DeleteFile                        ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc")
          For File = GetGadgetState         (53)+2 To CountGadgetItems(53)
            RenameFile                      ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(File)+".doc","D:\AktData\"+AZy$+"\"+AZn$+"\"+Str(File-1)+".doc")
          Next
          RemoveGadgetItem                  (53,GetGadgetState(53))
          EditedAkt = 1
        EndIf
    EndSelect
  EndIf
  If EventID = #PB_EventGadget
    Select EventGadgetID                    ()
      Case 1
        If EditedAkt = 1
          CreatePreferences                 ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.AD")
          For Item = 0 To 36
            WritePreferenceString           ("aItem"+Str(Item),GetGadgetItemText(52,Item,0))
          Next
          WritePreferenceLong               ("sItem0",CountGadgetItems(53))
          For Item = 1 To CountGadgetItems  (53)
            WritePreferenceString           ("sItem"+Str(Item),GetGadgetItemText(53,Item-1,0))
          Next
          EditedAkt = 0
        EndIf
        ClearGadgetItemList                 (52)
        ClearGadgetItemList                 (53)
        SetGadgetText                       (3,"AktenDaten")
        RefreshWindow                       (250,50,6)
        If Len                              (GetGadgetText(1)) > 0 And Len(GetGadgetText(2)) > 0
          SetGadgetText                     (1,"")
          SetGadgetText                     (2,"")
        EndIf
        If Len                              (GetGadgetText(1)) = 3
          ActivateGadget                    (2)
        EndIf
      Case 2
        If Len                              (GetGadgetText(2)) = 2
          ActivateGadget                    (3)
          If Len                            (GetGadgetText(1)) = 0
            If MessageRequester             ("Löschen von Akten bestätigen","Möchten Sie den Aktenstamm '"+GetGadgetText(2)+" wirklich löschen?"+Chr(10)+Chr(10)+"ACHTUNG: Dieser vorgang entfernt alle Akten sammt Schriftsätzen!",#MB_IconQuestion | 4) = 6
              CreateFile                    (0,"C:\AktData\DelAkt.bat")
              WriteString                   ("rd /s /q C:\AktData\"+GetGadgetText(2))
              CloseFile                     (0)
              RunProgram                    ("C:\AktData\DelAkt.bat","",1)
              Delay                         (500)
              DeleteFile                    ("C:\AktData\DelAkt.bat")
              SetGadgetText                 (3,"Alle Akten entfernt")
              SetGadgetText                 (2,"")
            EndIf
            SetGadgetText                   (2,"")
          ElseIf Len                        (GetGadgetText(1)) = 3
            AZn$ = GetGadgetText            (1)
            AZy$ = GetGadgetText            (2)
            If OpenPreferences              ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.ad") = 0
              SetGadgetText                 (3,"Akte nicht gefunden")
              RefreshWindow                 (325,445,6)
              For Item = 0 To 36
                SetGadgetText               (Item+13,"  "+Strings(Item))
              Next
              SetGadgetText                 (50,"")
              For Gadget = 6 To 50
                HideGadget                  (Gadget,0)
              Next
            Else
              SetGadgetText                 (3,ReadPreferenceString("aItem0","Akte ist Fehlerhaft!"))
              RefreshWindow                 (320,620,6)
              For Item = 0 To 36
                AddGadgetItem               (52,Item,ReadPreferenceString("aItem"+Str(Item),""))
              Next
              For Item = 1 To ReadPreferenceLong("sItem0",0)
                AddGadgetItem               (53,-1,ReadPreferenceString("sItem"+Str(Item),""),UseImage(1))
              Next
              ClosePreferences              ()
              For Gadget = 51 To 113
                HideGadget                  (Gadget,0)
              Next
              For Item = 1 To Val           (GetGadgetItemText(52,37,0))
                AddGadgetItem               (53,-1,GetGadgetItemText(52,Item+37,0),UseImage(1))
              Next
              SetGadgetText                 (60,GetGadgetItemText(52,1,0)+", "+GetGadgetItemText(52,2,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,3,0)+Chr(10)+GetGadgetItemText(52,4,0)+Chr(10)+GetGadgetItemText(52,5,0)+" "+GetGadgetItemText(52,6,0))
              SetGadgetText                 (61,"T:  "+GetGadgetItemText(52,7,0)+Chr(10)+"F:  "+GetGadgetItemText(52,8,0)+Chr(10)+"M: "+GetGadgetItemText(52,9,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,10,0))
              SetGadgetText                 (63,GetGadgetItemText(52,11,0)+Chr(10)+GetGadgetItemText(52,12,0)+Chr(10)+GetGadgetItemText(52,13,0)+Chr(10)+GetGadgetItemText(52,14,0)+" "+GetGadgetItemText(52,15,0))
              SetGadgetText                 (64,"T:    "+GetGadgetItemText(52,16,0)+Chr(10)+"F:    "+GetGadgetItemText(52,17,0)+Chr(10)+"VS: "+GetGadgetItemText(52,18,0))
              SetGadgetText                 (66,GetGadgetItemText(52,19,0)+", "+GetGadgetItemText(52,20,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,21,0)+Chr(10)+GetGadgetItemText(52,22,0)+Chr(10)+GetGadgetItemText(52,23,0)+" "+GetGadgetItemText(52,24,0))
              SetGadgetText                 (67,"T:  "+GetGadgetItemText(52,25,0)+Chr(10)+"F:  "+GetGadgetItemText(52,26,0)+Chr(10)+"M: "+GetGadgetItemText(52,27,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,28,0))
              SetGadgetText                 (69,GetGadgetItemText(52,29,0)+Chr(10)+GetGadgetItemText(52,30,0)+Chr(10)+GetGadgetItemText(52,31,0)+Chr(10)+GetGadgetItemText(52,32,0)+" "+GetGadgetItemText(52,33,0))
              SetGadgetText                 (70,"T:    "+GetGadgetItemText(52,34,0)+Chr(10)+"F:    "+GetGadgetItemText(52,35,0)+Chr(10)+"VS: "+GetGadgetItemText(52,36,0))
              For Gadget = 76 To 111
                SetGadgetText               (Gadget,GetGadgetItemText(52,Gadget-75,0))
              Next
              SetGadgetText                 (112,GetGadgetItemText(52,0,0))
            EndIf
          Else
            SetGadgetText                   (3,"Ungültiges Aktenzeichen")
          EndIf
        EndIf
      Case 4
        If EditedAkt = 1
          CreatePreferences                 ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.AD")
          For Item = 0 To 36
            WritePreferenceString           ("aItem"+Str(Item),GetGadgetItemText(52,Item,0))
          Next
          WritePreferenceLong               ("sItem0",CountGadgetItems(53))
          For Item = 1 To CountGadgetItems  (53)
            WritePreferenceString           ("sItem"+Str(Item),GetGadgetItemText(53,Item-1,0))
          Next
          EditedAkt = 0
        EndIf
        RefreshWindow                       (0,WindowHeight(),0)
        End
      Case 5
        RefWinW = WindowWidth               ()
        RefWinH = WindowHeight              ()
        RefreshWindow                       (0,WindowHeight(),200)
        HideWindow                          (0,1)
        AddSysTrayIcon                      (0,WindowID(0),UseImage(0))
        SysTrayIconToolTip                  (0,"AktenDaten öffnen")
      Case 50
        If GetGadgetText                    (50) = " "
          SetGadgetText                     (50,GetGadgetText(13)+" ./. "+GetGadgetText(31))
        EndIf
      Case 12
        CreateDirectory                     ("C:\AktData\"+AZy$+"\")
        CreateDirectory                     ("C:\AktData\"+AZy$+"\"+AZn$+"\")
        CreatePreferences                   ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.ad")
        WritePreferenceString               ("aItem0",GetGadgetText(50))
        For Item = 1 To 36
          WritePreferenceString             ("aItem"+Str(Item),GetGadgetText(Item+12))
        Next
        WritePreferenceLong                 ("sItem0",0)
        ClosePreferences                    ()
        ActivateGadget                      (2)
      Case 53
        If EventType                        () = #PB_EventType_LeftDoubleClick
          If GetGadgetState                 (53) = -1
            AddGadgetItem                   (53,-1,"",UseImage(1))
            DisableGadget                   (53,1)
            Counter = CountGadgetItems      (53)
            If Counter > 11
              Counter = 11
            EndIf
            StringGadget                    (200,30,68+(Counter*17),260,18,"  ["+Date()+"]")
            ActivateGadget                  (200)
            Ende = 0
            Repeat
              WaitWindowEvent               ()
              ExamineKeyboard               ()
              If KeyboardReleased           (#PB_Key_Escape)
                DisableGadget               (53,0)
                RemoveGadgetItem            (53,CountGadgetItems(53)-1)
                FreeGadget                  (200)
                Ende = 1
              ElseIf KeyboardReleased       (#PB_Key_Return)
                If GetGadgetText            (200) <> ""
                  SetGadgetText             (3,GetGadgetItemText(52,0,0))
                  DisableGadget             (53,0)
                  SetGadgetItemText         (53,CountGadgetItems(53)-1,GetGadgetText(200),0)
                  CopyFile                  ("C:\AktData\Vorlage.dot","C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc")
                  RunProgram                ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc","",0)
                  FreeGadget                (200)
                  EditedAkt = 1
                  Ende = 1
                Else
                  SetGadgetText             (3,"Ungültiger Dateiname!")
                  SetGadgetText             (200,"  ["+Date()+"]")
                EndIf
              EndIf
            Until Ende = 1
          Else
            RunProgram                      ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","",0)
          EndIf
        ElseIf EventType                    () = #PB_EventType_RightClick
          If GetGadgetState                 (53) = -1
            DisplayPopupMenu                (2,WindowID(0))
          Else
            DisplayPopupMenu                (1,WindowID(0))
          EndIf
        EndIf
      Case 58
        If GetGadgetState                   (58) = 1
          ReFreshWindow                     (640,620,114)
        ElseIf GetGadgetState               (58) = 0
          IsIf = MessageRequester           ("Speichern?","Sollen die Änderungen übernommen werden?",3 | #MB_IconQuestion)
          If IsIf = 2
            SetGadgetState                  (58,1)
          ElseIf IsIf = 6
            EditedAkt = 1
            SetGadgetItemText               (52,0,GetGadgetText(112),0)
            SetGadgetText                   (3,GetGadgetText(112))
            For Item = 1 To 36
              SetGadgetItemText             (52,Item,GetGadgetText(75+Item),0)
            Next
            SetGadgetText                   (60,GetGadgetItemText(52,1,0)+", "+GetGadgetItemText(52,2,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,3,0)+Chr(10)+GetGadgetItemText(52,4,0)+Chr(10)+GetGadgetItemText(52,5,0)+" "+GetGadgetItemText(52,6,0))
            SetGadgetText                   (61,"T:  "+GetGadgetItemText(52,7,0)+Chr(10)+"F:  "+GetGadgetItemText(52,8,0)+Chr(10)+"M: "+GetGadgetItemText(52,9,0)+Chr(10)+"gab. am "+GetGadgetItemText(52,10,0))
            SetGadgetText                   (63,GetGadgetItemText(52,11,0)+Chr(10)+GetGadgetItemText(52,12,0)+Chr(10)+GetGadgetItemText(52,13,0)+Chr(10)+GetGadgetItemText(52,14,0)+" "+GetGadgetItemText(52,15,0))
            SetGadgetText                   (64,"T:    "+GetGadgetItemText(52,16,0)+Chr(10)+"F:    "+GetGadgetItemText(52,17,0)+Chr(10)+"VS: "+GetGadgetItemText(52,18,0))
            SetGadgetText                   (66,GetGadgetItemText(52,19,0)+", "+GetGadgetItemText(52,20,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,21,0)+Chr(10)+GetGadgetItemText(52,22,0)+Chr(10)+GetGadgetItemText(52,23,0)+" "+GetGadgetItemText(52,24,0))
            SetGadgetText                   (67,"T:  "+GetGadgetItemText(52,25,0)+Chr(10)+"F:  "+GetGadgetItemText(52,26,0)+Chr(10)+"M: "+GetGadgetItemText(52,27,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,28,0))
            SetGadgetText                   (69,GetGadgetItemText(52,29,0)+Chr(10)+GetGadgetItemText(52,30,0)+Chr(10)+GetGadgetItemText(52,31,0)+Chr(10)+GetGadgetItemText(52,32,0)+" "+GetGadgetItemText(52,33,0))
            SetGadgetText                   (70,"T:    "+GetGadgetItemText(52,34,0)+Chr(10)+"F:    "+GetGadgetItemText(52,35,0)+Chr(10)+"VS: "+GetGadgetItemText(52,36,0))
            RefreshWindow                   (320,620,114)
          ElseIf IsIf = 7
            RefreshWindow                   (320,620,114)
          EndIf
        EndIf
      Default
        If EventGadgetID                    () > 12 And EventGadgetID() < 50
          If Left                           (GetGadgetText(EventGadgetID()),2) = "  "
            SetGadgetText                   (EventGadgetID(),"")
          EndIf
        EndIf
    EndSelect
  EndIf
  If EventID = #PB_EventSysTray
    HideWindow                              (0,0)
    RefreshWindow                           (RefWinW,RefWinH,200)
    RemoveSysTrayIcon                       (0)
  EndIf
Until EventID = #PB_EventCloseWindow
End


DataSection
  Data.s "Name","Vorname","c/o","Straße","PLZ","Ort","Telefon","Telefax","Mobil","Geburtsdatum","Bezeichnung","Bezeichnungszusatz","Straße","PLZ","Ort","Telefon","Telefax","VS-Nummer","Name","Vorname","c/o","Straße","PLZ","Ort","Telefon","Telefax","Mobil","Geburtsdatum","Titel","Name","Straße","PLZ","Ort","Telefon","Telefax","Aktenzeichen","< NO TEXT >"
EndDataSection
Nach oben
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von RSBasic

Re: Quellcode von 4.1 für 5 anpassen

Beitrag von RSBasic »

Angepasste, aber nicht optimierte und getestete Version:

Code: Alles auswählen

InitKeyboard                                ()

Dim Strings.s                               (36)
For Item = 0 To 36
  Read.s Strings                              (Item)
Next

Procedure RefreshWindow                     (W,H,FG)
  OKW = 0 : OKH = 0
  Repeat
;    Delay                                   (2)                                ;;;;;  << Wenns länger dauern soll
    If W < WindowWidth                      (0)
      ResizeWindow                          (0,#PB_Ignore,#PB_Ignore,WindowWidth(0)-1,WindowHeight(0))
    ElseIf W > WindowWidth                  (0)
      ResizeWindow                          (0,#PB_Ignore,#PB_Ignore,WindowWidth(0)+1,WindowHeight(0))
    ElseIf W = WindowWidth                  (0)
      OKW = 1
    EndIf
    If H < WindowHeight                     (0)
      ResizeWindow                          (0,#PB_Ignore,#PB_Ignore,WindowWidth(0),WindowHeight(0)-1)
    ElseIf H > WindowHeight                 (0)
      ResizeWindow                          (0,#PB_Ignore,#PB_Ignore,WindowWidth(0),WindowHeight(0)+1)
    ElseIf H = WindowHeight                 (0)
      OKH = 1
    EndIf
  Until OKW + OKH = 2
  ResizeGadget                              (0,5,5,WindowWidth(0)-10,40)
  ResizeGadget                              (3,64,20,WindowWidth(0)-91,20)
  ResizeGadget                              (4,WindowWidth(0)-22,13,15,15)
  ResizeGadget                              (5,WindowWidth(0)-22,28,15,15)
  For Gadget = FG To 113
    HideGadget                              (Gadget,1)
  Next
EndProcedure
Procedure.s DateEx                            ()
  GetLocalTime_                             (@Time.SYSTEMTIME)
  ProcedureReturn                           (Str(Time\wDay)+"."+Str(Time\wMonth)+"."+Str(Time\wYear))
EndProcedure
LoadImage                                   (0,"D:\AktData\AD.ico")
LoadImage                                   (1,"D:\AktData\DOC.ico")
OpenWindow                                  (0,0,0,0,0,"AktenDaten",#PB_Window_BorderLess)
     TextGadget                             (0,35,23,5,15,"/")
    Frame3DGadget                           (0,5,5,290,40,"Aktenzeichen",0)
     StringGadget                           (1,10,20,25,20,"",#PB_String_Numeric)
     StringGadget                           (2,40,20,19,20,"",#PB_String_Numeric)
     TextGadget                             (3,64,20,209,20,"AktenDaten",#PB_Text_Border | #PB_Text_Center)
     ButtonGadget                           (4,278,13,15,15,"X")
     ButtonGadget                           (5,278,28,15,15,"M")
    Frame3DGadget                           (6,5,50,315,390,"Neue Akte anlegen",0)
     Frame3DGadget                          (7,10,65,150,345,"Mandant",0)
      StringGadget                          (13,15,80,140,20,"")
      StringGadget                          (14,15,100,140,20,"")
      StringGadget                          (15,15,120,140,20,"")
      StringGadget                          (16,15,140,140,20,"")
      StringGadget                          (17,15,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (18,52,160,103,20,"")
      StringGadget                          (19,15,180,140,20,"")
      StringGadget                          (20,15,200,140,20,"")
      StringGadget                          (21,15,220,140,20,"")
      StringGadget                          (22,15,240,140,20,"")
      TextGadget                            (8,15,265,10,30,"R V")
      StringGadget                          (23,25,265,130,20,"")
      StringGadget                          (24,25,285,130,20,"")
      StringGadget                          (25,25,305,130,20,"")
      StringGadget                          (26,25,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (27,62,325,93,20,"")
      StringGadget                          (28,25,345,130,20,"")
      StringGadget                          (29,25,365,130,20,"")
      StringGadget                          (30,25,385,130,20,"")
     Frame3DGadget                          (9,165,65,150,345,"Gegner",0)
      StringGadget                          (31,170,80,140,20,"")
      StringGadget                          (32,170,100,140,20,"")
      StringGadget                          (33,170,120,140,20,"")
      StringGadget                          (34,170,140,140,20,"")
      StringGadget                          (35,170,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (36,207,160,103,20,"")
      StringGadget                          (37,170,180,140,20,"")
      StringGadget                          (38,170,200,140,20,"")
      StringGadget                          (39,170,220,140,20,"")
      StringGadget                          (40,170,240,140,20,"")
      TextGadget                            (10,170,265,10,100,"G E G N   R A")
      StringGadget                          (41,180,265,130,20,"")
      StringGadget                          (42,180,285,130,20,"")
      StringGadget                          (43,180,305,130,20,"")
      StringGadget                          (44,180,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (45,217,325,93,20,"")
      StringGadget                          (46,180,345,130,20,"")
      StringGadget                          (47,180,365,130,20,"")
      StringGadget                          (48,180,385,130,20,"")
      StringGadget                          (49,-100,0,30,30,"")
    TextGadget                              (11,10,418,45,15,"Sache:")
    StringGadget                            (50,50,415,155,20,"")
    ButtonGadget                            (12,210,415,105,20,"Akte anlegen",#PB_Button_Default)
   Frame3DGadget                            (51,5,50,310,225,"Schriftsätze",0)
    ListViewGadget                          (52,0,800,200,200)
    ListIconGadget                          (53,10,65,300,205,"Empfänger",279)
   Frame3DGadget                            (57,5,280,310,335,"Informationen",0)
    ButtonGadget                            (58,240,280,70,15,"Bearbeiten",#PB_Button_Toggle)
    Frame3DGadget                           (59,10,295,300,155,"Mandant",0)
     TextGadget                             (60,15,310,150,60,"")
     TextGadget                             (61,170,310,130,60,"")
    Frame3DGadget                           (62,15,365,290,80,"Rechtsschutzversicherung",0)
     TextGadget                             (63,20,380,145,60,"")
     TextGadget                             (64,170,380,120,60,"")
    Frame3DGadget                           (65,10,455,300,155,"Gegner",0)
     TextGadget                             (66,15,470,150,60,"")
     TextGadget                             (67,170,470,130,60,"")
    Frame3DGadget                           (68,15,525,290,80,"gegnerischer Rechtsanwalt",0)
     TextGadget                             (69,20,540,145,60,"")
     TextGadget                             (70,170,540,120,60,"")
    Frame3DGadget                           (71,320,50,315,390,"Akte bearbeiten",0)
     Frame3DGadget                          (72,325,65,150,345,"Mandant",0)
      StringGadget                          (76,330,80,140,20,"")
      StringGadget                          (77,330,100,140,20,"")
      StringGadget                          (78,330,120,140,20,"")
      StringGadget                          (79,330,140,140,20,"")
      StringGadget                          (80,330,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (81,367,160,103,20,"")
      StringGadget                          (82,330,180,140,20,"")
      StringGadget                          (83,330,200,140,20,"")
      StringGadget                          (84,330,220,140,20,"")
      StringGadget                          (85,330,240,140,20,"")
      TextGadget                            (73,330,265,10,30,"R V")
      StringGadget                          (86,340,265,130,20,"")
      StringGadget                          (87,340,285,130,20,"")
      StringGadget                          (88,340,305,130,20,"")
      StringGadget                          (89,340,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (90,377,325,93,20,"")
      StringGadget                          (91,340,345,130,20,"")
      StringGadget                          (92,340,365,130,20,"")
      StringGadget                          (93,340,385,130,20,"")
     Frame3DGadget                          (74,480,65,150,345,"Gegner",0)
      StringGadget                          (94,485,80,140,20,"")
      StringGadget                          (95,485,100,140,20,"")
      StringGadget                          (96,485,120,140,20,"")
      StringGadget                          (97,485,140,140,20,"")
      StringGadget                          (98,485,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (99,522,160,103,20,"")
      StringGadget                          (100,485,180,140,20,"")
      StringGadget                          (101,485,200,140,20,"")
      StringGadget                          (102,485,220,140,20,"")
      StringGadget                          (103,485,240,140,20,"")
      TextGadget                            (75,485,265,10,100,"G E G N   R A")
      StringGadget                          (104,495,265,130,20,"")
      StringGadget                          (105,495,285,130,20,"")
      StringGadget                          (106,495,305,130,20,"")
      StringGadget                          (107,495,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (108,532,325,93,20,"")
      StringGadget                          (109,495,345,130,20,"")
      StringGadget                          (110,495,365,130,20,"")
      StringGadget                          (111,495,385,130,20,"")
    StringGadget                            (112,325,415,305,20,"")

CreatePopupMenu                             (1)
  MenuItem                                  (1,"Verfassen")
  MenuBar                                   ()
  MenuItem                                  (2,"Öffnen")
  MenuItem                                  (3,"Umbenennen")
  MenuItem                                  (4,"Löschen")
CreatePopupMenu                             (2)
  MenuItem                                  (1,"Verfassen")
  RefreshWindow                             (250,50,6)

Repeat
  EventID = WaitWindowEvent                 ()
  If EventID = #PB_Event_Menu
    Select EventMenu                      ()
      Case 1
        AddGadgetItem                       (53,-1,"",ImageID(1))
        DisableGadget                       (53,1)
        Counter = CountGadgetItems          (53)
        If Counter > 11
          Counter = 11
        EndIf
        StringGadget                        (200,30,68+(Counter*17),260,18,"  ["+DateEx()+"]")
        SetActiveGadget                      (200)
        Ende = 0
        Repeat
          WaitWindowEvent                   ()
          ExamineKeyboard                   ()
          If KeyboardReleased               (#PB_Key_Escape)
            DisableGadget                   (53,0)
            RemoveGadgetItem                (53,CountGadgetItems(53)-1)
            FreeGadget                      (200)
            Ende = 1
          ElseIf KeyboardReleased           (#PB_Key_Return)
            If GetGadgetText                (200) <> ""
              SetGadgetText                 (3,GetGadgetItemText(52,0,0))
              DisableGadget                 (53,0)
              SetGadgetItemText             (53,CountGadgetItems(53)-1,GetGadgetText(200),0)
              CopyFile                      ("C:\AktData\Vorlage.dot","C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc")
              RunProgram                    ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc","","",0)
              FreeGadget                    (200)
              EditedAkt = 1
              Ende = 1
            Else
              SetGadgetText                 (3,"Ungültiger Dateiname!")
              SetGadgetText                 (200,"  ["+DateEx()+"]")
            EndIf
          EndIf
        Until Ende = 1
      Case 2
        RunProgram                          ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","","",0)
      Case 3
        Ende = 0
        Item = GetGadgetState               (53)
        If Item > 10
          Counter = 10 : Else : Counter = Item+1
        EndIf
        DisableGadget                       (53,1)
        StringGadget                        (200,30,68+(Counter*17),260,18,GetGadgetItemText(53,Item,0))
        SetActiveGadget                      (200)
        Repeat
          WaitWindowEvent                   ()
          ExamineKeyboard                   ()
          If KeyboardReleased               (#PB_Key_Escape)
            DisableGadget                   (53,0)
            FreeGadget                      (200)
            Ende = 1
          ElseIf KeyboardReleased           (#PB_Key_Return)
            If GetGadgetText                (200) <> ""
              SetGadgetText                 (3,GetGadgetItemText(52,0,0))
              DisableGadget                 (53,0)
              SetGadgetItemText             (53,Item,GetGadgetText(200),0)
              FreeGadget                    (200)
              EditedAkt = 1
              Ende = 1
            Else
              SetGadgetText                 (3,"Ungültiger Dateiname!")
              SetGadgetText                 (200,GetGadgetItemText(53,Item,0))
            EndIf
          EndIf
        Until Ende = 1
      Case 4
        If MessageRequester                 ("Löschen von Schriftsätzen bestätigen","Möchten Sie ''"+GetGadgetText(53)+"'' wirklich löschen?",#MB_ICONQUESTION|4) = 6
          CopyFile                          ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","C:\AktData\XX\"+AZn$+"-"+AZy$+" "+GetGadgetText(53)+".doc")
          DeleteFile                        ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc")
          For File = GetGadgetState         (53)+2 To CountGadgetItems(53)
            RenameFile                      ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(File)+".doc","D:\AktData\"+AZy$+"\"+AZn$+"\"+Str(File-1)+".doc")
          Next
          RemoveGadgetItem                  (53,GetGadgetState(53))
          EditedAkt = 1
        EndIf
    EndSelect
  EndIf
  If EventID = #PB_Event_Gadget
    Select EventGadget                    ()
      Case 1
        If EditedAkt = 1
          CreatePreferences                 ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.AD")
          For Item = 0 To 36
            WritePreferenceString           ("aItem"+Str(Item),GetGadgetItemText(52,Item,0))
          Next
          WritePreferenceLong               ("sItem0",CountGadgetItems(53))
          For Item = 1 To CountGadgetItems  (53)
            WritePreferenceString           ("sItem"+Str(Item),GetGadgetItemText(53,Item-1,0))
          Next
          EditedAkt = 0
        EndIf
        ClearGadgetItems                 (52)
        ClearGadgetItems                 (53)
        SetGadgetText                       (3,"AktenDaten")
        RefreshWindow                       (250,50,6)
        If Len                              (GetGadgetText(1)) > 0 And Len(GetGadgetText(2)) > 0
          SetGadgetText                     (1,"")
          SetGadgetText                     (2,"")
        EndIf
        If Len                              (GetGadgetText(1)) = 3
          SetActiveGadget                    (2)
        EndIf
      Case 2
        If Len                              (GetGadgetText(2)) = 2
          SetActiveGadget                    (3)
          If Len                            (GetGadgetText(1)) = 0
            If MessageRequester             ("Löschen von Akten bestätigen","Möchten Sie den Aktenstamm '"+GetGadgetText(2)+" wirklich löschen?"+Chr(10)+Chr(10)+"ACHTUNG: Dieser vorgang entfernt alle Akten sammt Schriftsätzen!",#MB_ICONQUESTION | 4) = 6
              CreateFile                    (0,"C:\AktData\DelAkt.bat")
              WriteString                   (0,"rd /s /q C:\AktData\"+GetGadgetText(2))
              CloseFile                     (0)
              RunProgram                    ("C:\AktData\DelAkt.bat","","",1)
              Delay                         (500)
              DeleteFile                    ("C:\AktData\DelAkt.bat")
              SetGadgetText                 (3,"Alle Akten entfernt")
              SetGadgetText                 (2,"")
            EndIf
            SetGadgetText                   (2,"")
          ElseIf Len                        (GetGadgetText(1)) = 3
            AZn$ = GetGadgetText            (1)
            AZy$ = GetGadgetText            (2)
            If OpenPreferences              ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.ad") = 0
              SetGadgetText                 (3,"Akte nicht gefunden")
              RefreshWindow                 (325,445,6)
              For Item = 0 To 36
                SetGadgetText               (Item+13,"  "+Strings(Item))
              Next
              SetGadgetText                 (50,"")
              For Gadget = 6 To 50
                HideGadget                  (Gadget,0)
              Next
            Else
              SetGadgetText                 (3,ReadPreferenceString("aItem0","Akte ist Fehlerhaft!"))
              RefreshWindow                 (320,620,6)
              For Item = 0 To 36
                AddGadgetItem               (52,Item,ReadPreferenceString("aItem"+Str(Item),""))
              Next
              For Item = 1 To ReadPreferenceLong("sItem0",0)
                AddGadgetItem               (53,-1,ReadPreferenceString("sItem"+Str(Item),""),ImageID(1))
              Next
              ClosePreferences              ()
              For Gadget = 51 To 113
                HideGadget                  (Gadget,0)
              Next
              For Item = 1 To Val           (GetGadgetItemText(52,37,0))
                AddGadgetItem               (53,-1,GetGadgetItemText(52,Item+37,0),ImageID(1))
              Next
              SetGadgetText                 (60,GetGadgetItemText(52,1,0)+", "+GetGadgetItemText(52,2,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,3,0)+Chr(10)+GetGadgetItemText(52,4,0)+Chr(10)+GetGadgetItemText(52,5,0)+" "+GetGadgetItemText(52,6,0))
              SetGadgetText                 (61,"T:  "+GetGadgetItemText(52,7,0)+Chr(10)+"F:  "+GetGadgetItemText(52,8,0)+Chr(10)+"M: "+GetGadgetItemText(52,9,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,10,0))
              SetGadgetText                 (63,GetGadgetItemText(52,11,0)+Chr(10)+GetGadgetItemText(52,12,0)+Chr(10)+GetGadgetItemText(52,13,0)+Chr(10)+GetGadgetItemText(52,14,0)+" "+GetGadgetItemText(52,15,0))
              SetGadgetText                 (64,"T:    "+GetGadgetItemText(52,16,0)+Chr(10)+"F:    "+GetGadgetItemText(52,17,0)+Chr(10)+"VS: "+GetGadgetItemText(52,18,0))
              SetGadgetText                 (66,GetGadgetItemText(52,19,0)+", "+GetGadgetItemText(52,20,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,21,0)+Chr(10)+GetGadgetItemText(52,22,0)+Chr(10)+GetGadgetItemText(52,23,0)+" "+GetGadgetItemText(52,24,0))
              SetGadgetText                 (67,"T:  "+GetGadgetItemText(52,25,0)+Chr(10)+"F:  "+GetGadgetItemText(52,26,0)+Chr(10)+"M: "+GetGadgetItemText(52,27,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,28,0))
              SetGadgetText                 (69,GetGadgetItemText(52,29,0)+Chr(10)+GetGadgetItemText(52,30,0)+Chr(10)+GetGadgetItemText(52,31,0)+Chr(10)+GetGadgetItemText(52,32,0)+" "+GetGadgetItemText(52,33,0))
              SetGadgetText                 (70,"T:    "+GetGadgetItemText(52,34,0)+Chr(10)+"F:    "+GetGadgetItemText(52,35,0)+Chr(10)+"VS: "+GetGadgetItemText(52,36,0))
              For Gadget = 76 To 111
                SetGadgetText               (Gadget,GetGadgetItemText(52,Gadget-75,0))
              Next
              SetGadgetText                 (112,GetGadgetItemText(52,0,0))
            EndIf
          Else
            SetGadgetText                   (3,"Ungültiges Aktenzeichen")
          EndIf
        EndIf
      Case 4
        If EditedAkt = 1
          CreatePreferences                 ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.AD")
          For Item = 0 To 36
            WritePreferenceString           ("aItem"+Str(Item),GetGadgetItemText(52,Item,0))
          Next
          WritePreferenceLong               ("sItem0",CountGadgetItems(53))
          For Item = 1 To CountGadgetItems  (53)
            WritePreferenceString           ("sItem"+Str(Item),GetGadgetItemText(53,Item-1,0))
          Next
          EditedAkt = 0
        EndIf
        RefreshWindow                       (0,WindowHeight(0),0)
        End
      Case 5
        RefWinW = WindowWidth               (0)
        RefWinH = WindowHeight              (0)
        RefreshWindow                       (0,WindowHeight(0),200)
        HideWindow                          (0,1)
        AddSysTrayIcon                      (0,WindowID(0),ImageID(0))
        SysTrayIconToolTip                  (0,"AktenDaten öffnen")
      Case 50
        If GetGadgetText                    (50) = " "
          SetGadgetText                     (50,GetGadgetText(13)+" ./. "+GetGadgetText(31))
        EndIf
      Case 12
        CreateDirectory                     ("C:\AktData\"+AZy$+"\")
        CreateDirectory                     ("C:\AktData\"+AZy$+"\"+AZn$+"\")
        CreatePreferences                   ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.ad")
        WritePreferenceString               ("aItem0",GetGadgetText(50))
        For Item = 1 To 36
          WritePreferenceString             ("aItem"+Str(Item),GetGadgetText(Item+12))
        Next
        WritePreferenceLong                 ("sItem0",0)
        ClosePreferences                    ()
        SetActiveGadget                      (2)
      Case 53
        If EventType                        () = #PB_EventType_LeftDoubleClick
          If GetGadgetState                 (53) = -1
            AddGadgetItem                   (53,-1,"",ImageID(1))
            DisableGadget                   (53,1)
            Counter = CountGadgetItems      (53)
            If Counter > 11
              Counter = 11
            EndIf
            StringGadget                    (200,30,68+(Counter*17),260,18,"  ["+DateEx()+"]")
            SetActiveGadget                  (200)
            Ende = 0
            Repeat
              WaitWindowEvent               ()
              ExamineKeyboard               ()
              If KeyboardReleased           (#PB_Key_Escape)
                DisableGadget               (53,0)
                RemoveGadgetItem            (53,CountGadgetItems(53)-1)
                FreeGadget                  (200)
                Ende = 1
              ElseIf KeyboardReleased       (#PB_Key_Return)
                If GetGadgetText            (200) <> ""
                  SetGadgetText             (3,GetGadgetItemText(52,0,0))
                  DisableGadget             (53,0)
                  SetGadgetItemText         (53,CountGadgetItems(53)-1,GetGadgetText(200),0)
                  CopyFile                  ("C:\AktData\Vorlage.dot","C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc")
                  RunProgram                ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc","","",0)
                  FreeGadget                (200)
                  EditedAkt = 1
                  Ende = 1
                Else
                  SetGadgetText             (3,"Ungültiger Dateiname!")
                  SetGadgetText             (200,"  ["+DateEx()+"]")
                EndIf
              EndIf
            Until Ende = 1
          Else
            RunProgram                      ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","","",0)
          EndIf
        ElseIf EventType                    () = #PB_EventType_RightClick
          If GetGadgetState                 (53) = -1
            DisplayPopupMenu                (2,WindowID(0))
          Else
            DisplayPopupMenu                (1,WindowID(0))
          EndIf
        EndIf
      Case 58
        If GetGadgetState                   (58) = 1
          ReFreshWindow                     (640,620,114)
        ElseIf GetGadgetState               (58) = 0
          IsIf = MessageRequester           ("Speichern?","Sollen die Änderungen übernommen werden?",3 | #MB_ICONQUESTION)
          If IsIf = 2
            SetGadgetState                  (58,1)
          ElseIf IsIf = 6
            EditedAkt = 1
            SetGadgetItemText               (52,0,GetGadgetText(112),0)
            SetGadgetText                   (3,GetGadgetText(112))
            For Item = 1 To 36
              SetGadgetItemText             (52,Item,GetGadgetText(75+Item),0)
            Next
            SetGadgetText                   (60,GetGadgetItemText(52,1,0)+", "+GetGadgetItemText(52,2,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,3,0)+Chr(10)+GetGadgetItemText(52,4,0)+Chr(10)+GetGadgetItemText(52,5,0)+" "+GetGadgetItemText(52,6,0))
            SetGadgetText                   (61,"T:  "+GetGadgetItemText(52,7,0)+Chr(10)+"F:  "+GetGadgetItemText(52,8,0)+Chr(10)+"M: "+GetGadgetItemText(52,9,0)+Chr(10)+"gab. am "+GetGadgetItemText(52,10,0))
            SetGadgetText                   (63,GetGadgetItemText(52,11,0)+Chr(10)+GetGadgetItemText(52,12,0)+Chr(10)+GetGadgetItemText(52,13,0)+Chr(10)+GetGadgetItemText(52,14,0)+" "+GetGadgetItemText(52,15,0))
            SetGadgetText                   (64,"T:    "+GetGadgetItemText(52,16,0)+Chr(10)+"F:    "+GetGadgetItemText(52,17,0)+Chr(10)+"VS: "+GetGadgetItemText(52,18,0))
            SetGadgetText                   (66,GetGadgetItemText(52,19,0)+", "+GetGadgetItemText(52,20,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,21,0)+Chr(10)+GetGadgetItemText(52,22,0)+Chr(10)+GetGadgetItemText(52,23,0)+" "+GetGadgetItemText(52,24,0))
            SetGadgetText                   (67,"T:  "+GetGadgetItemText(52,25,0)+Chr(10)+"F:  "+GetGadgetItemText(52,26,0)+Chr(10)+"M: "+GetGadgetItemText(52,27,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,28,0))
            SetGadgetText                   (69,GetGadgetItemText(52,29,0)+Chr(10)+GetGadgetItemText(52,30,0)+Chr(10)+GetGadgetItemText(52,31,0)+Chr(10)+GetGadgetItemText(52,32,0)+" "+GetGadgetItemText(52,33,0))
            SetGadgetText                   (70,"T:    "+GetGadgetItemText(52,34,0)+Chr(10)+"F:    "+GetGadgetItemText(52,35,0)+Chr(10)+"VS: "+GetGadgetItemText(52,36,0))
            RefreshWindow                   (320,620,114)
          ElseIf IsIf = 7
            RefreshWindow                   (320,620,114)
          EndIf
        EndIf
      Default
        If EventGadget                    () > 12 And EventGadget() < 50
          If Left                           (GetGadgetText(EventGadget()),2) = "  "
            SetGadgetText                   (EventGadget(),"")
          EndIf
        EndIf
    EndSelect
  EndIf
  If EventID = #PB_Event_SysTray
    HideWindow                              (0,0)
    RefreshWindow                           (RefWinW,RefWinH,200)
    RemoveSysTrayIcon                       (0)
  EndIf
Until EventID = #PB_Event_CloseWindow
End


DataSection
  Data.s "Name","Vorname","c/o","Straße","PLZ","Ort","Telefon","Telefax","Mobil","Geburtsdatum","Bezeichnung","Bezeichnungszusatz","Straße","PLZ","Ort","Telefon","Telefax","VS-Nummer","Name","Vorname","c/o","Straße","PLZ","Ort","Telefon","Telefax","Mobil","Geburtsdatum","Titel","Name","Straße","PLZ","Ort","Telefon","Telefax","Aktenzeichen","< NO TEXT >"
EndDataSection
Changelog:
WindowWidth(): Parameterliste angepasst: #Window fehlte
ResizeWindow(): Parameterliste angepasst: #Window, X, Y fehlten
WindowHeight(): Parameterliste angepasst: #Window fehlte
Date(): Eigene Prozedur umbenannt: DateEx() (Du kannst aber auch stattdessen Date() und FormatDate() nutzen und brauchst dann keine WinAPI-Funktionen.)
OpenWindow(): Parameterliste angepasst, Title musste vor Flags sein
#PB_EventMenu: Umbenannt: #PB_Event_Menu
EventMenuID(): Umbenannt: EventMenu()
UseImage(): Umbenannt: ImageID()
ActivateGadget(): Umbenannt: SetActiveGadget()
RunProgram(): Parameterliste angepasst
#PB_EventGadget: Umbenannt: #PB_Event_Gadget
EventGadgetID(): Umbenannt: EventGadget()
WriteString(): Parameterliste angepasst: #File fehlte
#PB_EventSysTray: Umbenannt: #PB_Event_SysTray
#PB_EventCloseWindow: Umbenannt: #PB_Event_CloseWindow
CreateGadgetList(): Entfernt
ClearGadgetItemList(): Umbenannt: ClearGadgetItems()
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Nach oben
hubionmac
Beiträge: 2
Registriert: 21.11.2012 08:57

Re: Quellcode von 4.1 für 5 anpassen

Beitrag von hubionmac »

Cool... vielen vielen Dank!

Ich hatte noch ein ein Problem mit dem MessageRequester, da habe ich aber das Icon heraus genommen und #PB_MessageRequester_Yes etc. wohl die Dialoge korrekt abgebildet... aber nun erhalte ich noch einen Fehler bei Refresh Window (in Zeile 32) The Specified #Gadget is not initialised
Noch eine Idee, wie man das löst?:

Code: Alles auswählen

InitKeyboard                                ()

Dim Strings.s                               (36)
For Item = 0 To 36
  Read.s Strings                              (Item)
Next

Procedure RefreshWindow                     (W,H,FG)
  OKW = 0 : OKH = 0
  Repeat
;    Delay                                   (2)                                ;;;;;  << Wenns länger dauern soll
    If W < WindowWidth                      (0)
      ResizeWindow                          (0,#PB_Ignore,#PB_Ignore,WindowWidth(0)-1,WindowHeight(0))
    ElseIf W > WindowWidth                  (0)
      ResizeWindow                          (0,#PB_Ignore,#PB_Ignore,WindowWidth(0)+1,WindowHeight(0))
    ElseIf W = WindowWidth                  (0)
      OKW = 1
    EndIf
    If H < WindowHeight                     (0)
      ResizeWindow                          (0,#PB_Ignore,#PB_Ignore,WindowWidth(0),WindowHeight(0)-1)
    ElseIf H > WindowHeight                 (0)
      ResizeWindow                          (0,#PB_Ignore,#PB_Ignore,WindowWidth(0),WindowHeight(0)+1)
    ElseIf H = WindowHeight                 (0)
      OKH = 1
    EndIf
  Until OKW + OKH = 2
  ResizeGadget                              (0,5,5,WindowWidth(0)-10,40)
  ResizeGadget                              (3,64,20,WindowWidth(0)-91,20)
  ResizeGadget                              (4,WindowWidth(0)-22,13,15,15)
  ResizeGadget                              (5,WindowWidth(0)-22,28,15,15)
  For Gadget = FG To 113
    HideGadget (Gadget,1)
  Next
EndProcedure
Procedure.s DateEx                            ()
  ProcedureReturn                           ("1.1.2012")
EndProcedure
LoadImage                                   (0,"C:\AktData\AD.ico")
LoadImage                                   (1,"C:\AktData\DOC.ico")
OpenWindow                                  (0,0,0,0,0,"AktenDaten",#PB_Window_BorderLess)
     TextGadget                             (0,35,23,5,15,"/")
    Frame3DGadget                           (0,5,5,290,40,"Aktenzeichen",0)
     StringGadget                           (1,10,20,25,20,"",#PB_String_Numeric)
     StringGadget                           (2,40,20,19,20,"",#PB_String_Numeric)
     TextGadget                             (3,64,20,209,20,"AktenDaten",#PB_Text_Border | #PB_Text_Center)
     ButtonGadget                           (4,278,13,15,15,"X")
     ButtonGadget                           (5,278,28,15,15,"M")
    Frame3DGadget                           (6,5,50,315,390,"Neue Akte anlegen",0)
     Frame3DGadget                          (7,10,65,150,345,"Mandant",0)
      StringGadget                          (13,15,80,140,20,"")
      StringGadget                          (14,15,100,140,20,"")
      StringGadget                          (15,15,120,140,20,"")
      StringGadget                          (16,15,140,140,20,"")
      StringGadget                          (17,15,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (18,52,160,103,20,"")
      StringGadget                          (19,15,180,140,20,"")
      StringGadget                          (20,15,200,140,20,"")
      StringGadget                          (21,15,220,140,20,"")
      StringGadget                          (22,15,240,140,20,"")
      TextGadget                            (8,15,265,10,30,"R V")
      StringGadget                          (23,25,265,130,20,"")
      StringGadget                          (24,25,285,130,20,"")
      StringGadget                          (25,25,305,130,20,"")
      StringGadget                          (26,25,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (27,62,325,93,20,"")
      StringGadget                          (28,25,345,130,20,"")
      StringGadget                          (29,25,365,130,20,"")
      StringGadget                          (30,25,385,130,20,"")
     Frame3DGadget                          (9,165,65,150,345,"Gegner",0)
      StringGadget                          (31,170,80,140,20,"")
      StringGadget                          (32,170,100,140,20,"")
      StringGadget                          (33,170,120,140,20,"")
      StringGadget                          (34,170,140,140,20,"")
      StringGadget                          (35,170,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (36,207,160,103,20,"")
      StringGadget                          (37,170,180,140,20,"")
      StringGadget                          (38,170,200,140,20,"")
      StringGadget                          (39,170,220,140,20,"")
      StringGadget                          (40,170,240,140,20,"")
      TextGadget                            (10,170,265,10,100,"G E G N   R A")
      StringGadget                          (41,180,265,130,20,"")
      StringGadget                          (42,180,285,130,20,"")
      StringGadget                          (43,180,305,130,20,"")
      StringGadget                          (44,180,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (45,217,325,93,20,"")
      StringGadget                          (46,180,345,130,20,"")
      StringGadget                          (47,180,365,130,20,"")
      StringGadget                          (48,180,385,130,20,"")
      StringGadget                          (49,-100,0,30,30,"")
    TextGadget                              (11,10,418,45,15,"Sache:")
    StringGadget                            (50,50,415,155,20,"")
    ButtonGadget                            (12,210,415,105,20,"Akte anlegen",#PB_Button_Default)
   Frame3DGadget                            (51,5,50,310,225,"Schriftsätze",0)
    ListViewGadget                          (52,0,800,200,200)
    ListIconGadget                          (53,10,65,300,205,"Empfänger",279)
   Frame3DGadget                            (57,5,280,310,335,"Informationen",0)
    ButtonGadget                            (58,240,280,70,15,"Bearbeiten",#PB_Button_Toggle)
    Frame3DGadget                           (59,10,295,300,155,"Mandant",0)
     TextGadget                             (60,15,310,150,60,"")
     TextGadget                             (61,170,310,130,60,"")
    Frame3DGadget                           (62,15,365,290,80,"Rechtsschutzversicherung",0)
     TextGadget                             (63,20,380,145,60,"")
     TextGadget                             (64,170,380,120,60,"")
    Frame3DGadget                           (65,10,455,300,155,"Gegner",0)
     TextGadget                             (66,15,470,150,60,"")
     TextGadget                             (67,170,470,130,60,"")
    Frame3DGadget                           (68,15,525,290,80,"gegnerischer Rechtsanwalt",0)
     TextGadget                             (69,20,540,145,60,"")
     TextGadget                             (70,170,540,120,60,"")
    Frame3DGadget                           (71,320,50,315,390,"Akte bearbeiten",0)
     Frame3DGadget                          (72,325,65,150,345,"Mandant",0)
      StringGadget                          (76,330,80,140,20,"")
      StringGadget                          (77,330,100,140,20,"")
      StringGadget                          (78,330,120,140,20,"")
      StringGadget                          (79,330,140,140,20,"")
      StringGadget                          (80,330,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (81,367,160,103,20,"")
      StringGadget                          (82,330,180,140,20,"")
      StringGadget                          (83,330,200,140,20,"")
      StringGadget                          (84,330,220,140,20,"")
      StringGadget                          (85,330,240,140,20,"")
      TextGadget                            (73,330,265,10,30,"R V")
      StringGadget                          (86,340,265,130,20,"")
      StringGadget                          (87,340,285,130,20,"")
      StringGadget                          (88,340,305,130,20,"")
      StringGadget                          (89,340,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (90,377,325,93,20,"")
      StringGadget                          (91,340,345,130,20,"")
      StringGadget                          (92,340,365,130,20,"")
      StringGadget                          (93,340,385,130,20,"")
     Frame3DGadget                          (74,480,65,150,345,"Gegner",0)
      StringGadget                          (94,485,80,140,20,"")
      StringGadget                          (95,485,100,140,20,"")
      StringGadget                          (96,485,120,140,20,"")
      StringGadget                          (97,485,140,140,20,"")
      StringGadget                          (98,485,160,37,20,"",#PB_String_Numeric)
      StringGadget                          (99,522,160,103,20,"")
      StringGadget                          (100,485,180,140,20,"")
      StringGadget                          (101,485,200,140,20,"")
      StringGadget                          (102,485,220,140,20,"")
      StringGadget                          (103,485,240,140,20,"")
      TextGadget                            (75,485,265,10,100,"G E G N   R A")
      StringGadget                          (104,495,265,130,20,"")
      StringGadget                          (105,495,285,130,20,"")
      StringGadget                          (106,495,305,130,20,"")
      StringGadget                          (107,495,325,37,20,"",#PB_String_Numeric)
      StringGadget                          (108,532,325,93,20,"")
      StringGadget                          (109,495,345,130,20,"")
      StringGadget                          (110,495,365,130,20,"")
      StringGadget                          (111,495,385,130,20,"")
    StringGadget                            (112,325,415,305,20,"")

CreatePopupMenu                             (1)
  MenuItem                                  (1,"Verfassen")
  MenuBar                                   ()
  MenuItem                                  (2,"Öffnen")
  MenuItem                                  (3,"Umbenennen")
  MenuItem                                  (4,"Löschen")
CreatePopupMenu                             (2)
  MenuItem                                  (1,"Verfassen")
  RefreshWindow                             (250,50,6)

Repeat
  EventID = WaitWindowEvent                 ()
  If EventID = #PB_Event_Menu
    Select EventMenu                      ()
      Case 1
        AddGadgetItem                       (53,-1,"",ImageID(1))
        DisableGadget                       (53,1)
        Counter = CountGadgetItems          (53)
        If Counter > 11
          Counter = 11
        EndIf
        StringGadget                        (200,30,68+(Counter*17),260,18,"  ["+DateEx()+"]")
        SetActiveGadget                      (200)
        Ende = 0
        Repeat
          WaitWindowEvent                   ()
          ExamineKeyboard                   ()
          If KeyboardReleased               (#PB_Key_Escape)
            DisableGadget                   (53,0)
            RemoveGadgetItem                (53,CountGadgetItems(53)-1)
            FreeGadget                      (200)
            Ende = 1
          ElseIf KeyboardReleased           (#PB_Key_Return)
            If GetGadgetText                (200) <> ""
              SetGadgetText                 (3,GetGadgetItemText(52,0,0))
              DisableGadget                 (53,0)
              SetGadgetItemText             (53,CountGadgetItems(53)-1,GetGadgetText(200),0)
              CopyFile                      ("C:\AktData\Vorlage.dot","C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc")
              RunProgram                    ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc","","",0)
              FreeGadget                    (200)
              EditedAkt = 1
              Ende = 1
            Else
              SetGadgetText                 (3,"Ungültiger Dateiname!")
              SetGadgetText                 (200,"  ["+DateEx()+"]")
            EndIf
          EndIf
        Until Ende = 1
      Case 2
        RunProgram                          ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","","",0)
      Case 3
        Ende = 0
        Item = GetGadgetState               (53)
        If Item > 10
          Counter = 10 : Else : Counter = Item+1
        EndIf
        DisableGadget                       (53,1)
        StringGadget                        (200,30,68+(Counter*17),260,18,GetGadgetItemText(53,Item,0))
        SetActiveGadget                      (200)
        Repeat
          WaitWindowEvent                   ()
          ExamineKeyboard                   ()
          If KeyboardReleased               (#PB_Key_Escape)
            DisableGadget                   (53,0)
            FreeGadget                      (200)
            Ende = 1
          ElseIf KeyboardReleased           (#PB_Key_Return)
            If GetGadgetText                (200) <> ""
              SetGadgetText                 (3,GetGadgetItemText(52,0,0))
              DisableGadget                 (53,0)
              SetGadgetItemText             (53,Item,GetGadgetText(200),0)
              FreeGadget                    (200)
              EditedAkt = 1
              Ende = 1
            Else
              SetGadgetText                 (3,"Ungültiger Dateiname!")
              SetGadgetText                 (200,GetGadgetItemText(53,Item,0))
            EndIf
          EndIf
        Until Ende = 1
      Case 4
        If MessageRequester                 ("Löschen von Schriftsätzen bestätigen","Möchten Sie ''"+GetGadgetText(53)+"'' wirklich löschen?",#PB_MessageRequester_YesNo) = #PB_MessageRequester_Yes
          CopyFile                          ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","C:\AktData\XX\"+AZn$+"-"+AZy$+" "+GetGadgetText(53)+".doc")
          DeleteFile                        ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc")
          For File = GetGadgetState         (53)+2 To CountGadgetItems(53)
            RenameFile                      ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(File)+".doc","C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(File-1)+".doc")
          Next
          RemoveGadgetItem                  (53,GetGadgetState(53))
          EditedAkt = 1
        EndIf
    EndSelect
  EndIf
  If EventID = #PB_Event_Gadget
    Select EventGadget                    ()
      Case 1
        If EditedAkt = 1
          CreatePreferences                 ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.AD")
          For Item = 0 To 36
            WritePreferenceString           ("aItem"+Str(Item),GetGadgetItemText(52,Item,0))
          Next
          WritePreferenceLong               ("sItem0",CountGadgetItems(53))
          For Item = 1 To CountGadgetItems  (53)
            WritePreferenceString           ("sItem"+Str(Item),GetGadgetItemText(53,Item-1,0))
          Next
          EditedAkt = 0
        EndIf
        ClearGadgetItems                 (52)
        ClearGadgetItems                 (53)
        SetGadgetText                       (3,"AktenDaten")
        RefreshWindow                       (250,50,6)
        If Len                              (GetGadgetText(1)) > 0 And Len(GetGadgetText(2)) > 0
          SetGadgetText                     (1,"")
          SetGadgetText                     (2,"")
        EndIf
        If Len                              (GetGadgetText(1)) = 3
          SetActiveGadget                    (2)
        EndIf
      Case 2
        If Len                              (GetGadgetText(2)) = 2
          SetActiveGadget                    (3)
          If Len                            (GetGadgetText(1)) = 0
            If MessageRequester             ("Löschen von Akten bestätigen","Möchten Sie den Aktenstamm '"+GetGadgetText(2)+" wirklich löschen?"+Chr(10)+Chr(10)+"ACHTUNG: Dieser vorgang entfernt alle Akten sammt Schriftsätzen!",#PB_MessageRequester_YesNo) = #PB_MessageRequester_Yes
              CreateFile                    (0,"C:\AktData\DelAkt.bat")
              WriteString                   (0,"rd /s /q C:\AktData\"+GetGadgetText(2))
              CloseFile                     (0)
              RunProgram                    ("C:\AktData\DelAkt.bat","","",1)
              Delay                         (500)
              DeleteFile                    ("C:\AktData\DelAkt.bat")
              SetGadgetText                 (3,"Alle Akten entfernt")
              SetGadgetText                 (2,"")
            EndIf
            SetGadgetText                   (2,"")
          ElseIf Len                        (GetGadgetText(1)) = 3
            AZn$ = GetGadgetText            (1)
            AZy$ = GetGadgetText            (2)
            If OpenPreferences              ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.ad") = 0
              SetGadgetText                 (3,"Akte nicht gefunden")
              RefreshWindow                 (325,445,6)
              For Item = 0 To 36
                SetGadgetText               (Item+13,"  "+Strings(Item))
              Next
              SetGadgetText                 (50,"")
              For Gadget = 6 To 50
                HideGadget                  (Gadget,0)
              Next
            Else
              SetGadgetText                 (3,ReadPreferenceString("aItem0","Akte ist Fehlerhaft!"))
              RefreshWindow                 (320,620,6)
              For Item = 0 To 36
                AddGadgetItem               (52,Item,ReadPreferenceString("aItem"+Str(Item),""))
              Next
              For Item = 1 To ReadPreferenceLong("sItem0",0)
                AddGadgetItem               (53,-1,ReadPreferenceString("sItem"+Str(Item),""),ImageID(1))
              Next
              ClosePreferences              ()
              For Gadget = 51 To 113
                HideGadget                  (Gadget,0)
              Next
              For Item = 1 To Val           (GetGadgetItemText(52,37,0))
                AddGadgetItem               (53,-1,GetGadgetItemText(52,Item+37,0),ImageID(1))
              Next
              SetGadgetText                 (60,GetGadgetItemText(52,1,0)+", "+GetGadgetItemText(52,2,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,3,0)+Chr(10)+GetGadgetItemText(52,4,0)+Chr(10)+GetGadgetItemText(52,5,0)+" "+GetGadgetItemText(52,6,0))
              SetGadgetText                 (61,"T:  "+GetGadgetItemText(52,7,0)+Chr(10)+"F:  "+GetGadgetItemText(52,8,0)+Chr(10)+"M: "+GetGadgetItemText(52,9,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,10,0))
              SetGadgetText                 (63,GetGadgetItemText(52,11,0)+Chr(10)+GetGadgetItemText(52,12,0)+Chr(10)+GetGadgetItemText(52,13,0)+Chr(10)+GetGadgetItemText(52,14,0)+" "+GetGadgetItemText(52,15,0))
              SetGadgetText                 (64,"T:    "+GetGadgetItemText(52,16,0)+Chr(10)+"F:    "+GetGadgetItemText(52,17,0)+Chr(10)+"VS: "+GetGadgetItemText(52,18,0))
              SetGadgetText                 (66,GetGadgetItemText(52,19,0)+", "+GetGadgetItemText(52,20,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,21,0)+Chr(10)+GetGadgetItemText(52,22,0)+Chr(10)+GetGadgetItemText(52,23,0)+" "+GetGadgetItemText(52,24,0))
              SetGadgetText                 (67,"T:  "+GetGadgetItemText(52,25,0)+Chr(10)+"F:  "+GetGadgetItemText(52,26,0)+Chr(10)+"M: "+GetGadgetItemText(52,27,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,28,0))
              SetGadgetText                 (69,GetGadgetItemText(52,29,0)+Chr(10)+GetGadgetItemText(52,30,0)+Chr(10)+GetGadgetItemText(52,31,0)+Chr(10)+GetGadgetItemText(52,32,0)+" "+GetGadgetItemText(52,33,0))
              SetGadgetText                 (70,"T:    "+GetGadgetItemText(52,34,0)+Chr(10)+"F:    "+GetGadgetItemText(52,35,0)+Chr(10)+"VS: "+GetGadgetItemText(52,36,0))
              For Gadget = 76 To 111
                SetGadgetText               (Gadget,GetGadgetItemText(52,Gadget-75,0))
              Next
              SetGadgetText                 (112,GetGadgetItemText(52,0,0))
            EndIf
          Else
            SetGadgetText                   (3,"Ungültiges Aktenzeichen")
          EndIf
        EndIf
      Case 4
        If EditedAkt = 1
          CreatePreferences                 ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.AD")
          For Item = 0 To 36
            WritePreferenceString           ("aItem"+Str(Item),GetGadgetItemText(52,Item,0))
          Next
          WritePreferenceLong               ("sItem0",CountGadgetItems(53))
          For Item = 1 To CountGadgetItems  (53)
            WritePreferenceString           ("sItem"+Str(Item),GetGadgetItemText(53,Item-1,0))
          Next
          EditedAkt = 0
        EndIf
        RefreshWindow                       (0,WindowHeight(0),0)
        End
      Case 5
        RefWinW = WindowWidth               (0)
        RefWinH = WindowHeight              (0)
        RefreshWindow                       (0,WindowHeight(0),200)
        HideWindow                          (0,1)
        AddSysTrayIcon                      (0,WindowID(0),ImageID(0))
        SysTrayIconToolTip                  (0,"AktenDaten öffnen")
      Case 50
        If GetGadgetText                    (50) = " "
          SetGadgetText                     (50,GetGadgetText(13)+" ./. "+GetGadgetText(31))
        EndIf
      Case 12
        CreateDirectory                     ("C:\AktData\"+AZy$+"\")
        CreateDirectory                     ("C:\AktData\"+AZy$+"\"+AZn$+"\")
        CreatePreferences                   ("C:\AktData\"+AZy$+"\"+AZn$+"\Info.ad")
        WritePreferenceString               ("aItem0",GetGadgetText(50))
        For Item = 1 To 36
          WritePreferenceString             ("aItem"+Str(Item),GetGadgetText(Item+12))
        Next
        WritePreferenceLong                 ("sItem0",0)
        ClosePreferences                    ()
        SetActiveGadget                      (2)
      Case 53
        If EventType                        () = #PB_EventType_LeftDoubleClick
          If GetGadgetState                 (53) = -1
            AddGadgetItem                   (53,-1,"",ImageID(1))
            DisableGadget                   (53,1)
            Counter = CountGadgetItems      (53)
            If Counter > 11
              Counter = 11
            EndIf
            StringGadget                    (200,30,68+(Counter*17),260,18,"  ["+DateEx()+"]")
            SetActiveGadget                  (200)
            Ende = 0
            Repeat
              WaitWindowEvent               ()
              ExamineKeyboard               ()
              If KeyboardReleased           (#PB_Key_Escape)
                DisableGadget               (53,0)
                RemoveGadgetItem            (53,CountGadgetItems(53)-1)
                FreeGadget                  (200)
                Ende = 1
              ElseIf KeyboardReleased       (#PB_Key_Return)
                If GetGadgetText            (200) <> ""
                  SetGadgetText             (3,GetGadgetItemText(52,0,0))
                  DisableGadget             (53,0)
                  SetGadgetItemText         (53,CountGadgetItems(53)-1,GetGadgetText(200),0)
                  CopyFile                  ("C:\AktData\Vorlage.dot","C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc")
                  RunProgram                ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(CountGadgetItems(53))+".doc","","",0)
                  FreeGadget                (200)
                  EditedAkt = 1
                  Ende = 1
                Else
                  SetGadgetText             (3,"Ungültiger Dateiname!")
                  SetGadgetText             (200,"  ["+DateEx()+"]")
                EndIf
              EndIf
            Until Ende = 1
          Else
            RunProgram                      ("C:\AktData\"+AZy$+"\"+AZn$+"\"+Str(GetGadgetState(53)+1)+".doc","","",0)
          EndIf
        ElseIf EventType                    () = #PB_EventType_RightClick
          If GetGadgetState                 (53) = -1
            DisplayPopupMenu                (2,WindowID(0))
          Else
            DisplayPopupMenu                (1,WindowID(0))
          EndIf
        EndIf
      Case 58
        If GetGadgetState                   (58) = 1
          ReFreshWindow                     (640,620,114)
        ElseIf GetGadgetState               (58) = 0
          IsIf = MessageRequester           ("Speichern?","Sollen die Änderungen übernommen werden?",#PB_MessageRequester_YesNoCancel)
          If IsIf = #PB_MessageRequester_Cancel
            SetGadgetState                  (58,1)
          ElseIf IsIf = #PB_MessageRequester_Yes
            EditedAkt = 1
            SetGadgetItemText               (52,0,GetGadgetText(112),0)
            SetGadgetText                   (3,GetGadgetText(112))
            For Item = 1 To 36
              SetGadgetItemText             (52,Item,GetGadgetText(75+Item),0)
            Next
            SetGadgetText                   (60,GetGadgetItemText(52,1,0)+", "+GetGadgetItemText(52,2,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,3,0)+Chr(10)+GetGadgetItemText(52,4,0)+Chr(10)+GetGadgetItemText(52,5,0)+" "+GetGadgetItemText(52,6,0))
            SetGadgetText                   (61,"T:  "+GetGadgetItemText(52,7,0)+Chr(10)+"F:  "+GetGadgetItemText(52,8,0)+Chr(10)+"M: "+GetGadgetItemText(52,9,0)+Chr(10)+"gab. am "+GetGadgetItemText(52,10,0))
            SetGadgetText                   (63,GetGadgetItemText(52,11,0)+Chr(10)+GetGadgetItemText(52,12,0)+Chr(10)+GetGadgetItemText(52,13,0)+Chr(10)+GetGadgetItemText(52,14,0)+" "+GetGadgetItemText(52,15,0))
            SetGadgetText                   (64,"T:    "+GetGadgetItemText(52,16,0)+Chr(10)+"F:    "+GetGadgetItemText(52,17,0)+Chr(10)+"VS: "+GetGadgetItemText(52,18,0))
            SetGadgetText                   (66,GetGadgetItemText(52,19,0)+", "+GetGadgetItemText(52,20,0)+Chr(10)+"z. H. "+GetGadgetItemText(52,21,0)+Chr(10)+GetGadgetItemText(52,22,0)+Chr(10)+GetGadgetItemText(52,23,0)+" "+GetGadgetItemText(52,24,0))
            SetGadgetText                   (67,"T:  "+GetGadgetItemText(52,25,0)+Chr(10)+"F:  "+GetGadgetItemText(52,26,0)+Chr(10)+"M: "+GetGadgetItemText(52,27,0)+Chr(10)+"geb. am "+GetGadgetItemText(52,28,0))
            SetGadgetText                   (69,GetGadgetItemText(52,29,0)+Chr(10)+GetGadgetItemText(52,30,0)+Chr(10)+GetGadgetItemText(52,31,0)+Chr(10)+GetGadgetItemText(52,32,0)+" "+GetGadgetItemText(52,33,0))
            SetGadgetText                   (70,"T:    "+GetGadgetItemText(52,34,0)+Chr(10)+"F:    "+GetGadgetItemText(52,35,0)+Chr(10)+"VS: "+GetGadgetItemText(52,36,0))
            RefreshWindow                   (320,620,114)
          ElseIf IsIf = #PB_MessageRequester_No
            RefreshWindow                   (320,620,114)
          EndIf
        EndIf
      Default
        If EventGadget                    () > 12 And EventGadget() < 50
          If Left                           (GetGadgetText(EventGadget()),2) = "  "
            SetGadgetText                   (EventGadget(),"")
          EndIf
        EndIf
    EndSelect
  EndIf
  If EventID = #PB_Event_SysTray
    HideWindow                              (0,0)
    RefreshWindow                           (RefWinW,RefWinH,200)
    RemoveSysTrayIcon                       (0)
  EndIf
Until EventID = #PB_Event_CloseWindow
End


DataSection
  Data.s "Name","Vorname","c/o","Straße","PLZ","Ort","Telefon","Telefax","Mobil","Geburtsdatum","Bezeichnung","Bezeichnungszusatz","Straße","PLZ","Ort","Telefon","Telefax","VS-Nummer","Name","Vorname","c/o","Straße","PLZ","Ort","Telefon","Telefax","Mobil","Geburtsdatum","Titel","Name","Straße","PLZ","Ort","Telefon","Telefax","Aktenzeichen","< NO TEXT >"
EndDataSection
Nach oben
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von RSBasic

Re: Quellcode von 4.1 für 5 anpassen

Beitrag von RSBasic »

Ich habe den Code zwar nicht genauer angeschaut, aber du könntest als Notlösung folgenden Code nutzen:

Code: Alles auswählen

If IsGadget(Gadget)
  HideGadget (Gadget,1)
endif
Aber schau trotzdem mal nach, bei welcher Gadgetnummer dieser Fehler auftritt. Also mit: Debug Gadget
Da musst du ggf. deine Schleife anpassen, so dass dein Programm wirklich auf vorhandene Gadgets, die du definiert hast, zugreift.
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Nach oben
Andesdaf
Moderator
Beiträge: 2673
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Re: Quellcode von 4.1 für 5 anpassen

Beitrag von Andesdaf »

Das Gadget Nr. 0 ist zweimal zugewiesen, einmal auf das TextGadget (Zeile 41) und das Frame3DGadget eins darunter. Daran könnte es liegen.
Win11 x64 | PB 6.20
Nach oben
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:
Kontaktdaten von STARGÅTE

Re: Quellcode von 4.1 für 5 anpassen

Beitrag von STARGÅTE »

[Offtopic]
@hubionmac:
Das ist ja mal ein (wie ich finde) außergewöhnlicher Einrück-Stil: Die Parameter alle auf gleicher höhe.
Wie kamst du darauf? Machst du das per Hand, oder hast du n Werkzeug geschrieben?
[/Offtopic]
Zuletzt geändert von STARGÅTE am 22.11.2012 23:21, insgesamt 1-mal geändert.
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Nach oben
Benutzeravatar
R3booz
Beiträge: 90
Registriert: 01.11.2012 19:28
Computerausstattung: Intel Core I3, 4GB RAM, RADEON HD 6660 1 GDDR5
Kontaktdaten:
Kontaktdaten von R3booz

Re: Quellcode von 4.1 für 5 anpassen

Beitrag von R3booz »

Die art wie man so etwas so unübersichtlich programieren kann wundert mich sehr :o
Rechtschreibfehler sind kostenlos und im Preis inklusive!

http://www.games-table.de.tl/
Version 5.20 LTS
Nach oben
Antworten

Zurück zu „Anfänger“