delphi - una - vistas en sharepoint 2013

Delphi: error al cambiar el tamaño de las columnas de la Vista de lista(en DrawItem)

Question

Habilite Autosize de columnas y habilite OwnerDraw para una Vista de lista. A continuación, agregue un código a continuación desde AQUÍ :

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem;
Rect: TRect; State: TOwnerDrawState);
var
i: Integer;
x1, x2: integer;
r: TRect;
S: string;
const
DT_ALIGN: array[TAlignment] of integer = (DT_LEFT, DT_RIGHT, DT_CENTER);
begin
if SameText(Item.SubItems[1], ''done'') then
begin
Sender.Canvas.Font.Color := clWhite;
Sender.Canvas.Brush.Color := clGreen;
end
else
if Odd(Item.Index) then
begin
Sender.Canvas.Font.Color := clBlack;
Sender.Canvas.Brush.Color := $F6F6F6;
end
else
begin
Sender.Canvas.Font.Color := clBlack;
Sender.Canvas.Brush.Color := clWhite;
end;
if odSelected in State then // NEW!
begin // NEW!
Sender.Canvas.Font.Color := clWhite; // NEW!
Sender.Canvas.Brush.Color := clNavy; // NEW!
end; // NEW!
Sender.Canvas.Brush.Style := bsSolid;
Sender.Canvas.FillRect(Rect);
x1 := 0;
x2 := 0;
r := Rect;
Sender.Canvas.Brush.Style := bsClear;
Sender.Canvas.Draw(3, r.Top + (r.Bottom - r.Top - bm.Height) div 2, bm);
for i := 0 to ListView1.Columns.Count - 1 do
begin
inc(x2, ListView1.Columns[i].Width);
r.Left := x1;
r.Right := x2;
if i = 0 then
begin
S := Item.Caption;
r.Left := bm.Width + 6;
end
else
S := Item.SubItems[i - 1];
DrawText(Sender.Canvas.Handle,
S,
length(S),
r,
DT_SINGLELINE or DT_ALIGN[ListView1.Columns[i].Alignment] or
DT_VCENTER or DT_END_ELLIPSIS);
x1 := x2;
end;
if odFocused in State then // NEW!
DrawFocusRect(Sender.Canvas.Handle, Rect); // NEW!
end;

Cambia el tamaño de forma activa la penúltima columna si tiene autosize. Se factura errores:

¿Cómo prevenir estos errores?

¡Gracias!

Answer 1

El error está en TListColumn.GetWidth en ''comctrls.pas''. El VCL está recuperando un ancho de columna incorrecto al cambiar el tamaño de las columnas cuando se establece ''AutoSize'' en las columnas, por lo tanto, está dibujando el texto del elemento en todas las columnas.

Miré el código de VCL durante unos minutos y no pude entender cuál es el problema, pero establecer el valor en un getter es bastante sospechoso.

De todos modos, para una solución alternativa, en lugar de

inc(x2, ListView1.Columns[i].Width);

utilizar esta:

inc(x2, ListView_GetColumnWidth(ListView1.Handle, ListView1.Columns[i].Index));