Delphi "Sydney" (10.4) ist da!

[jaenicke]

Zitat von striderx:

Ich wundere mich, dass es generell so ruhig um den Bug im OnDrawCell bei den StringGrids (s. Beiträge #15 und #31). Der entsprechende Bug-Report (RSP-28821) hat gerade mal 5 Upvotes, dabei müsste das Thema doch eigentlich sehr viele betreffen.

Das hätte ich auch gedacht als ich ihn gemeldet habe. Aber offenbar nutzen das weniger als ich dachte.

[Bbommel]

StringGrid ist doch eher so Neunziger. Nee, ernsthaft: wir nutzen für tabellarische Darstellung meistens ein ListView oder VST. Ist ja vielleicht bei anderen ähnlich und daher nicht so aufgefallen.

[Chemiker]

Hallo,

ich bekommen das Delphi 10.4 nicht vernünftig auf meinen Entwicklungsrechner installiert. Es läuft in einer VM. Ich bin dort mit einem eingeschränkten Benutzerkonto unterwegs. Wenn ich das installierte Delphi starte kommt zuerst eine Dialogbox mit der Produktregistrierung, wenn ich dann [Abrechen] drücke wird Delphi gestartet dort steht nun das es registriert ist. Auf der Willkommensseite steht nun das GetIt-Server nicht erreicht werden kann. Ich habe „GetItCmd.exe -c=useonline“ in der Eingabeaufforderung im Richtigen Verzeichnis ausgeführt. Wenn ich allerdings Delphi „Als Administrator aufrufe, muss ich das mit dem Administrator-Passwort bestätigen, daraufhin wir Delphi normal gestartet. Auf der Willkommensseite wird unter DIE-Patches „Your version is up to date“ angezeigt. Die Installation ist über die ISO – Datei durchgeführt worden, ich habe mir die Datei ein zweites Mal vom Portal runtergeladen, mit dem gleichen Ergebnis bei der Installation.

In der gleichen VM läuft Delphi 10.3 ohne Probleme.

Bis bald Chemiker

[jaenicke]

Zitat von Chemiker:

ich habe mir die Datei ein zweites Mal vom Portal runtergeladen, mit dem gleichen Ergebnis bei der Installation.

Falls es am Installer liegt, hätte ich eher den Webinstaller alternativ ausprobiert.

Aber da viele auch bisher die ISO verwendet haben, ist dort natürlich der Webinstaller bisher nicht getestet worden... dabei wären die letzten Versionen eigentlich ideal gewesen um die Kompatibilität mit dem eigenen System zu testen solange es noch einen alternativen Installer gab...

Dann hätten viele Probleme rechtzeitig gefixt werden können, die auf selteneren Konstellationen durchaus zu erwarten waren.

Jetzt bleibt dann leider nur ein Ticket zu eröffnen und auf eine Lösung zu warten.

Zitat von Bbommel:

StringGrid ist doch eher so Neunziger. Nee, ernsthaft: wir nutzen für tabellarische Darstellung meistens ein ListView oder VST.

Wir verwenden es auch nicht, das ist mir nur durch eine Frage im Forum zu einem Bug bis 10.3 aufgefallen, bei der ich das getestet hatte.

[dummzeuch]

Zitat von Bbommel:

StringGrid ist doch eher so Neunziger. Nee, ernsthaft: wir nutzen für tabellarische Darstellung meistens ein ListView oder VST. Ist ja vielleicht bei anderen ähnlich und daher nicht so aufgefallen.

Mir ist dieser spezielle Bug zwar noch nicht aufgefallen, aber dass TStringGrid in Delphi 10.4 eine Macke haben muss, habe ich auch schon gesehen (siehe Anhang). Ich habe dann mal für den Bug gestimmt...

[jaenicke]

Zitat von dummzeuch:

Mir ist dieser spezielle Bug zwar noch nicht aufgefallen, aber dass TStringGrid in Delphi 10.4 eine Macke haben muss, habe ich auch schon gesehen (siehe Anhang). Ich habe dann mal für den Bug gestimmt...

Hättest du dafür einmal ein Beispielprojekt?
Es sieht für mich so aus als hättest du DefaultDrawing aktiv und würdest zusätzlich den Text selbst zeichnen, kann das sein? Oder der Text wird dort teilweise doppelt gezeichnet, aber das war mir zumindest nicht aufgefallen.

Wenn es nämlich einen weiteren Bug geben sollte, sollte ich (oder du) das dort ergänzen oder eine neue Meldung aufmachen, je nachdem woran es liegt.

[dummzeuch]

Zitat von jaenicke:

Zitat von dummzeuch:

Mir ist dieser spezielle Bug zwar noch nicht aufgefallen, aber dass TStringGrid in Delphi 10.4 eine Macke haben muss, habe ich auch schon gesehen (siehe Anhang). Ich habe dann mal für den Bug gestimmt...

Hättest du dafür einmal ein Beispielprojekt?
Es sieht für mich so aus als hättest du DefaultDrawing aktiv und würdest zusätzlich den Text selbst zeichnen, kann das sein? Oder der Text wird dort teilweise doppelt gezeichnet, aber das war mir zumindest nicht aufgefallen.

Wenn es nämlich einen weiteren Bug geben sollte, sollte ich (oder du) das dort ergänzen oder eine neue Meldung aufmachen, je nachdem woran es liegt.

Ja, DefaultDrawing ist True.

Und dann gibt es noch einen OnDrawCell Event:

Delphi-Quellcode:

procedure TfmUsesManager.DrawStringGridCell(_sg: TStringGrid; const _Text: string; const _Rect: TRect;
  _State: TGridDrawState; _Focused: Boolean; _Tag: Integer);
var
  cnv: TCanvas;
begin
  cnv := _sg.Canvas;
  if _Text = '' then
    cnv.Brush.Color := _sg.Color
  else begin
    if gdSelected in _State then begin
      if not _Focused then begin
        cnv.Brush.Color := clDkGray;
        cnv.Font.Color := clWhite;
      end;
    end else begin
      if _Tag <> 0  then begin
        cnv.Brush.Color := clYellow;
      end;
    end;
  end;
  cnv.FillRect(_Rect);
  cnv.TextRect(_Rect, _Rect.Left + 2, _Rect.Top + 2, _Text);
end;

procedure TfmUsesManager.sg_AvailDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
var
  sg: TStringGrid absolute Sender;
  GridFocused: Boolean;
begin
  GridFocused := sg.Focused or edtUnitFilter.Focused or edtIdentifierFilter.Focused;
  DrawStringGridCell(sg, sg.Cells[ACol, ARow], Rect, State, GridFocused, 0);
end;

Es mag an den +2 in cnv.TextRect liegen. Kann sein, dass die in Delphi 10.4 nicht mehr passen, warum auch immer, denn in den früheren Versionen gab es das Problem nicht. Ich habe noch nicht versucht, es zu debuggen.

[Uwe Raabe]

Der Code für DefaultDrawing hat sich in der Tat geändert. OwnerDraw Events, die auf DefaultDrawing aufbauen, müssen mit hoher Wahrscheinlichkeit angepasst werden.

[Daniel]

Ist ein bestätigter und bereits korrigierter Bug - die Korrektur wird in Update 10.4.1 enthalten sein.
Wenn es eilig ist, kann die korrigierte Unit auch vorab hier bezogen werden:
https://quality.embarcadero.com/browse/RSP-29402

[jaenicke]

Ergänzung:
Mein Einwand wurde einbezogen und nun eine meiner Meinung nach an der Stelle fehlerfreie Version der Unit Vcl.Grids bereitgestellt.

Zitat von dummzeuch:

Ja, DefaultDrawing ist True.

Dann solltest du selbst auch nicht Text ausgeben. Wenn du das möchtest, solltest du DefaultDrawing auf False stellen, damit der Text nicht doppelt gezeichnet wird.

Zitat von dummzeuch:

Es mag an den +2 in cnv.TextRect liegen. Kann sein, dass die in Delphi 10.4 nicht mehr passen, warum auch immer, denn in den früheren Versionen gab es das Problem nicht. Ich habe noch nicht versucht, es zu debuggen.

Ja, in 10.4 wird der Text nun zentriert ausgegeben, so dass man mit einfachen Offsets den Text nicht mehr immer deckungsgleich hinbekommt (+6 statt +2 wäre in der Standardgröße korrekt als Offset). Deshalb solltest du DefaultDrawing auf False setzen, dann kannst du den Text ausgeben wo du möchtest.