{"id":126,"date":"2007-05-12T14:41:31","date_gmt":"2007-05-12T12:41:31","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/draw-in-caption-bar\/"},"modified":"2007-05-12T14:41:32","modified_gmt":"2007-05-12T12:41:32","slug":"draw-in-caption-bar","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/draw-in-caption-bar\/","title":{"rendered":"Draw in Caption bar"},"content":{"rendered":"

Konstantin Knips wrote in message
\n371B12D9.7DCB8FDB@reze-1.rz.rwth-aachen.de <\/p>\n

>…
\n>
\n>
\n>Neil White schrieb:
\n>
\n>> In realplayer there is an icon that is overlapping the title bar and the
\n>> menubar. and there is another button that aint normally there. Can i do
\nthis
\n>> in Delphi 4?
\n>>
\n>> this is not the most helpfull description but thanx anyone who can help
\nme.
\n>
\n> I have heard of the possibility to do that in Delphi. It was about the
\nHandle
\n>of the Whole window, not the handle of only the client region. When you got
\nthe
\n>right handle, you will be able to make low – level graphics operations also
\nin
\n>the titlebar of the Window. There is nothing more exact that I know.
\n>
\n<\/em>
\nYou have to handle the WM_NCPAINT message. Something like this (for custom
\ntext)
\nShould be similar for bitmaps.
\n
\n[code lang=”delphi”]type
\n TForm1 = class(TForm)
\n private
\n procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
\npublic
\nend;<\/p>\n

var
\nForm1 : TForm1;<\/p>\n

implementation<\/p>\n

{$r *.dfm}<\/p>\n

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);<\/p>\n

var
\n ACanvas : TCanvas;<\/p>\n

begin
\n inherited;
\n ACanvas := TCanvas.Create;
\n try
\n ACanvas.Handle := GetWindowDC(Form1.Handle);
\n with ACanvas do begin
\n Brush.Color := clActiveCaption;
\n Font.Name := ‘Tahoma’;
\n Font.Size := 8;
\n Font.Color := clred;
\n Font.Style := [fsItalic, fsBold];
\n TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
\n Round((GetSystemMetrics(SM_CYCAPTION) – Abs(Font.Height))\/2) +
\n1,
\n ‘ Some Text’
\n end;
\n finally
\n ReleaseDC(Form1.Handle, ACanvas.Handle);
\n ACanvas.Free;
\n end;<\/p>\n

end;
\n[\/code]<\/p>\n

[tags]Delphi, Forms[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

Konstantin Knips wrote in message 371B12D9.7DCB8FDB@reze-1.rz.rwth-aachen.de >… > > >Neil White schrieb: > >> In realplayer there is an icon that is overlapping…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,100],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-22","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/126"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=126"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/126\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=126"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=126"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=126"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}