डेल्फी: विंडोज 7

Question

जैसे एरो के साथ विस्टा के लिए कैप्शन फॉर्म में एक टेक्स्ट बनाएं, विस्टा पर विंडोज 7 की तरह विस्टा पर कैप्शन बार में टेक्स्ट कैसे आकर्षित करता है?

alt text http://img529.imageshack.us/img529/3643/immaginembl.jpg

delphi.about.com पर उदाहरण हवाई साथ Vista पर काम नहीं करता। आपके पास कोई विचार है?

सभी के लिए धन्यवाद।

मेरे खराब अंग्रेजी के लिए खेद है।

Answer 1

गैर-क्षेत्रीय क्षेत्र में चित्रण ग्लास को स्वचालित रूप से अक्षम करने का कारण बनता है। एमएस ऑफिस सीमाओं को कवर करने के लिए क्लाइंट क्षेत्र का विस्तार करता है। सुझावों के लिए this WPF article के "ग्लास के साथ एनसी क्षेत्र में ड्राइंग" अनुभाग देखें। आपको एपीआई कॉल को डेल्फी में कनवर्ट करना होगा, मुझे डर है।

Answer 2

कुंजी एपीआई DwmExtendFrameIntoClientArea

है आप इसे घोषित करने और इस तरह इसे पाने shoud:

DwmExtendFrameIntoClientAreaFunc = function(destWnd: HWND; const pMarInset: PMargins): HRESULT; stdcall; 
@fDwmExtendFrameIntoClientArea := GetProcAddress(hDWMDLL, 'DwmExtendFrameIntoClientArea'); 

तुम भी कोड पहले से ही यहाँ भेजा है Translucent Windows with Aero

आप फ्रेम नहीं किया है करने के लिए

DWM_ExtendFrameIntoClientArea(Form1.Handle, -1, -1, -1, -1); 

के साथ: ऐसा लगता है कि फोन यह सब कुछ हासिल करना मुश्किल नहीं होना चाहिए जो आप चाहते हैं।

Answer 3

डेल्फी 200 9 में टेलाबेल की एक नई संपत्ति है जिसे "ग्लोसाइज" (see help) कहा जाता है। इस संपत्ति के लिए सकारात्मक मूल्य निर्धारित करने का प्रभाव आप जो खोज रहे हैं उसके करीब है (लेबल के पाठ के चारों ओर एक चमक)।

Answer 4

फ्रेम को विस्तार करना एक चीज है और विस्टा थीम्ड (चमकती) पाठ ड्राइंग एक और है। कैनवास के साथ। टेक्स्टऑट या ड्राटेक्स्ट आउटपुट ने अल्फा को गड़बड़ कर दिया है जो आपको प्राप्त प्रभाव देगा। आपको DrawThemeTextEx का उपयोग करने की आवश्यकता है। यहाँ कांच पर पाठ ड्राइंग के लिए सही प्रक्रिया:

uses Themes, UxTheme; 

procedure DrawTextOnGlass(Canvas: TCanvas; Text: String; R: TRect); 
var 
    memoryHdc: HDC; 
    b: TBitmap; 
    dttOpts: TDTTOpts; 
    DR: TRect; 
    bf: TBlendFunction; 
begin 
    b := TBitmap.Create; 
    try 
    memoryHdc := CreateCompatibleDC(Canvas.Handle); 

    b.Handle := memoryHdc; 
    b.HandleType := bmDIB; 
    b.PixelFormat := pf32bit; 
    b.SetSize(R.Right - R.Left, R.Top - R.Bottom); 
    b.Canvas.Font := Canvas.Font; 

    DR := R; 
    OffsetRect(DR, -DR.Left, -DR.Top); 
    Inflaterect(dr, -5, -5); 
    b.Canvas.Brush.Color := clBlack; 
    b.Canvas.FillRect(DR); 

    dttOpts.dwSize := SizeOf(TDTTOpts); 
    dttOpts.iGlowSize := 8; 
    dttOpts.dwFlags := DTT_COMPOSITED or DTT_GLOWSIZE or DTT_TEXTCOLOR; 

    DrawThemeTextEx(ThemeServices.Theme[teWindow], b.Handle, WP_CAPTION, CS_ACTIVE, Text, -1, 
     DT_CENTER or DT_VCENTER or DT_SINGLELINE or DT_NOPREFIX, DR, dttOpts); 
    if GetLastError <> 0 then 
     RaiseLastOSError; 


    bf.BlendOp := AC_SRC_OVER; 
    bf.BlendFlags := 0; 
    bf.SourceConstantAlpha := 255; 
    bf.AlphaFormat := AC_SRC_ALPHA; 

    AlphaBlend(Canvas.Handle, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, 
     b.Canvas.Handle, 0, 0, R.Right - R.Left, R.Bottom - R.Top, bf); 
    finally 
    b.Free; 
    end; 
end; 

Answer 5

DrawTextOnGlass कोड के लिए धन्यवाद। लेकिन अपेक्षा के अनुरूप काम करने के लिए, मैं DrawThemeTextEx

Answer 6

में b.handleb.canvas.handle को बदलने के लिए है कि सब कुछ के बाद काफी सरल है आप, DwmSetWindowAttribute लिए एक कॉल की जरूरत की जरूरत है। इस आलेख को देखें और विशेष रूप से टिप्पणियां :) http://delphihaven.wordpress.com/2010/04/22/setting-up-a-custom-title-bar-reprise/