PDA

View Full Version : اضافه نمودن Icons به StatusBar



nassari
شنبه 07 آبان 1384, 10:39 صبح
باسلام وقبولی عبادات شما عزیزان
سوال بنده نسبت به اضافه نمودن Icons به StatusBar لطفا راهنمایی بفرمایید :لبخندساده

Touska
شنبه 07 آبان 1384, 10:48 صبح
می تونید از ابزار رایگان JVC استفاده کنید یا lmd یا rm control

hr110
شنبه 07 آبان 1384, 11:24 صبح
البته یه راه اشتباه هم وجود داره :چشمک: :



...
StatusBar1.Panels[0].Style:=psOwnerDraw;
...

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
var
Btm : TBitmap;
begin
StatusBar.Canvas.Brush.Style:=bsClear;
StatusBar.Canvas.Brush.Color:=clWhite;
StatusBar.Canvas.FillRect(Rect);
Btm:=TBitmap.Create;
ImageList1.GetBitmap(0,Btm);
StatusBar.Canvas.Draw(Rect.Left,Rect.Top,Btm);
end;

JavanSoft
شنبه 07 آبان 1384, 13:35 عصر
Cooltry برنامه بسیار ساده و با قابلیتی است

hr110
شنبه 07 آبان 1384, 13:49 عصر
Cooltry برنامه بسیار ساده و با قابلیتی است

جناب وکیلی ، شرمنده میشه ارتباط این دو تا رو باهم بفرمایید:بامزه:

Naficy
یک شنبه 08 آبان 1384, 05:50 صبح
StatusBar.Canvas.Brush.Style:=bsClear;
StatusBar.Canvas.Brush.Color:=clWhite;
StatusBar.Canvas.FillRect(Rect);
ببخشید. چرا اول brush را bsClear می کنید، بعد FillRect را صدا می زنید؟ اینجوری که هیچی کشیده نمی شه؟؟!

hr110
یک شنبه 08 آبان 1384, 10:24 صبح
برای fillrect باید نوع style رو bsClear کنیم تا ناحیه را خالی کند، رنگ سفید هم ناحیه را یک دسته میکند و اگر تصویری کوچکتر از ناحیه بود اطرافش یکدست خواهد شد.

Naficy
دوشنبه 09 آبان 1384, 05:25 صبح
هنگامی که style شی Brush را به bsClear تغییر می دهید، یعنی می خواهید Brush شما هیچ ترسیمی انجام ندهد. و صدازدن تابع FillRect در این هنگام عبث و بیهوده است.


ضمنا بهتر است رنگ Brush را clBtnFace بگذارید (و style آن همان bsSolid باشد) تا مستطیل زیرین را با این رنگ پر کند. (معمولا رنگ پس زمینه در StatusBar را همین رنگ انتخاب می کنند)

JavanSoft
دوشنبه 09 آبان 1384, 14:22 عصر
جناب وکیلی ، شرمنده میشه ارتباط این دو تا رو باهم بفرمایید:بامزه:

هیچی گیجی ماه رمضون و شباهت TaskBar و Statusebar حالا چه شباهتی ؟ عاقلان دانند