-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
9. Dez 2005
:-D na ja die geschmäcker sind verschieden (gott sei dank) ich fand den effekt das bei multiselect alle items gerahmt werden ziemlich cool ist mal was anderes
:gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
8. Dez 2005
bei mir gings bei beiden viewstyles
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
8. Dez 2005
:shock: wieso funktioniert doch (Anlage)
if TListView(Sender).ViewStyle=vsIcon then
begin
Windows.DrawText(Canvas.Handle, @Item.Caption, Length(Item.Caption),
aTextRect, DT_EDITCONTROL+DT_CENTER+DT_WORDBREAK);
Canvas.Brush.Color:=$008FC2B3;
//Canvas.FrameRect(aTextRect);
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
8. Dez 2005
hatte ich vorher vergessen
da wir ja die koordinaten des rechteckes haben kannst du in diese canvas zeichnen was du lustig bist
wenn z.b die Markierung so aussehen soll │Listview Caption │ brauchst du ja nur 2 linien zu malen von
links oben nach links unten und ...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
8. Dez 2005
:twisted: stimmt nicht kuckst du hier (Anlage) du musst eine property in der listview setzen
hab den code jetzt perfektioniert das rechteck läuft ohne füllung mit der Maus mit :cyclops:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
7. Dez 2005
:warn: da sticht mir doch gleich was ins auge
with Sender do
begin
Canvas.Pen.Color := $00CDEFE9;
Canvas.Brush.Color := $00CDEFE9;
Canvas.Rectangle(aTextRect);//<- das zeichnet den hintergrund hellgrün
aTextRect.Left:=aTextRect.Left+2;
atextrect.Right := atextrect.Right+5;//<- hier dann + 5
Windows.DrawText(Canvas.Handle, @Item.Caption,...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
5. Dez 2005
warum machst du die eigenen grafiken breiter als die spalten (rect.right:=rect.right+5) ist doch nicht notwendig lass lieber die subitems weiter links anfangen
hast schon mit state dshot experimentiert da kann man starken hottrack bauen.
:coder2:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
habs gefunden aber dass versteh einer wenn einmal ein echter guru diesen beitrag lest mich würde brennend interessieren warum sich das so verhält.
bei mir gings weil ich ein panel mit der selben farbe darunter habe als die helle markierung in der listview
hab dein projekt angehängt mit dem notwendigen panel und einen shot wies bei mir jetzt aussieht
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
der grund ist rowselect gehört auf false das zeichnen der markierungen machen wir ja selber
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
:?: :?: :?: :?: :?: :?: :?: :?: bahnhof
ich hab den code den du gepostet hast mit copy und paste eingefügt und dass kam dabei raus (anlage)
shick mal nen kompletten screenshot vielleich sehe ich dann was (1024x768)
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
rb controls gehen super über delphi7 (hab delphi7)
du musst allen zeichencode im oncustomdrawiten und nicht subitem haben
wenn das nicht hilft poste mal code
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
das kommt raus wenn sich die defaultdraw gegenseitig stören darum habe ich allen code nur im drawitem und zeichne dort die items und alle subitems
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
kuckst du Hier rbControls
endlich ordentliche Schaltflächen ohne XP Manifest
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
die lösung war in der DP :dp:
ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @aTextRect);
uses CommCtrl
//------------------------------------------------------------------------------
procedure TfmVarZusStln.lvElementeCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
ich habs siehe anlage code folgt :mrgreen:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
hab mal ein bißchen herumprobiert.
Das grössere Problem glaub ich wird es an das canvas der subitems zu kommen wenn man das rechteck wo er zeichnet weiter nach rechts verschiebt beim costumdrawsubitem macht er zwar die markierung und den text allerdings immer in der 1. spalte :gruebel: :gruebel: :gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
guter vorschlag :wink:
es ist zwar bei listviews normalerweise üblich dass nur die erste spalte markiert wird (siehe windows explorer) aber man kanns ja mal versuchen.
Damit der code für die subitems geht müsste man an die koordinaten des rects für die einzelnen subitems kommen.
Hat da jemand eine spontane idee :?: :?: :?:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
4. Dez 2005
:hi:
noch ne kleine verbesserung. Bei viewstyle vsicon gabs ein problem wenn sehr viel text in den captions war (mehr als 20 Zeichen) mit folgender Codeänderung funktioniert auch dass
if TListView(Sender).ViewStyle=vsIcon then
begin
with Sender do
begin
Canvas.Pen.Color := $008FC2B3;
Canvas.Brush.Color := $00CDEFE9;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by etom291272,
3. Dez 2005
:mrgreen: hallo zusammen
Da ich nirgends eine Listviewkomponente gefunden habe bei der man das Erscheinungsbild der fokusierten Items (wird ja von Windows gesteuert clHighlight bzw grau wenn kein focus) einstellen kann habe ich mal selbst handangelegt.
Da ich schon einige fragen zu diesem thema im forum gefunden habe aber wie gesagt keine antwort fand möchte ich euch meine Lösung nicht...