StringGrid: Text über mehrer Spalten

[fafnir]

Hallo :-D ,

da ich schon mehrer Foren nach Lösungen durchsucht habe, seit ihr mein letzte Hoffnung :mrgreen: .
Ich möchte in einem StringGrid Spaltenüberschriften über mehrer Spalten hinweg schreiben, so dass es ähnlich wie in Excel aussieht, wenn man Text über mehere Zellen hinweg verbindet.

Im OnDrawCell-Event habe ich versucht, mit Canvas.FillRect einen entsprechend großen horizontalen Bereich mit Farbe zu füllen und danach mit DrawText den Text dort auszugeben. Leider sieht es so aus, als würden die nachfolgenden Spalten meinen Text wieder überschreiben. :wall:

Was mache ich falsch :gruebel: ? Jeder Tip wird dankbar angenommen!

fafnir

[semo]

wie wär es denn wenn du deinen bereits erstellten code postest?


können den dann ja mal durchgehen.

[Hansa]

Verwende

Delphi-Quellcode:

if ARow <= FixedRows

im DrawText, damit nur die Überschriften betroffen sind.

[fafnir]

Hallo und ein frohes neues Jahr!
Mein Problem hat sich durch den folgenden Link erledigt:
http://www.delphi-groups.de/YaBBSe/i...=22383;start=0
Der Autor hat das Problem mit verbundenen Zellen sehr gut gelöst :thumb:
Wer den kompletten Quelltext anschaut, sollte die folgende Änderung beachten: :idea: :!:

Delphi-Quellcode:

function CellRectEx(Stringgrid:tstringgrid;Acol,Arow:integer):trect;
var i,x,y:integer;
    arect,brect:Trect;
begin
  //Zellenposition mit Cellrect ermitteln
  brect:=Stringgrid.CellRect(acol,arow);
  if EqualRect(brect,classes.rect(0,0,0,0))=false then
  begin
    if (StringGrid.ColWidths[aCol] > (bRect.Right-bRect.Left)) //sichtbarer Teil der Zelle  
      then bRect.Right := bRect.Left+StringGrid.ColWidths[aCol];//kleiner als Zellenbreite??  
    result:=brect;
  end
else.....

Die kommentierte If-Anweisung ist eine Ergänzug von mir, damit auch die eventuell nur teilweise sichtbare letzte rechte Spalte beim Scrollen korrekt gezeichnet wird.

Viel Spass beim Ausprobieren
fafnir