تغییر عرض ستونهای DBGrid

[SADAF]

سلام به همه دوستان
می خواهم وقتی روی کناره ی عنوان ستون DBGrid دوبار کلیک می کنم عرض آن ستون با توجه به ماکسیمم داده ای که در ان ستون وارد شده است باز و بسته شود. (یعنی عرض ستون با توجه به داده های موجود در آن فیلد، حالت AutoSize داشته باشد)
چگونه اینکار را انجام دهم ؟

[B-Vedadian]

از کد زیر برای بدست آوردن عرض هر ستون کمک بگیرید

function GetColumnWidth(AGrid: TStringGrid; Col: Integer): Integer;

var

    i: Integer;

begin

    Result := 0;

    with AGrid do

    for i := 0 to RowCount - 1 do

        if Result < Canvas.TextWidth(Cells[Col, i]) then

            Result := Canvas.TextWidth(Cells[Col, i]);

end;

یک حاشیه 5 پیکسلی هم میتونه کمک کنه.

[SADAF]

خيلي خيلي متشكرم.
ولي من StringGrid ندارم. DBGrid دارم.
ولي به هر حال از ايده اي كه داديد ممنونم . چنين كاري رو در DBGrid هم انجام دادم. ولي فكر مي كردم راه سريعتري براي اينكار در مشخصات خود كامپوونت وجود داشته باشه (چون وقتي تعداد ركوردها زياد است تاخير كار به چشم مي آيد !!)

[B-Vedadian]

حق با شماست. اين جوري اصلاحش کنيد

function GetColumnWidth(AGrid: TCustomGrid; Col: Integer): Integer;

var

    i: Integer;

begin

    Result := 0;

    with AGrid do

    for i := TopRow to TopRow + VisibleRowCount - 1 do

        if Result < Canvas.TextWidth(Cells[Col, i]) then

            Result := Canvas.TextWidth(Cells[Col, i]);

end

;

[skmkh6056]

TopRow, VisibleRowCount و چیست. لطفا توضیح دهید. و تشکر از زحماتتون

[B-Vedadian]

به Help دلفی مراجعه کنید خوب توضیح داده.

TopRow شماره اولین سطری از یک CustomGrid که دیده میشه. VisibleRowCount تعداد سطرهایی از CustomGrid که دیده میشن.

[SADAF]

متشكرم.
ولي TCustomGrid مشخصه Cells نداره !

[B-Vedadian]

مزش به همينه ديگه!

مهم اينه که با يک تغيير کوچيک کار ميکنه. کافيه بجاي همين TCustomGrid يا TStringGrid بذاريد يا TDBGrid...