StringGrid下的陰影

Question

我有一個表單。在formshow上，我將一個字段的值初始化爲stringgrid單元格，但它在單元格文本下顯示一個陰影。 我已經使用波斯字符作爲字段的值。
我做了與英國值相同，但它工作正常。
我很欣賞任何建議。輸出

例如：

Answer 1

隨着enaabled DefaultDrawing文本將如果輸入OnDrawCell是已經呈現。

由於要計算使用的DrawTextDT_CALCRECT你將不得不計算Rect至極應充/有FillRect清除繪畫所需的rowHeight。
您可以使用UnionRect來獲得必須填寫的最終Rect（示例中爲FillRect）。

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    StringGrid1.Cells[1,1] := 'Hallo'#13'World'; 
    StringGrid1.Cells[2,2] := 'اهای' +13# + 'جهان'; 
end; 

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
    Rect: TRect; State: TGridDrawState); 
var 
    S:String; 
    drawrect,Fillrect : TRect; 
begin 
    s := (Sender as TStringGrid).Cells[ACol, ARow]; 
    drawrect := Rect; 
    DrawText((Sender as TStringGrid).Canvas.handle, Pchar(s), Length(s), 
     drawrect, DT_CALCRECT or DT_WORDBREAK or DT_LEFT); 
    if (drawrect.bottom - drawrect.Top) > (Sender as TStringGrid) 
     .RowHeights[ARow] then (Sender as TStringGrid) 
     .RowHeights[ARow] := (drawrect.bottom - drawrect.Top); 
    UnionRect(FillRect,Rect,DrawRect); 
    (Sender as TStringGrid).Canvas.FillRect(FillRect); 
    DrawText((Sender as TStringGrid).Canvas.handle, Pchar(s), Length(s), 
     drawrect, DT_WORDBREAK or DT_LEFT); 
end;