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

Вниз

Изменение ширины фиксированной колонки в StringGrid   Найти похожие ветки 

 
JIruaasgyy   (2004-02-29 13:33) [0]

Как в StringGrid изменить ширину фиксированной колонки?У меня это не получается сделать даже если Я ставлю "goColSizing" на True.Видимо,это не предусмотренно.А как тогда быть, если слово стоящее на фиксированной колонке не влазит?


 
Defunct ©   (2004-02-29 13:40) [1]

ColWidth[] := xx
Не помогает?

Откройте DFM файл в текстовом редакторе, посмотрите как настраивается StringGrid


 
JIruaasgyy   (2004-02-29 17:16) [2]

ColWidth[] := xx
Это программно, а я хочу чтоы можно было расширять с помощью мыши


 
TButton ©   (2004-02-29 17:20) [3]

:) можно. только у тя... вобщем должны быть фиксированы либо только колонки, либо только строки. если и те и те, то никак.


 
Vlad40   (2004-02-29 18:27) [4]

Все это можно реализовать самому. Вот тебе пример кода. В принципе он вроде бы работает, только еще надо бы отрисовать перемещение границы при передвижении нажатой мышки - лень было писать.


var
StartResizeFixCol : Boolean = false;

procedure TForm1.StringGrid1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
Rect: TRect;
begin
Rect.Left:=StringGrid1.CellRect(0,0).Right-3;
Rect.Right:=StringGrid1.CellRect(0,0).Right+3;
Rect.top:=StringGrid1.CellRect(0,0).top;
Rect.Bottom:=StringGrid1.CellRect(0,0).Bottom;
if PtInRect(Rect, Point(x,y)) then
StringGrid1.Cursor:=crHSplit
else
StringGrid1.Cursor:=crDefault;
end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Rect: TRect;
begin
Rect.Left:=StringGrid1.CellRect(0,0).Right-3;
Rect.Right:=StringGrid1.CellRect(0,0).Right+3;
Rect.top:=StringGrid1.CellRect(0,0).top;
Rect.Bottom:=StringGrid1.CellRect(0,0).Bottom;
if PtInRect(Rect, Point(x,y)) then
StartResizeFixCol := True;
end;

procedure TForm1.StringGrid1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if StartResizeFixCol then
begin
StringGrid1.ColWidths[0]:=x;
StartResizeFixCol := False;
end;
end;




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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
14-43790
arbin
2004-02-18 15:21
2004.03.14
Веселые вещи происходят у нас.


3-43263
Sirgfine
2004-02-06 04:42
2004.03.14
Индексация в qBase


6-43725
RaVeX
2004-01-06 08:41
2004.03.14
проблема с кодировкой файлов аттачей при их сохранении (Indy)


4-43951
Delphi5.01
2004-01-07 00:10
2004.03.14
Problem with CreatePolygonRgn


3-43277
Piter
2004-02-12 17:29
2004.03.14
INSERT/UPDATE в одном флаконе