AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so recht...

WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so recht...

Ein Thema von turboPASCAL · begonnen am 3. Jul 2006 · letzter Beitrag vom 7. Jul 2006
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#1

WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so recht...

  Alt 3. Jul 2006, 08:35
Hi,

ich mochte um eine Form einen eigenen Rahmen mit WM_PAINT zeichnen. Ich dachte mir dass das
eigentlich eine einfache Sache ist, aber ne...

Folgenden Code verwende ich z.Z.:

Delphi-Quellcode:
procedure TForm1.WMNCPaint(var _Message: TWMNCPaint);
var
  aCanvas: TCanvas;
  r, r2: trect;
  rn, rn2: hrgn;
begin
  inherited;

  aCanvas := TCanvas.Create;
  try
    aCanvas.Handle := GetWindowDC(Handle);

    getwindowrect(handle, r);
    rn := CreateRectRgnIndirect(r);

    r2 := clientrect;
    r2.top := 5;

    rn2 := CreateRectRgnIndirect(r2);

    CombineRgn(rn, rn, rn2, RGN_XOR);

    aCanvas.Pen.Color := clLime;
    aCanvas.Brush.Style := bsFDiagonal {bsSolid};
    aCanvas.Brush.Color := clBlack;

    if not FillRGN(aCanvas.Handle, rn, aCanvas.Brush.Handle) then
      windows.Beep(880,20);

    deleteobject(rn);
    deleteobject(rn2);

    aCanvas.Brush.Style := bsClear;
    aCanvas.Pen.Style := psSolid;
    aCanvas.Rectangle(0, 0, Width, Height);
  finally
    ReleaseDC(Handle, aCanvas.Handle);
    aCanvas.Free;
  end;
end;
Das Problem ist das der Rahmen nicht richtig gezeichnet wird bzw. verschwindet
beim dem Verändern der Grösse des Fensters.

Wer kann helfen ?
Angehängte Dateien
Dateityp: zip ncpaint_113.zip (2,2 KB, 35x aufgerufen)
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 3. Jul 2006, 09:08
Hi turbopascal,

mit fällt erst mal auf, dass du ein neues Canvas - Object erzeugst.
TForm hat doch ein Canvas, auf welches du zeichnen kannst.
Und dann überschreibe ich immer die Methode Paint.
Ausserdem muss du noch GetClientRect anpassen, damit ein Control den Rahmen nicht verdecken kann.

Cu, Frank
Frank Reim
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#3

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 3. Jul 2006, 09:49
Du kanst mit {FormX.}Canvas nur auf das ClientRect eines Fensters zugreifen.
Mir geht es aber um den Rahmen (NonClientArray).

Delphi-Quellcode:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or WS_SIZEBOX {WS_BORDER};
end;
Im Ergebnis soll das dann so aussehen:
Miniaturansicht angehängter Grafiken
preview_148.gif  
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#4

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 3. Jul 2006, 12:20
Hallo,

ich hab mir eine Funktion geschrieben, die mir den DC gleich richtig anpasst:
Delphi-Quellcode:
function TMyForm.GetWindowDC: HDC;
var
  DC: HDC;
  RC, RW: TRect;
begin
  DC := Windows.GetWindowDC(Handle);
  Windows.GetClientRect(Handle, RC);
  GetWindowRect(Handle, RW);
  MapWindowPoints(0, Handle, RW, 2);
  OffsetRect(RC, -RW.Left, -RW.Top);
  ExcludeClipRect(DC, RC.Left, RC.Top, RC.Right, RC.Bottom);
  Result := DC;
end;
Vielleicht klappt's ja damit.

Gruß
xaromz
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#5

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 3. Jul 2006, 13:14
@turboPASCAL: Wenn das ganze wie in deinem Bild aussehen soll wäre es doch das einfachste den BorderStyle auf bsNone zu setzen. Anschließend kannst du im OnPaint des Forms den Rahmen zeischnen.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#6

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 3. Jul 2006, 13:21
Jupp, dachte ich auch erst. Als ich dann aber ein Control auf alClient setzen wollte musste
ich die Idee wieder verwerfen.
Eine Eigene Kompon. zu basteln die einen Border zeichnet, ala Panel, möchte ich nicht.
Das währe zu einfach.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#7

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 4. Jul 2006, 23:03
Gestatten ? Ein "Push", "pop", "blupp" or "fsStayOnTop".
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#8

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 5. Jul 2006, 13:33
Zitat:
Jupp, dachte ich auch erst. Als ich dann aber ein Control auf alClient setzen wollte musste
ich die Idee wieder verwerfen.
Dafür gibt es bei TForm die eigenschaft BorderWidth oder so ähnlich.
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#9

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 6. Jul 2006, 01:35
Zitat von igel457:
Dafür gibt es bei TForm die eigenschaft BorderWidth oder so ähnlich.
Schon, aber in der nonVCL gibt es die dann nischt mehr.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#10

Re: WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so rech

  Alt 6. Jul 2006, 11:50
Moin Matti,

schau Dir doch mal die Funktion MSDN-Library durchsuchenGetDCEx an.
Bei mir bringt die im WMNCPAINT-Event zwar immer 0 zurück (obwohl die übergebenen Werte eigentlich stimmen sollten), aber vielleicht funktioniert es ja bei Dir.
(GetLastError meldet mir auch "Der Vorgang wurde erfolgreich durchgeführt" )

Mein Aufruf:
hdc := GetDCEx(self.Handle,msg.RGN,DCX_WINDOW or DCX_INTERSECTRGN);
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz