Listview1.Items.Add.Caption := '
Empfangsqualität';
r := Listview1.Items[11].DisplayRect(drBounds);
r.Left := r.Left + Listview1.columns[0].Width;
r.Right := r.Left + Listview1.columns[1].Width;
pb2 := TProgressBar.Create(Self);
pb2.Parent := Listview1;
pb2.BoundsRect := r;
pb2.Min :=-113;
pb2.Max :=-49;
pb2.Smooth :=true;
pb2.Position := StrtoInt(ReadNet);
Listview1.Items[11].Data := pb2;
lbl2:= TLabel.Create(Self);
with lbl2
do begin
lbl2.Caption:=ReadNet+'
db';
Parent := Listview1.Items[11].Data;
Transparent := True;
Alignment := taCenter;
Layout := tlCenter;
Align := alClient;
Font.Style := [fsBold];
case pb2.Position
of
-113..-85 : Font.Color:= clRed;
-84..-63 : Font.Color:= clFuchsia;
-62..-49 : Font.Color:= clGreen;
end;
end;
Application.ProcessMessages;
Progressbar1.Position:=84;