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