Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.17;
Скачать: CL | DM;

Вниз

StringGrid   Найти похожие ветки 

 
Talla2k ©   (2004-02-04 22:28) [0]

Цель такова: все введенные данные должны центроваться в ячейке.
На FAQ на нашел пример,изменил предпоследнюю строчку(та что textout),
теперь центрует, но если данные больше размеров ячейки, то они вылезают влево на соседнюю.ЧТО НЕ ЖЕЛАТЕЛЬНО!!!
Подскажите,где ошибся.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with stringgrid1.Canvas do begin
if (Acol<>0) and (Arow<>0) then begin
FillRect(Rect);
Font.Color := clblack;
Brush.Color := clwhite;
textout(rect.left+(rect.right-rect.left -textwidth(stringgrid1.cells[Acol,Arow])) div 2 , Rect.top+4,stringgrid1.Cells[Acol,Arow]);
end; end;end;


 
Talla2k ©   (2004-02-05 00:35) [1]

Ну ребята,ПОЖАЛУЙСТА!!!


 
PKT   (2004-02-05 03:25) [2]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
S: string;
begin
with TStringGrid(Sender) do begin
S := Cells[ACol,ARow];
Dec(Rect.Right, 2); Inc(Rect.Top, 2);
Canvas.FillRect(Rect);
DrawText(Canvas.Handle, PChar(S), Length(S), Rect, DT_CENTER);
end;
end;


 
Talla2k ©   (2004-02-06 01:29) [3]

Спасибо PKT!!!



Страницы: 1 вся ветка

Текущий архив: 2004.02.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-53641
h0use
2004-02-06 15:46
2004.02.17
Как в компоненет создавать about?


4-53817
QUSTION
2003-12-12 12:19
2004.02.17
МОЖНО ЛИ В WIN2000/XP прятать прогу от CTRL+ALT+DELETE ?


3-53359
Fom
2004-01-28 12:29
2004.02.17
Как в FB переименовать таблицу с данными?


1-53476
Алексей
2004-02-06 10:51
2004.02.17
Delphi jpg to text


9-53355
IP
2003-08-05 05:35
2004.02.17
DirectX