XProfan

Def GetSysColor(1) !USER32,GetSysColor
 $I LISTVIEW_FUNKTIONEN.INC
DECLARE pfad$,programm$,version$,text$[52]
pfad$=GETDIR$(@):programm$=GG-Änderungen:version$=1.0
DECLARE listview&,lv_dll&
lv_dll&=USEDLL(pfad$+\listview.dll)
DECLARE EE%
EE%=0
DECLARE ende%
--------------------------------------------------------------------------------

PROC GG_LISTVIEW_ANZEIGE

    listview&=CreateListview(%hwnd,%hinstance,0,Rgb(255,255,255),-1,$31)
    InsertColumn listview&,Nr.,(30),2
    InsertColumn listview&,Änderndes Gesetz,(420),0
    InsertColumn listview&,Datum,(80),2
    InsertColumn listview&,BGBl,(65),2
    InsertColumn listview&,Geänderter Artikel,(220),0
    InsertColumn listview&,Änderung,(110),0
    ShowListview(listview&,5,40,948,610)
    InitMessages(%hwnd)

ENDPROC

#########################################################

PROC GG_TEXT_ANZEIGE

    text$[1]=FRANK ABBING
    text$[2]=Listview.dll-Entwickler
    SetItemText(listview&,addr(text$[1]),0,0,len(text$[1]))
    SetItemText(listview&,addr(text$[2]),0,1,len(text$[2]))

ENDPROC

#################################################### START
REGISTER(4711 :o) )
Set(FastMode,1)
Set(MessageMode, 2)
WindowStyle 512 + 10
CLS GetSysColor(15)
WINDOW (%MaxX/2-482),(%MaxY/2-354)-964,708
USEICON A
WindowTitle programm$+ - +version$
ende%=CREATE(BUTTON,%HWnd,&Programmende,5,1,150,30)
GG_LISTVIEW_ANZEIGE
GG_TEXT_ANZEIGE

WHILENOT EE%

    WAITINPUT
    Case CLICKED(ende%) | Iskey(80):END
    Case %Key=2:END

ENDWHILE

END

Proc GG_ZEIGE:TEXT

    Addstring   1|Strafrechtsänderungsgesetz|30.08.1951|I S. 739|143|aufgehoben
    Addstring   2|Gesetz zur Einfügung eines Artikels 120a in das Grundgesetz|14.08.1952|I S. 445|120a|eingefügt
    Addstring   3|Gesetz zur Änderung des Art. 107 des Grundgesetzes|20.04.1953|I S. 130|107|   geändert
    Addstring   4|Ergänzungsgesetz|26.03.1954|I S. 45|73, 79|   geändert
    usw.....
    MovelistToHandle(listview&)

Endproc

Addstring(ListView&,  1|Strafrechtsänderungsgesetz|30.08.1951|I S. 739|143|aufgehoben)