Forum: Multimedia
Delphi
by mimi,
22. Sep 2006
ich weiß der beitrag ist schon etwas älter aber, erst jetzt habe ich alles hinbekommen wie es sollte bis auf eins und zwar das nur wenn ich drüke der balken mit der maus verschoben wird...
das hauptproblem ist warscheinlich das ich nur mit windows nachrichten arbeite also nicht onMouseMouse oder so sondern WM_MOUSEMOUVE das problem ist jetzt einfach der balken soll nur verschoben werden wen...
Forum: Multimedia
Delphi
by mimi,
11. Sep 2006
habs geschaft nach reichlicher überlegung bin ich zur einer lösung gekommen:
ich weiß ja wie viele items im sichtbereich sind, ich habe meine liste mit objekten und jetzt habe ich einen gruppenindex und das ist das entscheidene wenn in meinen fall kann ich 6 items sehen, wenn ich da jetzt z.b. 0 hinschreibe sehe ich dank der forschleife nur die 0-6 items wenn ich da 6 hinschreibe sehe ich nur...
Forum: Multimedia
Delphi
by mimi,
11. Sep 2006
ich lade mal das progamm hoch... ich weiß einfach nicht mehr weiter :(
procedure Tmylistbox.Draw;
var
i:Integer;
s:Char;
y,selY,indexdeserstensichtbarenEintrags :Integer;
begin
HeaderCaption.DrawCaption('',-1,-1);
FootCaption.DrawCaption(IntTostr(itemIndex)+'\'+IntTostr(Items.count) ,-1,-1);
Forum: Multimedia
Delphi
by mimi,
11. Sep 2006
das problem wird sein wie ich die itemIndex ermittelte.
Ich suche nur in einer forschleife den index ermittel und die einzeln klassen ermitteln ob da einer makiert ist oder nicht... und das wird das problem sein denke ich mal das der index beim zeichnen nicht bekannt ist !
Forum: Multimedia
Delphi
by mimi,
11. Sep 2006
Jetzt gehts vielen dank für deine hilfe !
procedure Tmylistbox.Draw;
var
i:Integer;
s:Char;
y,selY,indexdeserstensichtbarenEintrags,YAnzeigePosition :Integer;
begin
HeaderCaption.DrawCaption('',-1,-1);
FootCaption.DrawCaption(IntTostr(itemIndex)+'\'+IntTostr(Items.count) ,-1,-1);
Forum: Multimedia
Delphi
by mimi,
11. Sep 2006
vielen dank für deine schnelle antwort. leider verstehe ich das beispiel nicht so ganz:
ich habe ihn versuch einzubauen:
procedure Tmylistbox.Draw;
var
i:Integer;
s:Char;
y,selY,indexdeserstensichtbarenEintrags:Integer;
begin
HeaderCaption.DrawCaption('',-1,-1);
Forum: Multimedia
Delphi
by mimi,
11. Sep 2006
weiß keiner eine lösung für dieses problem ?
Forum: Multimedia
Delphi
by mimi,
9. Sep 2006
Hallo,
ich habe gestern angefangen eine eigene listbox zu schreiben mit TCanvas.
Jetzt habe ich ein problem mit dem scrollen, hier der code:
procedure Tmylistbox.Draw;
var
i:Integer;
s:Char;
y:Integer;
begin