-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
8. Dez 2005
ups, ich glaube ich habe den rahmen mit der gleichen farbe wie der hintergrund gezeichnet :shock:
nun habe ich aber noch ein problem...
ich habe es zuerst so gemacht:
wenn das vorherige item markiert ist, soll der obere rahmen nicht gezeichnet werden,
und wenn das untere item markiert ist, soll der untere rahmen nicht gezeichnet werden.
wenn aber die items nacheinander von oben nach...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
8. Dez 2005
probiers mal an einer listview mit viewstyle = vsReport, da hats bei mir nicht funktioniert...
ach ja, ich habe grad rausgefunden, dass wenn es ein & in der listview hat (in einem item) wird dieses gelöscht wenn diese zeile markiert wird.
muss irgendwie am drawtext liegen.
kann man das ändern oder nicht?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
8. Dez 2005
also ich habe da mal rumprobiert, jedoch schaffe ich es einfach nicht, eine linie zu zeichnen :wall:
ich habe mal diesen code:
Canvas.FrameRect(aTextRect);
...durch diesen ersetzt:
canvas.MoveTo(atextrect.Left, atextrect.top);
canvas.LineTo(atextrect.right, atextrect.top);
klappt aber nicht :gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
8. Dez 2005
ich vermute, dass bei mir der fehler bei
if state = then
war, ich hätte
if (cdshot) in state then
verwenden müssen.
weiss niemand wie man bei einem item den unteren oder den oberen rand weglassen kann?
gruss
urbanbruhin
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
7. Dez 2005
ups, ein ganz dummer fehler :oops:
danke, jetzt funktionierts wunderbar :mrgreen:
zum state = dshot:
das kann ja gar nicht funktionieren, weil ja das onCustomDrawItem gar nicht ausgelöst wird wenn man mit der maus über die listview fährt.
ich habe dann mal
if state = then showmessage('dshot');
ins onCustomDrawItem gebaut, kam aber nie eine showmessage.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
6. Dez 2005
naja, wenn ich das +5 nicht reinsetzt, gibts ein spalt von 5 pixel und der gefällt mir nicht. aber ich kann mir einfach nicht erklären, dass der rahmen die richtige breite hat, aber nicht ganz ausgefüllt ist :gruebel:
das mit dem hottrack werde ich noch ausprobieren.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
5. Dez 2005
so, ich habe jetzt auch mal ein panel unter die listview gebaut, und jetzt funktionierts mit den farben.
ich habe den code noch etwas abgeändert:
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
aTextRect:TRect; subitem: integer; backpanel: tpanel;
begin
if tlistview(sender).Tag <> 1 then
...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
4. Dez 2005
habe jetzt rowselect auf false gestellt, funzt aber immernoch nicht.
ich hänge mal mein test-projekt an, kannst es ja mal anschauen.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
4. Dez 2005
also ich habe jetzt mal ein neues projekt gemacht, eine listview auf die form plaziert, und diese eigenschaften verändert:
columns hinzugefügt
items hinzugefügt
multiselect auf true gestellt
readonly auf true gestellt
rowselect auf true gestellt
viewstyle auf vsreport gestellt
dann habe ich beim code noch das image-zeugs entfernt, und so sieht er jetzt aus:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
4. Dez 2005
also ich habe alles im oncustomdrawitem, hier der code:
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
aTextRect, aIconRect:TRect; subitem: integer;
begin
if (Item.Index=TListView(Sender).ItemIndex) or (TListView(Sender).ItemFocused=Item) or (Item.selected) then
begin
DefaultDraw:=false;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
4. Dez 2005
und was müsste ich jetzt tun?
ach ja, wegen den rbControls:
sieht aus als würde es nicht für delphi 7 gehen, oder soll ich mal die package für D6 öffnen?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
4. Dez 2005
soweit kam ich auch schon.
das resultat von deinem und meinem code war das gleiche, allerdings nicht das gleiche wie auf deinem screenshot :gruebel:
also dein screenshot sieht schon schöner aus als meiner :mrgreen:
was ist das problem?
ach ja, danke für den link (button) :angel:
aber könntest du noch den direktlink posten, ich weiss nicht recht was ich da genau downloaden muss...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
4. Dez 2005
ich habs jetzt auch fast, aber mit den farben stimmt noch etwas nicht ganz genau...
naja, ich warte jetzt mal auf deinen code, etom291272.
@etom291272
passt jetzt nicht grad zum thema, aber ich habe da grad den schönen button rechts oben auf deinem screenshot gesehen.
wie hast du den gemacht?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
4. Dez 2005
bin auch schon die längste zeit am rumprobieren, und ich komme immer näher ans ziel :bounce1:
dauert aber noch ein bisschen bis ich fertig bin...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by 100nF,
4. Dez 2005
super code!!
ich habs an einer listview mit ViewStyle = vsReport probiert, und es funktioniert ganz gut.
das einzige problem ist, dass nur die erste spalte so abgeändert wird, ich hätte aber lieber wenn die subitems dann auch noch so markiert werden.
ich habe schon probiert ob das funktioniert, leider habe ich es aber nicht hinbekommen.
könnte jemand den code noch so abändern dass es...