Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by schuetze09,
30. Nov 2004
So, jetzt habe ich es gefunden und mache es so:
procedure TForm_UserAnlegen.ListView1CustomDrawSubItem(
Sender: TCustomListView; Item: TListItem; SubItem: Integer;
State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (Item=nil) then Exit;
if (Item.SubItems.Count>0) then
begin
if (StrToInt(Item.SubItems)>0) then ListView1.Canvas.Brush.Color:=clGreen;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by schuetze09,
30. Nov 2004
@All:ich habe jetzt alles auskommentiert und das Programm läuft...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by schuetze09,
30. Nov 2004
@jim_raynor: nein im CustomDraw steht sonst weiter nix drin, dass ist es ja, was mich so verwundert.
MfG
schuetze09
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by schuetze09,
30. Nov 2004
OK, hier der Code mit dem ich das Listview befülle:
procedure AllUser(Listview: TListView);
var ADODataSet: TADODataSet;
ListItem : TlistItem;
begin
ADODataSet:= TADODataSet.Create(nil);
ADODataSet.Connection:=DataModule_DBConnect.ADOConnection1;
Listview.Items.BeginUpdate;
try
ADODataSet.CommandText:='SELECT * from tbl_username order by username';
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by schuetze09,
30. Nov 2004
@jim_raynor: Also verheimlich will ich nix. Was brauchst du alles damit du mit helfen kannst?
MfG
schuetze09
PS: was ich machen will, ist, dass alle SubItems im Listview, die eine 0 als Wert haben, grün dargestellt werden.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by schuetze09,
30. Nov 2004
@OLLI_T:
wie sollte ich es sonst machen? ich habe in der Spalte nur 1 oder 0 drin.
und wenn ich deins:
If Item.SubItems.Count=0
then exit
else if StrToInt(Item.SubItems) > 0 then ListView1.Canvas.Brush.Color := clgreen;
mit einbaue, bekomme ich die Fehlermeldung: Listenindex überschreitet Maximum (1)
MfG
schuetze09