AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TCategoryPanelGroup modifizieren

Offene Frage von "cpux86"
Ein Thema von Keks · begonnen am 2. Apr 2011 · letzter Beitrag vom 7. Nov 2019
Antwort Antwort
Seite 2 von 2     12
Keks

Registriert seit: 25. Mai 2005
122 Beiträge
 
#11

AW: TCategoryPanelGroup modifizieren

  Alt 3. Apr 2011, 16:48
Vielen Dank, damit komme ich jetzt zurecht!
Wünsche einen schönen Sonntag!
  Mit Zitat antworten Zitat
Keks

Registriert seit: 25. Mai 2005
122 Beiträge
 
#12

AW: TCategoryPanelGroup modifizieren

  Alt 3. Apr 2011, 21:39
Ich habe jetzt die angesprochenen Punkte (Abstand entfernt, Pfeile selbst gezeichnet) hinbekommen.
Nun wollte ich noch den Rand (die 1px breite, dunkelgraue Linie um die Komponente) der CategoryPanelGroup entfernen. Leider finde ich keinen Anhaltspunkt, wo diese gezeichnet wird. Könnte mir bitte jemand helfen, diese Umrandung zu entfernen?
  Mit Zitat antworten Zitat
Keks

Registriert seit: 25. Mai 2005
122 Beiträge
 
#13

AW: TCategoryPanelGroup modifizieren

  Alt 7. Okt 2017, 22:44
Nun wollte ich noch den Rand (die 1px breite, dunkelgraue Linie um die Komponente) der CategoryPanelGroup entfernen. Leider finde ich keinen Anhaltspunkt, wo diese gezeichnet wird. Könnte mir bitte jemand helfen, diese Umrandung zu entfernen?
Leider habe ich diese Frage auch nach sechs Jahren immer noch. Ich habe mich damals mit dem dunkelgrauen 1px-Rand arrangiert, aber je nach Projekt und UI Design passt dieser einfach nicht. Ich würde diesen gerne entfernen oder umfärben können. Leider finde ich auch jetzt beim besten Willen nicht heraus, wo dieser genau generiert wird und wie ich ihn entsprechend entfernen könnte. Hat vielleicht jetzt jemand eine Idee?
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.195 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#14

AW: TCategoryPanelGroup modifizieren

  Alt 9. Okt 2017, 11:01
Nun wollte ich noch den Rand (die 1px breite, dunkelgraue Linie um die Komponente) der CategoryPanelGroup entfernen. Leider finde ich keinen Anhaltspunkt, wo diese gezeichnet wird. Könnte mir bitte jemand helfen, diese Umrandung zu entfernen?
Leider habe ich diese Frage auch nach sechs Jahren immer noch. Ich habe mich damals mit dem dunkelgrauen 1px-Rand arrangiert, aber je nach Projekt und UI Design passt dieser einfach nicht. Ich würde diesen gerne entfernen oder umfärben können. Leider finde ich auch jetzt beim besten Willen nicht heraus, wo dieser genau generiert wird und wie ich ihn entsprechend entfernen könnte. Hat vielleicht jetzt jemand eine Idee?
Das ist der Window Frame, der wird im Message-Handler für WM_NCPAINT gezeichnet.
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Mit einen kleinen Interceptor kannst du das leicht abstellen:

Delphi-Quellcode:
unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, System.UITypes;

type
  TCategoryPanelGroup = class(Vcl.ExtCtrls.TCategoryPanelGroup)
    procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT;
  end;

  TForm1 = class(TForm)
    CategoryPanelGroup1: TCategoryPanelGroup;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm2 }

procedure TCategoryPanelGroup.WMNCPaint(var Message: TWMNCPaint);
var
  MitHässlichenRand: Boolean;
begin
  MitHässlichenRand := False;
  if MitHässlichenRand then
  begin
    inherited;
  end;
end;

end.
Bevor die Frage kommt: Ja, es reicht wenn du das in eine eigene Unit schiebst und immer nach Vcl.ExtCtrls in der Uses-Klausel aufnimmst.
  Mit Zitat antworten Zitat
Keks

Registriert seit: 25. Mai 2005
122 Beiträge
 
#15

AW: TCategoryPanelGroup modifizieren

  Alt 9. Okt 2017, 12:04
Wow, super! Vielen lieben Dank!!

Und wenn ich eine andere Farbe verwenden möchte (statt ganz ohne Rand), wäre das dann die richtige Möglichkeit oder geht es irgendwie direkter?
Delphi-Quellcode:
procedure TCategoryPanelGroup.WMNCPaint(var Message: TWMNCPaint);
var
  dc: hDc;
  Pen: hPen;
begin
  Message.Result := 1;
  dc := GetWindowDC(Handle);
  Pen := CreatePen(PS_SOLID, 1, clRed);
  SelectObject(dc, Pen);
  Rectangle(dc, 0, 0, Width, Height);
  DeleteObject(Pen);
  ReleaseDC(Handle, dc);
end;
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.195 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#16

AW: TCategoryPanelGroup modifizieren

  Alt 9. Okt 2017, 13:05
Wow, super! Vielen lieben Dank!!

Und wenn ich eine andere Farbe verwenden möchte (statt ganz ohne Rand), wäre das dann die richtige Möglichkeit oder geht es irgendwie direkter?
Delphi-Quellcode:
procedure TCategoryPanelGroup.WMNCPaint(var Message: TWMNCPaint);
var
  dc: hDc;
  Pen: hPen;
begin
  Message.Result := 1;
  dc := GetWindowDC(Handle);
  Pen := CreatePen(PS_SOLID, 1, clRed);
  SelectObject(dc, Pen);
  Rectangle(dc, 0, 0, Width, Height);
  DeleteObject(Pen);
  ReleaseDC(Handle, dc);
end;
Das ist schon ok so.
Alternativ kannst du auch ein TCanvas erzeugen und dessen Handle das DC zuweisen.
Aber das ist Geschmackssache.
  Mit Zitat antworten Zitat
cpux86

Registriert seit: 24. Jun 2008
7 Beiträge
 
#17

AW: TCategoryPanelGroup modifizieren

  Alt 7. Nov 2019, 19:54
#### Moderatoren, Bitte diesen Beitrag löschen! Doppelpost! ######

Geändert von cpux86 ( 7. Nov 2019 um 20:38 Uhr)
  Mit Zitat antworten Zitat
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 04:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf