Adressbuch

Sirocool

Adressbuch Version

Update-Infos...

Donnerstag,19.Februar.2009

-Fehler behebungen
-Kalender
-Suchen
-Help
-timer

Download Link da diese Version jetzt über 5,93 MB gross ist muss ich euch die version so anbieten sorry

und einmal ein link wo ihr die adressbuch.exe om unterverzeichnis C:/programme/adressbuch löschen müsst und durch diese ersteten das was moz geschreiben hat ist eigendlich schon alles behoben

~~Sonntag,15.Februar.2009~~

-Fehler behebungen

~~Samstag,14.Februar.2009~~

- Fehler behebungen
- neue Funktionen hinzugefügt
- neue Designs
- check Ping wegen Updates
- Updates

~~Sonntag, 08. Februar.2009~~

- Vorstellung des Projektes
- Design & Entwurf
- Versions Funktions check

Versionsquellcode 1.0.5

[autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Adressbuch Version 1.0.5 ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 100% auf Windows 07 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <ComboConstants.au3>
#include <ButtonConstants.au3>
#include <Sound.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
_IEErrorHandlerRegister ()

[/autoit][autoit][/autoit][autoit]

If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\")
FileInstall("Timer.exe","C:\Programme\Adressbuch\Timer.exe")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch")
FileInstall("Timer.lnk","C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch\Timer.lnk")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch")
FileInstall("Timer.lnk","C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\Timer.lnk")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\")
FileInstall("Adressbuch.exe","C:\Programme\Adressbuch\Adressbuch.exe")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch")
FileInstall("Adressbuch.lnk","C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch\Adressbuch.lnk")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\images\timer\")
FileInstall("images\timer\timer_bg.jpg","C:\Programme\Adressbuch\images\timer\timer_bg.jpg")
FileInstall("images\timer\mini.jpg","C:\Programme\Adressbuch\images\timer\mini.jpg")
FileInstall("images\timer\close.jpg","C:\Programme\Adressbuch\images\timer\close.jpg")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\images\help")
FileInstall("images\help\help_bg.jpg","C:\Programme\Adressbuch\images\help\help_bg.jpg")
FileInstall("images\help\mini.jpg","C:\Programme\Adressbuch\images\help\mini.jpg")
FileInstall("images\help\close.jpg","C:\Programme\Adressbuch\images\help\close.jpg")
FileInstall("images\help\vorwarts.jpg","C:\Programme\Adressbuch\images\help\vorwarts.jpg")
FileInstall("images\help\zurruck.jpg","C:\Programme\Adressbuch\images\help\zurruck.jpg")
FileInstall("images\help\aktualisieren.jpg","C:\Programme\Adressbuch\images\help\aktualisieren.jpg")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\images\updater")
FileInstall("images\updater\updater_bg.jpg","C:\Programme\Adressbuch\images\updater\updater_bg.jpg")
FileInstall("images\updater\mini.jpg","C:\Programme\Adressbuch\images\updater\mini.jpg")
FileInstall("images\updater\close.jpg","C:\Programme\Adressbuch\images\updater\close.jpg")
FileInstall("images\updater\download.jpg","C:\Programme\Adressbuch\images\updater\downlaod.jpg")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\images\")
FileInstall("images\bg.jpg","C:\Programme\Adressbuch\images\bg.jpg")
FileInstall("images\close.jpg","C:\Programme\Adressbuch\images\close.jpg")
FileInstall("images\hilfe.jpg","C:\Programme\Adressbuch\images\hilfe.jpg")
FileInstall("images\kalender.jpg","C:\Programme\Adressbuch\images\kalender.jpg")
FileInstall("images\kontakt.jpg","C:\Programme\Adressbuch\images\kontakt.jpg")
FileInstall("images\loader.jpg","C:\Programme\Adressbuch\images\loader.jpg")
FileInstall("images\loschen.jpg","C:\Programme\Adressbuch\images\loschen.jpg")
FileInstall("images\mini.jpg","C:\Programme\Adressbuch\images\mini.jpg")
FileInstall("images\speichern.jpg","C:\Programme\Adressbuch\images\speichern.jpg")
FileInstall("images\suchen.jpg","C:\Programme\Adressbuch\images\suchen.jpg")
FileInstall("images\Update.jpg","C:\Programme\Adressbuch\images\update.jpg")
FileInstall("images\kalender_bg.jpg","C:\Programme\Adressbuch\images\kalender_bg.jpg")
FileInstall("images\kontakt_bg.jpg","C:\Programme\Adressbuch\images\kontakt_bg.jpg")
FileInstall("images\suchen_bg.jpg","C:\Programme\Adressbuch\images\suchen_bg.jpg")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\help\")
FileInstall("help\bme0001.htm","C:\Programme\Adressbuch\help\bme0001.htm")
FileInstall("help\bme0003.htm","C:\Programme\Adressbuch\help\bme0003.htm")
EndIf
If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\help\images\")
FileInstall("help\images\browse-icon-windows._V45804877_.gif","C:\Programme\Adressbuch\help\images\browse-icon-windows._V45804877_.gif")
FileInstall("help\images\logo-adressbuch.jpg","C:\Programme\Adressbuch\help\images\logo-adressbuch.jpg")
EndIf

[/autoit][autoit][/autoit][autoit]

$load = "Loader"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate($load, 250, 100, 550, 350, $WS_POPUP)
GUISetBkColor("images\loader.jpg")
$Progress1 = GUICtrlCreateProgress(2, 39, 247, 19)
GUICtrlCreateLabel("Adressbuch wird geladen ...", 3, 20, 200, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$loader = GUICtrlCreatePic("images\loader.jpg", 0, 0, 250, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0,0,600,300,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

$check = Ping("www.autoit.de")
If @error = 0 Then
Else
MsgBox(0, "Error", "!! Achtung !! Kein Internet verfügbar!", 5)
Exit
EndIf

[/autoit][autoit][/autoit][autoit]

$s = 0
do
$s = $s + 10
sleep(1000)
guictrlsetdata($Progress1 , $s)
until $s = 100
sleep(1000)
_sound()
guisetstate(0)

[/autoit][autoit][/autoit][autoit]

Dim $nCurCol = -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $aDaten,$aKalenderdaten
Dim $version = "1.0.2"

[/autoit][autoit][/autoit][autoit]

dim $Status
Local $INI = @ScriptDir & "\data\daten.ini"
Local $INI1 = @ScriptDir & "\data\Kalenderdaten.ini"

[/autoit][autoit][/autoit][autoit]

Global $aDaten = IniReadSection($INI, "daten")
Global $Listview1,$hGui,$lb_Daten
Global $lastNum = IniRead($INI, "Numbers", "last", 9999)

[/autoit][autoit][/autoit][autoit]

Global $aKalenderdaten = IniReadSection($INI1, "Kalenderdaten")
Global $Listview2,$hGui,$lb_Kalenderdaten
Global $lastNum1 = IniRead($INI1, "Numbers", "last", 0)

[/autoit][autoit][/autoit][autoit]

$Titel = "Adressbuch"
#Region ### START Koda GUI section ###
$hGui = GUICreate($Titel , 500, 250, 259, 9, $WS_POPUP)
GUISetBkColor("images\bg.jpg")
$close = GUICtrlCreatePic("images\close.jpg", 480, 0, 21, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$mini = GUICtrlCreatePic("images\mini.jpg", 455, 0, 23, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$kalender = GUICtrlCreatePic("images\kalender.jpg", 30, 229, 75, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$suchen = GUICtrlCreatePic("images\suchen.jpg", 107, 229, 94, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$kontakt = GUICtrlCreatePic("images\kontakt.jpg", 210, 229, 72, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$update = GUICtrlCreatePic("images\update.jpg", 291, 229, 91, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$hilfe = GUICtrlCreatePic("images\hilfe.jpg", 385, 228, 93, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$ListView1 = GUICtrlCreateListView("Nummer|Status|Vorname|Nachname|Geburtsdatum|Emailadresse|Info", 22, 21, 456, 207, $LVS_REPORT, $LVS_EX_GRIDLINES)
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_new = GUICtrlCreateMenuItem('Kontakt Hinzufügen', $mnu)
$mnu_edit = GUICtrlCreateMenuItem('Kontakt Bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Kontakt Löschen', $mnu)
$Button = GUICtrlCreatePic("images\bg.jpg", 0, 0, 500, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0, 0, 600, 300, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW, $hGui)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

$Titel1 = "Kalender"
#Region ### START Koda GUI section ###
$hGui1 = GUICreate($Titel1, 500, 250, 259, 259, $WS_POPUP)
GUISetBkColor("images\kalender_bg.jpg")
$close1 = GUICtrlCreatePic("images\close.jpg", 480, 0, 21, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$mini1 = GUICtrlCreatePic("images\mini.jpg", 455, 0, 23, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$kalender1 = GUICtrlCreatePic("images\kalender.jpg", 30, 229, 75, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$suchen1 = GUICtrlCreatePic("images\suchen.jpg", 107, 229, 94, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$kontakt1 = GUICtrlCreatePic("images\kontakt.jpg", 210, 229, 72, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$update1 = GUICtrlCreatePic("images\update.jpg", 291, 229, 91, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$hilfe1 = GUICtrlCreatePic("images\hilfe.jpg", 385, 228, 93, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$MonthCal10 =""
$MonthCal1 = GUICtrlCreateMonthCal("2009/02/18", 24, 24, 199, 170)
$Uhrzeit = GUICtrlCreateLabel("Uhrzeit", 232, 24, 37, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Nachname1 = GUICtrlCreateLabel("Nachname", 232, 72, 65, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Aufgaben = ""
$Edit100 = GUICtrlCreateEdit("", 232, 128, 233, 97)
GUICtrlSetData(-1, "Inrormationen")
$Informationen = GUICtrlCreateLabel("Informationen", 368, 24, 68, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Input100 = GUICtrlCreateInput("09:00", 232, 48, 121, 21)
GUICtrlSetLimit (-1, 5, 0)
$Input200 = GUICtrlCreateInput("Input2", 232, 96, 121, 21)
$Combo100 = GUICtrlCreateCombo("Auswahl", 368, 48, 97, 25)
GUICtrlSetData($Combo100, "Privat|Geschäftlich", "Auswahl")
$speichern1 = GUICtrlCreatePic("images\speichern.jpg", 20, 200, 100, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$loschen1 = GUICtrlCreatePic("images\loschen.jpg", 126, 200, 100, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Anschrift = GUICtrlCreateLabel("Anschrift", 368, 72, 50, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Input300 = GUICtrlCreateInput("Input3", 368, 96, 97, 21)
$Button1 = GUICtrlCreatePic("images\kalender_bg.jpg", 0, 0, 500, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0, 0, 600, 300, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

$Titel2 = "Suchen"
#Region ### START Koda GUI section ###
$hGui2 = GUICreate($Titel2, 500, 250, 259, 259,$WS_POPUP)
GUISetBkColor("images\suchen_bg.jpg")
$close2 = GUICtrlCreatePic("images\close.jpg", 480, 0, 21, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$mini2 = GUICtrlCreatePic("images\mini.jpg", 455, 0, 23, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Combo1 = GUICtrlCreateCombo("Auswahl", 32, 40, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$Spalten = _Spalten($ListView1)
GUICtrlSetData ($Combo1,$Spalten[0][0])
$Input1 = GUICtrlCreateInput("", 192, 40, 193, 21)
$search = GUICtrlCreateButton("Suchen", 400, 40, 75, 25, 0)
$ListView2 = GUICtrlCreateListView("Nummer|Status|Vorname|Nachname|Geburtsdatum|Emailadresse|Info", 32, 72, 442, 150, $LVS_REPORT, $LVS_EX_GRIDLINES)
$mnu1 = GUICtrlCreateContextMenu($Listview2)
$mnu_new1 = GUICtrlCreateMenuItem('Kontakt Hinzufügen', $mnu1)
$mnu_edit1 = GUICtrlCreateMenuItem('Kontakt Bearbeiten', $mnu1)
$mnu_del1 = GUICtrlCreateMenuItem('Kontakt Löschen', $mnu1)
$Button2 = GUICtrlCreatePic("images\suchen_bg.jpg", 0, 0, 500, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("", 0, 0, 600, 300, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

$Titel3 = "Kontackt Hinzufügen"
#Region ### START Koda GUI section ###
$hGui3 = GUICreate($Titel3, 500, 250, 259, 259,$WS_POPUP)
GUISetBkColor("images\kontakt_bg.jpg")
$close3 = GUICtrlCreatePic("images\close.jpg", 480, 0, 21, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$mini3 = GUICtrlCreatePic("images\mini.jpg", 455, 0, 23, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$kalender3 = GUICtrlCreatePic("images\kalender.jpg", 30, 229, 75, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$suchen3 = GUICtrlCreatePic("images\suchen.jpg", 107, 229, 94, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$kontackt3 = GUICtrlCreatePic("images\kontakt.jpg", 210, 229, 72, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$update3 = GUICtrlCreatePic("images\update.jpg", 291, 229, 91, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$hilfe3 = GUICtrlCreatePic("images\hilfe.jpg", 385, 228, 93, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Status = GUICtrlCreateCombo("Auswahl", 64, 40, 65, 25)
GUICtrlSetData($Status, "Privat|Geschäftlich", "Auswahl")
$Vorname = GUICtrlCreateInput("Vorname", 152, 40, 121, 21)
GUICtrlSetLimit (-1, 24, 0)
$Nachname = GUICtrlCreateInput("Nachname", 296, 40, 121, 21)
GUICtrlSetLimit (-1, 24, 0)
$Geburtsdatum = GUICtrlCreateInput(" Beispiel 12.02.1982", 64, 72, 121, 21)
GUICtrlSetLimit (-1, 10, 0)
$Emailadresse = GUICtrlCreateInput("Emailadresse", 216, 72, 201, 21)
GUICtrlSetLimit (-1, 24, 0)
$Input6 = GUICtrlCreateInput("", 375, 104, 41, 21)
$Edit1 = GUICtrlCreateEdit("Info", 64, 104, 300, 81)
GUICtrlSetData(-1, "Info")
$Speichern = GUICtrlCreatePic("images\speichern.jpg", 80, 200, 100, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Loschen = GUICtrlCreatePic("images\loschen.jpg", 250, 200, 100, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Label1 = GUICtrlCreateLabel("1.", 48, 40, 13, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Label2 = GUICtrlCreateLabel("2.", 136, 40, 13, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Label3 = GUICtrlCreateLabel("3.", 280, 40, 13, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Label4 = GUICtrlCreateLabel("4.", 48, 72, 13, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Label5 = GUICtrlCreateLabel("5.", 192, 72, 13, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Label6 = GUICtrlCreateLabel("6", 48, 104, 13, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Button3 = GUICtrlCreatePic("images\kontakt_bg.jpg", 0, 0, 500, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0, 0, 600, 300, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

$Titel4 = "Update"
#Region ### START Koda GUI section ###
$hGui4 = GUICreate($Titel4, 250, 500, 10, 9,$WS_POPUP)
GUISetBkColor("images\updater\updater_bg.jpg")
$close4 = GUICtrlCreatePic("images\updater\close.jpg", 230, 1, 19, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$mini4 = GUICtrlCreatePic("images\updater\mini.jpg", 206, 1, 22, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$ie = _IECreateEmbedded()
$Group4 = GUICtrlCreateObj($ie,1,50,248, 400)
GUICtrlSetFont($Group4, 8, 400, 0, "MS Sans Serif")
$ie.navigate("http://sirocool.si.funpic.de/update/update/Adressbuch/version.txt")
$download = GUICtrlCreatePic("images\updater\download.jpg",67,478, 113, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreatePic("images\updater\updater_bg.jpg", 0, 0, 250, 500, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("", 0, 0, 400, 600, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

$Titel5 = "Hilfe"
#Region ### START Koda GUI section ###
$hGui5 = GUICreate($Titel5, 250, 500, 759, 9,$WS_POPUP)
GUISetBkColor("images\help\help_bg.jpg")
$close5 = GUICtrlCreatePic("images\help\close.jpg", 230, 1, 19, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$mini5 = GUICtrlCreatePic("images\help\mini.jpg", 208, 1, 22, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$zurruck5 = GUICtrlCreatePic("images\help\zurruck.jpg", 0, 477,67, 23, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$aktualisieren5 = GUICtrlCreatePic("images\help\aktualisieren.jpg",68, 478, 112, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$vorwarts5 = GUICtrlCreatePic("images\help\vorwarts.jpg", 182, 478, 69, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$ie1= _IECreateEmbedded()
$Group5 = GUICtrlCreateObj($ie1,1,50,248, 400)
GUICtrlSetFont($Group5, 8, 400, 0, "MS Sans Serif")
$ie1.navigate(@ScriptDir & "\help\bme0001.htm")
$Button5 = GUICtrlCreatePic("images\help\help_bg.jpg", 0, 0, 250, 500, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("", 0, 0, 300, 550, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

_FillListView()
GUISetState(@SW_SHOW, $hGui)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$msg = GUIGetMsg(1)
Switch $msg[1]
Case $hGui
Switch $msg[0]
Case $close
Exit
Case $mini
GUISetState(@SW_MINIMIZE, $hGui)
Case $kalender
GUISetState(@SW_SHOW, $hGui1)
_sound()
Case $Suchen
GUISetState(@SW_SHOW, $hGui2)
_sound()
Case $kontakt
GUISetState(@SW_SHOW, $hGui3)
_sound()
Case $update
GUISetState(@SW_SHOW, $hGui4)
_sound()
Case $hilfe
GUISetState(@SW_SHOW, $hGui5)
_sound()
Case $mnu_new
GUISetState(@SW_SHOW, $hGui3)
Case $mnu_del
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($INI, "Daten", $del_key)
$adaten = IniReadSection($INI, "Daten")
_GUICtrlListView_DeleteItemsSelected($Listview1)
Case $mnu_edit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $hGui1
Switch $msg[0]
Case $mini1
GUISetState(@SW_MINIMIZE,$hGui1)
Case $close1
GUISetState(@SW_HIDE, $hGui1)
Case $speichern1
If Not FileExists ( @ScriptDir & "\data\*.*") Then DirCreate (@ScriptDir & "\data")
$lastNum1 += 1
$MonthCal10 = GUICtrlRead($MonthCal1)
$Uhrzeit = GUICtrlRead($Input100)
$Informationen = GUICtrlRead($Combo100)
$Nachname1 = GUICtrlRead($input200)
$Anschrift = GUICtrlRead($input300)
$Aufgaben = GUICtrlRead($Edit100)
IniWrite($INI1, "Numbers", "last", $lastNum)
IniWrite($INI1, "Kalenderdaten", $lastNum1, $MonthCal10 & '|' & $Uhrzeit & '|' & $Informationen & '|' & $Nachname1 & '|' & $Anschrift & '|' & $Aufgaben )
$aKalenderdaten = IniReadSection($INI1, "Kalenderdaten")
_FillListView()
Case $loschen1
_sound_1()
GUICtrlSetData($Input100, "")
GUICtrlSetData($input200, "")
GUICtrlSetData($input300, "")
GUICtrlSetData($Edit100, "")
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
Case $hGui2
Switch $msg[0]
Case $close2
GUISetState(@SW_HIDE, $hGui2)
Case $mini2
GUISetState(@SW_MINIMIZE, $hGui2)
Case $search
$Spalte = GUICtrlRead ($Combo1)
$Text = GUICtrlRead ($Input1)
_Suche($ListView1,$ListView2,$Text,$Spalte)
Case $mnu_new1
GUISetState(@SW_SHOW, $hGui3)
Case $mnu_edit1
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui2)
EndSwitch
Case $hGui3
Switch $msg[0]
Case $mini3
GUISetState(@SW_MINIMIZE,$hGui3)
Case $close3
GUISetState(@SW_HIDE, $hGui3)
Case $Kalender3
GUISetState(@SW_SHOW,$hGui3)
Case $suchen3
GUISetState(@SW_SHOW,$hGui3)
Case $Speichern
If Not FileExists ( @ScriptDir & "\data\*.*") Then DirCreate (@ScriptDir & "\data")
$lastNum += 1
$Label1 = GUICtrlRead($Status)
$Label2 = GUICtrlRead($Vorname)
$Label3 = GUICtrlRead($Nachname)
$Label4 = GUICtrlRead($Geburtsdatum)
$Label5 = GUICtrlRead($Emailadresse)
$Label6 = GUICtrlRead($Edit1)
IniWrite($INI, "Numbers", "last", $lastNum)
IniWrite($INI, "Daten", $lastNum, $Label1 & '|' & $Label2 & '|' & $Label3 & '|' & $Label4 & '|' & $Label5 & '|' & $Label6)
$adaten = IniReadSection($INI, "Daten")
_FillListView()
Case $Loschen
_sound_1()
GUICtrlSetData($Vorname, "")
GUICtrlSetData($Nachname, "")
GUICtrlSetData($Geburtsdatum, "")
GUICtrlSetData($Emailadresse, "")
GUICtrlSetData($Edit1, "")
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch

Case $hGui4
Switch $msg[0]
Case $close4
GUISetState(@SW_HIDE, $hGui4)
Case $mini4
GUISetState(@SW_MINIMIZE, $hGui4)
Case $download
$ie.navigate("http://sirocool.si.funpic.de/update/download/Adressbuch/")
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui4)
EndSwitch
Case $hGui5
Switch $msg[0]
Case $close5
GUISetState(@SW_HIDE, $hGui5)
Case $mini5
GUISetState(@SW_MINIMIZE, $hGui5)
Case $zurruck5
$ie1.GoBack
Case $aktualisieren5
$ie1.navigate(@ScriptDir & "\help\bme0001.htm")
case $vorwarts5
$ie1.GoForward
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui5)
EndSwitch

EndSwitch
WEnd
#cs ------------------
Diese funktion ist schon für fenster 2 mit
#ce -------------------
Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aDaten) - 1
GUICtrlCreateListViewItem($aDaten[$i][0] & '|' & $aDaten[$i][1], $Listview1)
Next
EndFunc
Func _LeftDblClick($info)
_sound()
GUICtrlSetData($Input6 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 0))
GUICtrlSetData($Status , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 1))
GUICtrlSetData($Vorname, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 2))
GUICtrlSetData($Nachname , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 3))
GUICtrlSetData($Geburtsdatum , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 4))
GUICtrlSetData($Emailadresse , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 5))
GUICtrlSetData($Edit1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 6))
GUISetState(@SW_SHOW, $hGui3)
EndFunc
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

[/autoit][autoit][/autoit][autoit]

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Return $GUI_RUNDEFMSG ; allow the default processing
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _AnimButton($IDgui, $IDbtn, $delay=100);Animiert bilder als button, funktion an sich von BugFix
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc
Func _Suche($hWnd,$hWnd2,$Text,$Spalte = "")
Local $Suche,$SucheText,$TextAll,$Zahl,$Spalten,$sTextAll
Local $Old = -1
_GUICtrlListView_DeleteAllItems($hWnd2)
$Spalt = _Spalten($ListView1)
For $B = 1 To UBound($Spalt) -1
If $Spalt[$B][0] = $Spalte Then
$Zahl = $Spalt[$B][1]
ExitLoop
EndIf
Next
While 1
$TextAll = ""
$Suche = _GUICtrlListView_FindInText($hWnd, $Text,$Old,False)
If $Suche <> -1 Then
For $1 = 0 To _GUICtrlListView_GetColumnCount($hWnd) -1
$SucheText = _GUICtrlListView_GetItemText($hWnd, $Suche,$1)
If $TextAll <> "" Then
$TextAll = $TextAll & "|" & $SucheText
Else
$TextAll = $SucheText
EndIf
Next
$sTextAll = StringSplit ($TextAll,"|")
If $Spalte <> "" Then
If StringInStr ($sTextAll[$Zahl],$Text) <> 0 Then
GUICtrlCreateListViewItem($TextAll, $hWnd2)
EndIf
Else
GUICtrlCreateListViewItem($TextAll, $hWnd2)
EndIf
Local $Old = $Suche
Else
ExitLoop
EndIf
WEnd
GUISetState(@SW_SHOW,$hgui2)
EndFunc
Func _Spalten($hWnd)
Local $Spalte,$A,$Index
$Index = _GUICtrlListView_GetColumnOrderArray($hWnd)
Local $Spalten[$Index[0]+1][2]
If IsArray($Index) Then
For $A = 1 To $Index[0]
$Spalte = _GUICtrlListView_GetColumn($hWnd, $Index[$A])
If $Spalten[0][0] = "" Then
$Spalten[0][0] = $Spalte[5]
$Spalten[$A][0] = $Spalte[5]
$Spalten[$A][1] = $A
Else
$Spalten[0][0] = $Spalten[0][0] & "|" & $Spalte[5]
$Spalten[$A][0] = $Spalte[5]
$Spalten[$A][1] = $A
EndIf
Next
Return $Spalten
EndIf
Return False
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _sound()
$snd = _SoundOpen("C:\WINDOWS\Media\notify.wav")
_SoundPlay($snd)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _sound_1()
$snd = _SoundOpen("C:\WINDOWS\Media\recycle.wav")
_SoundPlay($snd)
EndFunc

[/autoit][autoit][/autoit][autoit]

#cs
Func _Update()
InetGet("http://sirocool.si.funpic.de/update/update/Adressbuch/update.txt",@TempDir & "\update.txt", 1, 0)
$file = FileOpen(@WindowsDir & "\update.txt", 0)
$line = FileReadLine($file, 1)
$line2= FileReadLine($file, 2)
If $line = $version Then
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $version & ")")
FileClose($file)
FileDelete(@TempDir & "\update.txt")
Else
MsgBox(64, "Update", "Es ist eine Neue Version verfügbar!")
$fg = MsgBox(4, "Updaten", "Möchtest Sie jetzt Updaten?")
If $fg = 6 Then
InetGet("" & $line2, $line2, 1, 0) ; ANPASSEN
FileClose($file)
FileDelete(@TempDir & "\update.txt")
Exit 0
EndIf
EndIf
EndFunc
#ce

[/autoit]

Versionsquellcode Timer

Spoiler anzeigen

[autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
****************
****************
********Dies ist ein Timer für das Adressbuch Version 1.0.5********
********Copyright: Sirocool ( http://www.autoit.de )********
****************
********Es läuft zu 100% auf Windows XP ********
********Es läuft zu 100% auf Windows 07 ********
********Alle anderen Windows Versionen sind nicht getestet!********
****************
********Mit freundlicher Mithilfe von http://www.autoit.de********
********Danke an alle die mir mit diesem Projekt geholfen haben.********
****************
********Bei Fragen oder Problemen, schreib mir eine PN im Forum.********
****************
****************
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
#include <GUIConstants.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

If FileExists("") Then
Else
DirCreate("C:\Programme\Adressbuch\images\timer\")
FileInstall("images\timer\timer_bg.jpg","C:\Programme\Adressbuch\images\timer\timer_bg.jpg")
FileInstall("images\timer\mini.jpg","C:\Programme\Adressbuch\images\timer\mini.jpg")
FileInstall("images\timer\close.jpg","C:\Programme\Adressbuch\images\timer\close.jpg")
EndIf

[/autoit] [autoit][/autoit] [autoit]

Dim $nCurCol= -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $kalenderdaten

[/autoit] [autoit][/autoit] [autoit]

Local $INI1 = @ScriptDir & "\data\Kalenderdaten.ini"

[/autoit] [autoit][/autoit] [autoit]

Global $akalenderdaten = IniReadSection($INI1, "kalenderdaten")
Global $Listview1,$hGui,$lb_kalenderdaten
Global $lastNum1 = IniRead($INI1, "Numbers", "last", 0001)

[/autoit] [autoit][/autoit] [autoit]

$Titel = "Timer"
#Region ### START Koda GUI section ### Form=
$hGui = GUICreate($Titel, 461, 161, 193, 125, $WS_POPUP)
GUISetBkColor("images\timer\timer_bg.jpg")
$close = GUICtrlCreatePic("images\timer\close.jpg", 441, 0, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$mini = GUICtrlCreatePic("images\timer\mini.jpg", 418, 0, 21, 19, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$ListView1 = GUICtrlCreateListView("Nr|Datum|Uhrzeit|Info|Nachname|Anschrift|Aufgabe", 1, 20, 459, 140, $LVS_REPORT, $LVS_EX_GRIDLINES)
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_new = GUICtrlCreateMenuItem('Termin Hinzufügen', $mnu)
$mnu_edit = GUICtrlCreateMenuItem('Termin Bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Termin Löschen', $mnu)
$Button = GUICtrlCreatePic("images\timer\timer_bg.jpg", 0, 0, 461, 161, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("", 0, 0, 461, 161, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

_FillListView()
GUISetState(@SW_SHOW,$hGui)

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle#
Case $hGui
Switch $msg[0] ; Event
Case $close
Exit
Case $mini
GUISetState(@SW_MINIMIZE, $hGui)
Case $mnu_del
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($INI1, "Kalenderdaten", $del_key)
$adaten = IniReadSection($INI1, "Kalenderdaten")
_GUICtrlListView_DeleteItemsSelected($Listview1)
EndSwitch
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum1 = 9999 Then Return
For $i = 1 To UBound($akalenderdaten) - 1
GUICtrlCreateListViewItem($akalenderdaten[$i][0] & '|' & $akalenderdaten[$i][1], $Listview1)
Next
EndFunc

[/autoit]

Conan10

Hab es mal kurz getestet und mir ist aufgefallen, dass er bei mir die .bmp dateien gar nicht anzeigt.
Weiterhin,ich weiß jetzt nicht ob es an dem anderen Bug lag oder nicht,das wenn ich einen eintrag hinzugefügt(über ListView) hatte nicht mehr zurück kam und es abbrechen musste.

Padmak

Zitat von Sirocool

- speichern in C:/programme/adresbuch

darf ich adressbuch auch richtig schreiben?
oder muss ich dafür den code abändern?
ne scherz

Padmak

DeepRed92

Hi,

optisch finde ich es echt toll. Aber Kontackt wird so geschrieben ---> Kontakt.
Und einen neuen Kontakt kann ich gar nicht hinzufügen, weil ich stat Labels nur schwarze Kästchen sehe.

Conan10

Habs auch mal getestet. Beim Ladenbalken ist die Farbe des Hintergrunds falsch. Ansonsten halt das was Deepred bemängelt hat. Auf jeden Fall schonmal ein gutes Design Mach weiter so!

Jam00

Jo, das Desing ist cool! Aber Siro, ich würde die sachen erst Posten wenns auch halbwegs funktionier

MOZ

Grrrrrrrrr was is denn das? Kontackt? Aua Aua
Sorry aber das sollte man bitte ändern.
Aber jetzt mal zum Wesentlichen:
Programm ist ganz hilfreich und gut gemacht. Außer: Den Schwarzen Rand finde ich persönlich nicht so oftimal geeignet. Ist aber meine Meinung. Mir gefällt eben ein "normales" Fenster mehr.
Tipp: Schreibe noch bei hinzufügen von den Kontakten hin was man für die Felder eingeben muss also Bezeichungen. Bearbeiten Funktion geht noch nicht. Verbesserungsvorschlag: Sortierungsfunktion. Schau dir dazu mal das UDF _GIUListView_SimpleSort in der Hilfe an (am besten änder einfach das Beispiel auf dein Script ab. Falls dus nicht schaffst dann sags einfach .

MOZ

Ah jetzt kapier ichs! Mir haben die BIlder gefehlt. Sieht nice aus. Aber ändere doch BITTE die Rechtschreibfehler Kann man doch nicht ansehn.

DeepRed92

Hi,

mir ist aufgefallen, dass man die anderen Fenster verschieben kann.
Z.b wenn ich auf Kalender klicke kommt ja ein Fenster. Und den kann ich nicht verschieben, was auch ein bisschen stört.
Und manche Fenster kann man auch nicht schließen.
Aber so wie es jetzt ist, find ich es schonmal echt toll.

Conan10

Endlich sehe ich keine schwarzen kästchen unter Kontakt, juhu
Kleiner Tipp: Diese Zahlen unter Kontakt kannste weglassen. Ich finde es ohne Schöner. Ist aber geschmackssache.
Freue mich schon drauf wenn alles funktioniert

Jam00

Ich würde vorschlagen das der User den Style einstellen kann, also mit checkboxen oder so!

tobi_girst

Hallo!
Das ist ech ein praktisches Tool! Aber es sind noch ein paar kleinigkeiten zu beheben:
1.) Kontackte schreibt man nicht mit CK (hat eh schon kemand gesagt)
2.) Das Suchen-Fenster lässt nichts mit sich machen. Die Buttons unten, Verschieben, Minimieren und Schließen gehen nicht.
3.) Kontakt lässt sich nicht Verschieben und die Buttons untern gehen auch nicht.
4.) Update lässt sich weder Schließen noch Verschieben.
5.) Bei Hilfe hommt bei mir nur ein schwarzes Rechteck.

Sonst aber einfach & praktisch.

Jam00

Ja, das script ist ja auch nch nicht fertig!

**Andy**

Hallo!
Etzat schreibst des ganze Gschmarre noamoi ohne Dialegd in am gscheidn Hochdeitsch, damit i des a vastenga dua, des warat echt subba. Ma woaß ja sonst übahapts niad wos du übahapt wüist!
ciao
.Andy

Jam00

Kannst du auch Deutsch schreiben?

Sirocool

gemacht über icq also es dauert nicht mehr lange dann kommt die neuste version on vom Adressbuch

Padmak

Oiso i finds guad wenn wea genauso schreibt wia i des a gean doa mechad^^
gei Andy

Padmak

Sirocool

hallo leute ihr ist ein Ausschnitt von der neues Version klick mich.

Was noch fertig gemacht werden muss ist der tImer für die Termin eingabe vom kalender und noch das design dafür.
und noch einpaar kleinigkeiten sowie die hilfe und etwas am update und in der hilfe aber dies kann mann ja mit einen update noch verbessern dann.
es kommt auch ein internet insatller der die ganzen daten dann aus dem internet zieht und da hinspeichert wo sie solln und mit verknüpfungen im Startprogramm ein Notizblock und so kommt noch dazu.
im Timer sind dann erinnerung drin wenn der timer aufgeht daran wird noch gearbeitet also dies kann vorraussichtlich noch nicht in der neuen Version dabei sein aber mal schauen.

Sirocool

hi leute ihr ist die neuste version klick

MOZ

Ey wenn du den scheiß (sorry für das Wort ) Rechtschreibfehler nicht endlich mal raus machst dann teste ich das hier nicht mehr man! Boooaaah man is das so schwer? einfach 2 Buchstaben löschen? Und gib bitte das Script dazu.

(Sorry aber das musste mal sein)