Klassen Ableiten... Aber wie

[Real_Thunder]

vielen dank,
nun bekmme ich keine exeption mehr und er erstellt mir auch das Stringgrid...

nn muß ich nurnoch irgendwie herausbekommen, wie dies hier gemeint ist:

Zitat:

und im OnDrawCell des Forms

Die Zeile
iOrderId=ProjectList.iOrderId

ist True, wenn die aktuell anzuzeigende
Spalte (ACol) die Sortierspalte ist.

ProjectList.bOrderAsc benutze ich zum Umkehrung der Sortierung

Delphi-Quellcode:

  if (ARow=0) then 
  begin 
    iOrderId:= GridColIndex2OrderId(ACol); 

    Inc(Rect.Left,2); 

    if iOrderId=ProjectList.iOrderId then 
    begin 
      Rect.Right:= Rect.Right-16; 
    end; 

    DrawText(c.Handle, PChar(theGrid.Cells[ACol,ARow]), 
      Length(theGrid.Cells[ACol,ARow]), Rect, 
      DT_END_ELLIPSIS or DT_CENTER); 

    if iOrderId=ProjectList.iOrderId then 
    begin 
      Rect.Right:= Rect.Right+16; 
    end; 

    if iOrderId=ProjectList.iOrderId then 
    begin 
      if ProjectList.bOrderAsc then 
      begin 
        c.Draw(Rect.Right-15,((Rect.Bottom-Rect.Top) div 2)-6,Grid.PicUp); 
      end 
      else 
      begin 
        c.Draw(Rect.Right-15,((Rect.Bottom-Rect.Top) div 2)-6,Grid.PicDown); 
      end; 
    end;

ich merke schon.. muß mich mal wieder mit den Delphi "Basics" befassen