سلام
چطوری میشه فونت Caption مربوط به فرم رو تغییر
داد اصلا میشه این کار رو کرد یا نه؟
مثلا می خوام فونت Tahoma و یا louts و یا...
نصبت بدم
ممنون
Printable View
سلام
چطوری میشه فونت Caption مربوط به فرم رو تغییر
داد اصلا میشه این کار رو کرد یا نه؟
مثلا می خوام فونت Tahoma و یا louts و یا...
نصبت بدم
ممنون
با توابع Api قطعا ميشه دنبال اين باش
سلامنقل قول:
اينطوري ميتونيد روي Caption عبارت مورد نظرتون را بنويسيد:
قبل از نوشتن بهتره Caption فرم را پاك كنيد.
کد:private
procedure WMNCPaint(var Msg: TWMNCPaint) ; message WM_NCPAINT;
procedure WMNCACTIVATE(var Msg: TWMNCActivate) ; message WM_NCACTIVATE;
procedure DrawCaptionText;
کد:procedure TForm1.DrawCaptionText;
var
ACanvas: TCanvas;
begin
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do
begin
Brush.Color := clActiveCaption;
Brush.Style := bsClear;
Font.Name := 'Tahoma';
Font.Size := 12;
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;
inherited;
end;
procedure TForm1.WMNCACTIVATE(var Msg: TWMNCActivate) ;
begin
inherited;
DrawCaptionText;
end;
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint) ;
begin
inherited;
DrawCaptionText;
end;
سلام
حالا هر کار می کنم
که Caption راست چین بشه نمی شه
با این تابع هر کار می کنم Caption راست چین نمی شه
باید چکار کنم
به نظر من راحت ترین راه اینه که از کامپوننت دینامیک اسکین استفاده کنید
سلام
لینک شو داریننقل قول:
به نظر من راحت ترین راه اینه که از کامپوننت دینامیک اسکین استفاده کنید
ممنون
من خودم این رو گرفتم تست شده است و باید از این لینک بگیرید:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سایت ژاپنیه و چهار تا لینک دانلود داره و 13 مگ هست و کرک شده
سایت اصلی کامپاننت هم این هست
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
باید اسکین هاش رو بگیرید همچنین بیلدرش رو از طریق بیلدر می تونید فونت رو عوض کنید اگه مشکلی بود در خدمتیم
سلام
از لینک ممنون
من که برام نمی صرفه دانلود کنم
13 مگ با سرعت اینترنتم؟؟؟
به نظر من میصرفه ارزششو داره کمتر از یک ساعت طول میکشه