Slow Canvas.TextRect (TsWorksheetGrid)

[xinyiman]

Hello guys, follow my function that draws on one of the TsWorksheetGrid cells with colored background and a lot of text. If the text is short the program is fast changing in the cell. If the text is long time to change from one cell to another it is long (up to 2 seconds). Can anyone tell me why?

Code: Pascal  [Select][+][-]

1. procedure TAppuntamentiGiornalieri.InserisciTestoSplittato(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState; stepRow: integer; indice: integer; LarghezzaCella: integer; Shield: boolean);
2. var
3.   i, x, y: Integer;
4.   txtStyle, appStyle : TTextStyle;
5.   Testo: string;
6. begin
7.  
8.   //Vado ad inserire il testo
9.   with sender as TsWorksheetGrid do
10.   begin
11.  
12.     appStyle := Canvas.TextStyle;
13.     appStyle.Wordbreak:=true;
14.     appStyle.SingleLine:=false;
15.     appStyle.Alignment:=taLeftJustify;
16.  
17.     Canvas.Font.Name := 'Courier New';
18.     Canvas.Font.Color := clBlack; //clSilver;
19.     Canvas.Font.Style := [];
20.     Canvas.Font.Height := 12;
21.  
22.     y:=aRect.Top;
23.     if LarghezzaCella>20 then
24.        x:=aRect.Left + 20 //il + 20 è lo spazio dal bordo sinistro perchè il testo deve iniziare dopo la barra colorata
25.     else
26.         x:=aRect.Left + 1;
27.  
28.     // queste due righe mi permettono di scrivere sul blocco verde senza togliermi gli angoli arrotondati
29.     txtStyle := Canvas.TextStyle;
30.     txtStyle.Opaque:=True;
31.  
32.     //Inserisco il testo
33.     Testo:=Self.Dati[indice].TestoAssemblato;
34.     if Shield=true then
35.        Testo := TrasformaTesto(Testo);
36.  
37.     Canvas.TextRect(aRect, x, y, Self.GetTesto(indice, Shield), appStyle);
38.  
39.     //reimposto lo stile precedente all'inserimento del testo
40.     Canvas.TextStyle := txtStyle;
41.  
42.   end;
43. end;
44.  

[circular]

Maybe Self.GetTesto is slow?

[xinyiman]

No! Also this is slow (direct string)

Canvas.TextRect(aRect, x, y, 'ciao come stai tante belle parole che non sono coerenti, ciao caio sempronio, servo solo a fare una stringa discretamente lunga...porca paletta', appStyle);
 

[xinyiman]

I understood what makes the slow Canvas.TextRect!

It 'option

appStyle.Wordbreak:=true;

In fact, if the comments performance improves. However, if one needs to go to the head? How can it be done?

//appStyle.Wordbreak:=true;

[wp]

What I don't understand is why you are working with TextStyle.Wordbreak and Fonts at all? All these are built into the WorksheetGrid, you just have to activate the options for the particular cell (see http://wiki.lazarus.freepascal.org/TsWorksheetGrid#Cell_formatting):

Code: Pascal  [Select][+][-]

1.   WorksheetGrid.WordWrap[gridCol, gridRow] := true;
2.   WorksheetGrid.CellFontName[gridCol, gridRow] := 'Courier'
3.   WorksheetGrid.CellFontSize[gridCol, gridRow] := 12;
4.   WorksheetGrid.CellFontColor[gridCol, gridRow] := clSilver;  

Could you condense the issue into a simple compilable project so that I can have a look?