example title_images löst Fehler aus

[siro]

Guten Morgen
und ersteinmal ein schönes Osterfest.

Beim Stöbern in den Lazarus Demos habe ich grad das Demo aus:

examples\gridexamples\title_images

ausprobiert. Dabei ist bei mir ein Exception aufgetreten.
Dieser ist auch nachvollziehbar.
Klickt man mit der Maus auf das erste linke graue Feld im TStringGrid gibt es folgenden Fehler:

title_image_demo_01.png (8.81 KiB) 669 mal betrachtet

title_image_demo_02.png (21.1 KiB) 669 mal betrachtet

..
Ist ja nur ein Demo und kein Weltuntergang, aber ich wollte zumindest darauf hingewiesen haben.

eine zusätzliche Zeile und das Problem ist gelöst

Code: Alles auswählen

procedure TForm1.StringGrid1HeaderClick(
  Sender: TObject; IsColumn: Boolean; Index: Integer);
begin
  if not IsColumn then exit;
  if Index <=0 then exit;     // Siro 09.04.2023
  with StringGrid1.Columns[Index - 1].Title do begin
    if ImageIndex = 2 then
      ImageIndex := 0
    else
      ImageIndex := ImageIndex + 1;
    if ImageIndex > 0 then
      StringGrid1.Columns[2 - Index].Title.ImageIndex := 0;
  end;
  AdjustTitleHeight;
  Refresh;
end;       

[Mathias]

Klickt man mit der Maus auf das erste linke graue Feld im TStringGrid gibt es folgenden Fehler:

Kann ich nachvollziehen. Getestet mit Linux 64bit.

Ich denke, dies ist trotzdem ein Bug-Report wert.
Demos mit Fehlern sind immer schlecht fürs Images.

[wp_xyz]

Behoben in main/trunk.

(Mathias, bitte bearbeite deinen Beitrag, so dass dein Text nicht im Zitat erscheint.)