DBGRID

[شفیعی]

سلام
اگر بخواهیم بعد از سورت کردن اطلاعات داخل یک DBGRID یک ICO و یا یک تصویر روی TITEL DBGRID نمایش دهیم که مشخص شود اطلاعات داخل DBGRID بر اساس این فیلد مرتب شده است باید چکار کرد

[JavanSoft]

از CrDbGrid در مجموعه SDAC استفاده کنید

[m-khorsandi]

درود

من تا اینجا رو درآوردم ، البته تصویری رو رسم نمیکنه به اون شکلی که شما میخوای، ولی تقریبا همون کار رو
میکنه:



procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
btnrect: TRect;
begin
btnRect.Top := 5;
btnRect.Left := 100;
btnRect.Bottom := 10;

DBGrid1.Canvas.Font.Name := 'Marlett';
DBGrid1.Canvas.Font.Size := 12 ;
DBGrid1.Canvas.Font.Style := [fsBold];
DBGrid1.Canvas.Brush.Color := clBtnFace;

// 5, 6 for asc and desc
DrawText(DBGrid1.canvas.Handle, '5', -1, btnRect, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

[دنیای دلفی]

شما می توانید از DBGridEh استفاده کنید .

یک سری به سایت www.jonoobshop.com بزنید محصول Ehlib
:موفق:

[شفیعی]

سلام


از CrDbGrid در مجموعه SDAC استفاده کنید

کامپوننت بالا را از کجا می توان دانلود نمود

[JavanSoft]

با آقای کرامتی تماس بگیرید

[مرتضی کاردرست]

بهتر است رنگ عنوان ستون را تغییر دهید.

[hr110]

var
grd : TStringGrid;
R : TRect;
begin
if(ARow=0)and(ACol=SortColoumn) then
begin
grd:=StringGrid1;
R:=StringGrid1.CellRect(ACol,ARow);
grd.Canvas.CopyRect(R,Imgage1.Canvas,Imgage1.Clien tRect);
end;
end;

[شفیعی]

سلام
دوست عزیز اگر ممکن است در مورد سورس بالا کمی توضیح دهید من متوجه نشدم که چگونه باید از این سورس استفاده کرد

[javidtaheri]

بهتر است رنگ عنوان ستون را تغییر دهید.

به نظرم این کار گویا تر از کاری است که شما میخواهید انجام بدین :flower:

[Ali_Hashemi]

آقایونی که اسم خودتونو برنامه نویس میذارید !

این چه معنی داره که برای ساده ترین نیاز های خوتون هم دست به دامن کامپوننت های مختلف میشید ؟
ها ؟
فکر میکنید آینده برنامه نویسی و برنامه نویسای ایرانی چی میشه ؟
تا یکی میگه میخوام برم پفک بخرم همه میگن از کامپوننت فلان استفاده کن ! بیا از سایت من بخر !
خوشمزه تره !

آقای شفیعی حتما تا الان مشکل شما حل شده ولی شما میتونید با چند خط کد نویسی به مقصود برسید:


1- یک متغیر Public تعریف کنید که شماره ستونی که سورت میشود را در خود نگهداری میکند.
(orted_Col:integer)
2-خاصیت DefaultDrawing مربوط به DBgrid رو False کنید.
3- کد زیر را در رویداد onDrawColumnCell مربوط به DBGrid بنویسید.




procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
myrect:trect;
begin
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column, State);
if DataCol=Sorted_Col then
Begin
myrect.Right:=rect.Right-1;
myrect.Left:=myrect.right-Image1.Width;
myrect.Top:=0;
myrect.Bottom:=Image1.Height;
DBGrid1.Canvas.BrushCopy(myrect,image1.Picture.Bit map,image1.ClientRect,clblue);
end;
end;




خیلی متاسف شدم از یاری بی درغ دوستان جهت راهنمایی آقای شفیعی.

این هم یه نمونه برنامه دلفی که حتی یک کامپوننت هم توش استفاده نشده
اگر یه برنامه نویس واقعی پیدا بشه که قدرشو بدونه حاظرم سورس اون هم بهش بدم
ولی دریغ ... همه شدن مصرف کننده بدون اینکه بخوان بفهمن اون یارو که کامپوننت نوشته معجزه نکرده.



http://www.pouyansoft.com/PRODUCTS/picture%20sque/picture%20sque.zip

[Ali_Hashemi]

مثلا یه نفر بگه ببینم مثلا توی همین برنامه picturesque من که تصویرشو میبینید
برای اون دکمه های کناری مثلثی شکل و یا دکمه های ذوزنقه ای شکل چه راه حلی رو
پیشنهاد میکنید ؟ (بدون استفاده از کامپوننت و region )

اینم در نظر بگیرید که اگر ناحیه دکمه مثلثی رو به صورت مستطیل در نظر بگیریم اونوقت ناحیه کلیک میفته
روی دکمه های کناریش!

نیاید بگید برو فلان کامپوننت رو استفاده کن یا بیا از سایت من بخر با اشانتیون و ....

فقط منظور من اینه که ببینم چند نفر میتونن برنامه نویسانه (عجب کلمه ای !) تفکر کنن.

منتظر پیشنهاد ها هستم .

[ebnsina]

علی آقای گل سلام

من با حرفهای شما کاملا موافقم ولی ما دوتا مشکل یا درد داریم :
1- دوستانی که بیشتر میدونن زیاد وقت نمیزارن و لطفی در راهنمایی ندارن. :(
(البته مخلص همشون هستیم. :mrgreen: )
2-از طرف دیگه وقتی خیلی از ما ها مشکل وقت داریم و میبینیم که ابزار آماده موجوده (البته نه همیشه) مجبوریم بجای صرف وقت اون رو انتخاب کنیم.

با اینهمه اگر همه مثل شما فکر میکردن دنیای برنامه نویسی گلستون میشد !

از راهنمایی شما متشکر
:flower: :flower:

[شفیعی]

سلام
دوست عزیز آقای Ali_Hashemi :flower:
خیلی ممنون
من با مطلب شما کاملا موافق هستم
از لطفی که بنده کردید خیلی ممنون
:oops:

[Touska]

آقای هاشمی پکوندی همه رو :flower:

[Ali_Hashemi]

به خدا من سرم از خیلی ها شلوغ تره

ولی تا اونجایی که بتونم به کسانی گه نیاز به اطلاعات داشته باشه کمک میکنم.
چون خودم یه زمانی تشنه اطلاعات بودم ولی دریغ .. به همین خاطر اطلاعات خودمو
هر چقدر هم که ناچیز باشه در اختیار کسانی که قدرشو بدونن میذارم.

یه نمونه اش اینکه من ترم اول دانشگاه به هر استادی (به قول خودشون استاد) که بر میخوردم
در مورد استفاده از فایلهای بیت مپ در پاسکال سوال میکردم . خدا شاهده هیچ کدوم درست جواب ندادن.
بعضی هاشون میخندیدن بیشترشون هم میگفتن که کار ماها نیست سخته نمیشه !
ولی در همون ترم این کارو به نتیجه رسوندم. با استفاده از کتاب "قالبهای فایلهای گرافیکی" که تازه چاپ شده بود و ...
یه بازی هم با استفاده از اون نوشتم.
اگر کسی خواست این لینکش :

https://www.sharemation.com/Iceflower/Game/puzzle_Source.exe

هم سورس داره و هم فایل اجراییش.

خلاصه : ما ارادت داریم نسبت به خیلی از برنامه نویسها !
هرچند عددی هم نیستیم.

[Touska]

آقای هاشمی خیلی ممنونم.

موفق باشید :flower: