View Full Version : نقاشی برو روی Caption پرژه ؟؟؟
ali_mohamadi8928
شنبه 01 دی 1386, 13:18 عصر
با سلام
چه جوری میتونم یکم متن رو که درون یک مستطیل هست روی Caption پرژه بکشم .
مثلا کامپونت VCL Skin رو اگه دیده باشید اگه کرک نشده باشه روی کپش توی یک مستطیل مینویسه VCL Skin Demo .
حالا با چه کدی میشه یه همچین کاری رو توی برنامه هامون بکنیم ؟؟؟؟
dkhatibi
یک شنبه 02 دی 1386, 06:52 صبح
{
You have to handle the WM_NCPAINT message.
Something like this (for custom text) Should be similar for bitmaps.
}
type
TForm1 = class(TForm)
private
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
public
end;
var
Form1: TForm1;
implementation
{$r *.dfm}
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
ACanvas: TCanvas;
begin
inherited;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do
begin
Brush.Color := clActiveCaption;
Font.Name := 'Tahoma';
Font.Size := 8;
Font.Color := clred;
Font.Style := [fsItalic, fsBold];
TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height)) / 2) + 1, ' Some Text');
end;
finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;
تو همون سایت سوئیسی بود. ببین به درد می خوره!
ali_mohamadi8928
یک شنبه 02 دی 1386, 21:43 عصر
خیلی ممنونم .
این رو چه جوری باید فراخوانی کرد ؟ اگه میشه لطف کنید و یک مثال بزارید خیلی ممنون میشم .
با تشکر .
rasool_brn
دوشنبه 03 دی 1386, 00:03 صبح
فراخوانی نمی خواد همین رو به جای متن Unit فرم پروژت کپی کن.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.