|
Тема |
Canvas draw on DBGrid |
|
Автор | Любo (Нерегистриран) | |
Публикувано | 17.11.06 09:09 |
|
|
Здравейте !
Като променям цвета на дадена колона или на отделна клетка в DBGrid текста ми не подравнява на ляво като оригиналното подравняване е на дястно :
Ето как променям цвета
if AViewInfo.Item.Caption = 'Status' then
begin
ATextToDraw := AViewInfo.GridRecord.Values[AViewInfo.Item.Index];
ARec := AViewInfo.Bounds;
ACanvas.Canvas.Font.Color := clBlack;
ACanvas.Canvas.Brush.Color := clMoneyGreen;
ACanvas.Canvas.FillRect( ARec );
SetBkMode(ACanvas.Canvas.Handle, TRANSPARENT);
ACanvas.DrawText(ATextToDraw, AViewInfo.Bounds, 0);
ADone := True;
end;
пробвах да подравянавам с следната функция :
SetTextAlign(ACanvas.Canvas, TA_RIGHT);
но тогава всичо се разбърква самият грид направо полудява всичко се премества кой кадето си иска ??
Дали някой се е срещнал с този проблем ?
Благодаря предварително !
|
| |
|
|
|