Beiträge von _Joerg_

Jetzt hak ich doch hier nochmal nach. Roland, du hast ja meine Anfrage zum Mailempfang/Auslesen der Anzahl gesehen. Leider hast du dort kein Statement abgeben, ob das für dich noch in dieser Version realisierbar ist. Ich fürchte ja, ich muss dein Schweigen als "Nein" interpretieren. Oder hast du doch schon was in Petto?

Addendum: Oh - jetzt hab ich tatsächlich deine Antwort übersehen! Ganz großen Dank für den Einbau!!!

Außerdem kannst du dein programm noch etwas (ganz wenig) beschleunigen und besser strukturieren, indem du nicht viele einzelne If-Abfragen einbaust, sondern eine einzige:

If Clicked(b_vor&)
  urlpart$="vor"
  test&=1
ElseIf Clicked(b_zur&)
  urlpart$="zur"
  test&=1
ElseIf Clicked(b_links&)
  urlpart$="links"
  test&=1
ElseIf Clicked(b_hlinks&)
  urlpart$="hlinks"
  test&=1
ElseIf ...
...
EndIf

Schließlich kann man die nicht mehrere Buttons gleichzeitig drücken.

Da wär ich auch gern Gewinner gewesen. Nichtsdestotrotz: Herzlichen Glückwunsch den Glücklichen.

Da beim Programmieren in der Regel nullbasierend gezählt wird, steckt da durchaus eine gewisse Logik drin. Ich denke, hier ist der Fehler eher in der Hilfe zu sehen, die von Anzahl spricht aber vergisst, die nullbasierende Zählweise zu erwähnen.
%getcount gibt ja auch Anzahl - 1 zurück. Ich vermute mal, dass das daher kommt.

Puh - dieses Mal war es richtig schwer
Danke für die ganzen Verlosungen. Mittlerweile bin ich auf den Geschmack gekommen.

Hallo Heinz,

wenn du das einbaust, funktioniert es:

Declare test&


WhileNot ende
  WaitInput 1
  test& = Sendmessage(Edit1,$00B0,0,0)
  WindowTitle Str$(LoWord(Test&)) + "," + Str$(HiWord(Test&))' + "," + Str$(HiWord(Test&))'em_GetSel

Wahrscheinlich ist Subclassing da eleganter aber für die Funktionsweise sollte es reichen.

Schade, ich hätte es auch gern gewonnen.
Glückwunsch an die Gewinner.

Hast du dir schon in der Hilfe das Thema @SMTP(...) vorgeknöpft? Auch im xprofanforum von Roland steht einiges dazu.
http://www.rgh-soft.de/forum01/search…dbody=1&start=1

Seit X2 gibt es
SetCurSel H,n

Das sollte auch bei den ListViews von Franks Dll funktionieren.

Hier ist auch eine fußgesteuerte Schleife ganz nützlich.
Evtl kannst du sogar gleich im String die Leereinträge eleminieren:

AddString "Hund"
AddString "Katze"
AddString "Maus"
AddString "Elefant"
AddString ""
AddString "Huhn"
AddString "Zebra"
AddString ""
AddString "Tiger"
AddString "Löwe"
AddString ""
AddString "Bär"
Listbox$("Tiere",2)






Declare Text$
Text$ = Move("ListToStr",",")
Var i& = %getcount
Repeat
  Case GetString$(0,i&) = "":DeleteString(0,i&)
  Dec i&
Until i& = -1






Listbox$("Tiere",2)
$D "",Text$
Text$ = Translate$(Text$,",,",",")
$D "",Text$
ClearList
Move("StrToList",Text$,",")
Listbox$("Tiere",2)

P.S. die Handhabung von Quellcodes fand ich vorher unkomplizierter...

Wird es mit Boardmitteln möglich sein, eine RAM-Disk einzurichten?

Wo ich diese ganzen Zahlenordnungen da lese, fällt mir ein Buch ein, das ich sehr interessant fand:
"Weißes Licht" von Rudy Rucker (original: White Light: Or, What Is Cantor's Continuum Problem)
http://de.wikipedia.org/wiki/Rudy_Rucker
http://www.amazon.de/Wei%C3%9Fes-Li…r/dp/3453312007

Das ist keine trockene wissenschaftliche Abhandlung sondern eine humorig-absurde, auf mathematischen Spielereien beruhende Sience Fiction Erzählung.

Hier noch zwei kurze Inhaltsangaben:
http://www.randomhouse.de/ebook/Weisses-…ker/e457984.rhd
http://rezensionen.literaturwelt.de/content/buch/r…_mtz_11786.html

Gern geschehen.
Da sieht man auch wieder, dass es aussichtslos ist, jemandem bei der Fehlersuche zu helfen, ohne den Code zu kennen.
Zum Glück bist du ja gewieft und hartnäckig genug, um sowas auch selber zu entdecken.

Ja - durch Franks Dll ist man ganz schön verwöhnt worden. Leider muss man Listviews so Einiges beibringen, bevor sie das können.

Hier ist mal ein Code, mit dem du den Klick auf einen Headerbutton auswerten kannst. Dann musst du nur noch den Code von Roland auf das entsprechende Listview anwenden.

$H Windows.ph
 $H commctrl.ph
Struct LVHitTestInfo = X&,Y&,flags&,Item&,SubItem&
Declare LVHTI#,LView&,l%
Dim LVHTI#,LVHitTestInfo


Proc LV_HitTest
    Parameters  LV&,X%,Y%
    ~GetCursorPos(LVHTI#)
    ~ScreenToClient(LV&,LVHTI#)
    SendMessage(LV&,~LVM_SUBITEMHITTEST,0,LVHTI#)
    Return LVHTI#.SubItem&
EndProc


Cls
LView& = Create("GridBox",%hwnd,"Test 0;0;100;Test 1;0;100;Test 2;0;100;Test 3;0;100",0,200,10,410,200)


var Header&=sendmessage(Lview&,~LVM_GETHEADER,0,0)'


setstyle Header&,$50000002'--Header aktivieren


WhileLoop 0,4
    AddString(LView&,"0 Test " + Str$(&Loop) + "|1 Test " + Str$(&Loop) + "|2 Test " + Str$(&Loop) + "|3 Test " + Str$(&Loop))
Wend


While 1
    WaitInput
    l% =  LV_HitTest(LView&,%mousex,%mousey)
    If getfocus(LView&)
     Locate 0,0
     If (&wParam=0)
       messagebox("und jetzt \nSpalte "+str$(l%)+"\nberechnen..","",32)
       Else
       Print GetText$(LView&,LVHTI#.Item&,LVHTI#.SubItem&)
     EndIf
    EndIf
Wend

Zitat von horsthorn

@Jörg
Da ich mit zwei Gridboxen arbeite und so einige andere Befehle in der Waitinput-Schleife habe, funktioniert das nicht
Mit Klick auf einen Sortierbutton (in meinem Code) wird die neue Sortierung nicht angezeigt.
Da muss Roland noch ein bischen arbeiten.
Normal ist diese Rückwärtssortierung sowieso in den Titelbuttons der Grid vorhanden.
Bei der Listview.dll von Frank Abbing klappt das bestens
Möchte aber die DLL nicht nehmen.

Alles anzeigen

Horst
Die kommende Version X3 wird das eingebaut haben. Solltest du die Subskriptionsversion haben, kann dein Profan das schon.
http://www.rgh-soft.de/forum01/read.php?f=9&i=4737&t=4458

DeleteString funktioniert durchaus in der Listboxliste. Man muss nur vom höchsten Eintrag abwärts arbeiten, damit der Zähler nicht durcheinandergerät. Das gilt in der Form für jede Liste:

WhileLoop 10
  AddString "Test"
  CaseNot &Loop Mod 3:AddString ""
Wend
ListBox$("",2)
WhileLoop %getcount,0,-1
  Case GetString$(0,&loop) = "":DeleteString(0,&Loop)
Wend
ListBox$("",2)

Zitat von H.Brill

Hier habe ich noch einen WorkAround zum Löschen
von Leerstrings in der Listboxliste. DeleteString
scheint bei der Listboxliste irgendwie nicht zu
funktionieren.
...

Vielleicht kann es jemand gebrauchen.

Von mir auch die besten Wünsche für die OP!.

Ich weiß nicht, ob es im Sinne dieses Threads ist aber obiges Codeungetüm lässt sich in der aktuellen Version in wenigen zeilen abhandeln:

Proc DeltaTage
  Parameters Datum1$,Datum2$
  'Datum im Format dd.mm.jjjj
  'hier könnte man durch Parameterüberprüfung mehrere Formate erlauben.
  Declare d1!,d2!
  d1! = dt("setDate", Datum1$)
  d2! = dt("setDate", Datum2$)
  Return dt("DaysBetween", d1!,d2!)
EndProc


print DeltaTage("02.02.2015","02.02.2016")


WaitInput

Noch ein Test:

"C:\\\"

Sehr ominös. Wenn ich 4 BS eingebe, zeigt er mir einen BS an. Schreibe ich 5, zeigt er 3 an. Jedes Mal, wenn ich zum Bearbeiten den Beitrag öffne, verschwindet ein BS aus meinem Text. Seltsame Konfigurierung...
In der Vorschau werden noch andere BS-Anzahlen gezeigt.

Bei mir wurde Laufwerk C: nicht als existent erkannt. Erst als ich einen Backslash angehängt hatte, wurden alle Laufwerke korrekt erkannt.

drive$ = Upper$(Mid$(drive$, 1, 1)) + ":\\ "

Der doppelte Backslash wird im Code-Tag nicht richtig widergegeben, darum das Leerzeichen dahinter...

Zitat von AHT

Da hast du vollkommen Recht. In PureBasic verwende ich die Konstanten auch, in Profan müsste ich alles selbst deklarieren, damit das auch wirklicch alles klappt. Das spare ich mir.

öhm... was hält dich ab, die windows.ph einzubinden? Oder ist deine Profanversion so alt, dass es die Headerdateien noch nicht gab? Dann rate ich mal zu einem Upgrade, falls dir das nicht zu "profan" ist.