Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
8. Nov 2007
mhh eigenartig jetzt malt er 2 Spalten top und in der dritten sitz das Häkchen(Bild) irgendwie hinter der Spalte wenn ich diese Verschiebe werden sie sichtbar.
Siehe Bild
Form1.Refresh;
und
self.doublebuffered := true;
Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
8. Nov 2007
ok ich habs also Left sieht so aus
R.Left := ListView1.Column.Width + ListView1.Column.Width + ((ListView1.Column.Width)div 2)- (pic1.Width div 2);
und Top bekomm ich ja in dem Moment wo ich der Funktion das Item übergebe!
Danke an alle :angel:
Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
8. Nov 2007
naja ich weiss das es die koordinaten sind es soll ja aber in eine Zelle des Listview gezeichnet werden also Item 1 Subitem=1 da dachte ich es gbt was was mir die Positiojn dieser "Zelle" zurückgibt
Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
8. Nov 2007
ja hab ich ja acuh aber woher bekomme ich x und y ich find keien Methode dazu
Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
8. Nov 2007
so hab das ganze jetzt ein wenig anders gemacht nu irgendetwas fehlt ncoh weil nix passiert..oder vllt. kann ichs so auch garnet machen
pic1 := TBitmap.Create;
ImageList1.GetBitmap(0,pic1);
//ListView1CustomDrawSubItem(Sender.Handle, Item.Index, SubItem, cdsDefault , @R);
Sender.Canvas.Brush.Bitmap := pic1;
DefaultDraw := True;
Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
7. Nov 2007
mmhh umsteigen dauert jetzt zu lange mein Chef verlangt von mir am Freitag ne Final version nur irgendwie komm ich beim Zeichen der Images nicht weiter weil ich nicht weiss woher ich den Index für X Und Y bekomme.
BITTE HELFT MIR :wall:
Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
7. Nov 2007
ok das hab ich nun steh ich vor dem problem hab hier im Forum verschieden Themen zu hintergrundfarben ändern per CustomDrawSubItem gefunden. Nun möchte ich aber ein bild aus einer Imagelist wie soll ich das machen?
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var R: TRect;
...
Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
7. Nov 2007
mmhh ich kann doch aber der Normalen ListView Komponente ImageListen zuweisen hab ich gesehen da werd ich die Images doch wohl auch anzeigen können ohne großen Aufwand oder?
Und vorallem wie kann ich auf die 3 Spalte zugreifen das ist das was mich am ehsten intressiert
Forum: Object-Pascal / Delphi-Language
Delphi
by crasher1985,
7. Nov 2007
hallo ich möchte folgendes Umsetzen,
ich habe ein ListView mit Checkboxen und insgesamt 5 Spalten.
Desweiteren habe ich eine ImageListe angelegt. Nun möchte ich in der 3,4 und 5 Spalte des Listview diese Bilder anzeigen sozusagen als zusätzlichen Status in abhängigkeit einer von mir gemachten Funktion.
Also wie kann man überhaupt auf die 3 palte zugreifen? Subitems ist ja nur die 2'te und...