وسط چین کردن کامبوباکس

[ariobarzan]

سلام
آیا امکان وسط چین کردن کمبو باکس وجود داره؟
ممنون

[ariobarzan]

امکانش نیست؟

[me.enik]

سلام.
من که سعی کردم, نشد.
فکر هم نکنم که بشه.

چون اصلا معنایی نداره!!
توی هر برنامه ای هم که دیدم, وسط چین نبوده.

[ariobarzan]

خودم هم می دونم بی معنیه ولی این درخواست یکی از کاربر هاست

[me.enik]

خودم هم می دونم بی معنیه ولی این درخواست یکی از کاربر هاست

خب به همون کاربر بگو که نمیشه!!
فرقی نداره که درخواست یه کاربر ساده باشه یا مدیر ارشد وبسایت.
فقط این مهمه که نمیشه!!

نمیفهمم مشکلش کجاست!!؟

[mbshareat]

سلام
یه جستجوی ساده دادم. به این جواب رسیدم:
یه کادر کمبو روی فرم بذارین و پروپرتی style اون رو csOwnerDrawFixed قرار بدین و این کد رو برای DrawItem کمبو باکس بذارین:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);
var
sText : String;
begin
sText := ComboBox1.Items[Index];
if odSelected IN State then
ComboBox1.Canvas.Brush.Color := clHighlight;
ComboBox1.Canvas.FillRect(Rect);
DrawText(ComboBox1.Canvas.Handle,PChar(sText),Leng th(sText),Rect,DT_VCENTER + DT_SINGLELINE + DT_CENTER);
end;

این هم آدرس (http://www.delphipages.com/forum/showpost.php?p=135800&postcount=2) برنامه
فقط یه نکته مقدار Text رو با این روش حد اقل تو دلفی من نمیشه مقدار دهی کرد!(یعنی دلفی خالیش می کنه)

[ariobarzan]

با سلام
من كه هر كاري كردم نشد .
از آدرسي هم كه داده بوديد استفاده كردم باز هم نشد.
شما خودت اينو امتحان كردي؟

[سعید صابری]

آدرس مشکلی نداره.
کد نیز کار میکنه

[mbshareat]

سلام
بله امتحان کردم
این هم برنامه با یک کم آموزش اضافه. خودتون امتحان کنین: