radioGroup - border

[semo]

wie bekomme ich eine radiogroup OHNE border hin?
:gruebel:

[Alter Mann]

Hi computer-glossar.de

indem Du eine Compunete davon ableitest und die "Paint"-Procedure anpasst; leider ist
der Quellcode dafür notwendig;-. Oder Du machst Dir deine eigenen Gedanken darüber.

[semo]

Zitat:

ndem Du eine Compunete davon ableitest und die "Paint"-Procedure anpasst;

schon mal in die verfügbaren proceduren reingeschaut? da gibt es keine "paint"-Methode für diese Komponente :gruebel:

[Sharky]

Zitat:

Zitat von computer-glossar.de

...schon mal in die verfügbaren proceduren reingeschaut? da gibt es keine "paint"-Methode für diese Komponente :gruebel:

Der "Alte Mann" meinte ja auch das Du dir eine eigen Komonente ableiten solltest. TRadioGroup bassiert auf TCustomGroupBox und diese besitzt eine Paint-Methode.

[Nikolas]

Vorschlag: nimm Panels und setze Bevelouter auf none.

und ein bisschen Freundlichkeit schadet nie.

[semo]

wenn ich unfreundlich rübergekommen sein sollte: sorry :wink: :cheers:
das mit dem panel habe ich auch schon gemacht.... aber ist ja nicht das nonPlusUltra mh?

[Nikolas]

warum denn nicht? Damit kannst du deine Radiogroups einteilen, es gibt keinen Rand und mit nem Label drüber ist's gut.

[semo]

du meinst radioButtons anstatt RadioGoups?

naja.. ich erzeug die dynamisch zur laufzeit... die caption der RadioButtons ist unterschiedlich breit...

soll ne multipleChoice-Auswahl werden :wink:

wie ist das gemeint:

Zitat:

und mit nem Label drüber ist's gut.

???

ich packe doch die radiobuttons auf das Panel?!

http://www.computer-glossar.de/uploa...tiplChoice.jpg

[Nikolas]

Ja, ich mein Buttons

so mein ich das im Endeffekt:

[semo]

hab ich ja gemacht siehe screenshot :wink:

[Nikolas]

Wie steht's mit Bevelinner?

[semo]

ps: bei meinem screenshot habe ich das bevelouter noch ausgeklammert gehabt......

sieht dann folgendermaßen aus:

http://www.computer-glossar.de/uploads/1.jpg

passt also soweit :wink:

[Ratte]

Du könntest auch den Rahmen einer Radiogroup mit Panels überdecken. Geht je nach dem auch.

Ratte

[semo]

naja... auch ein wenig unprofessionell die lösung oder? bin mit dem panel und den radioButtons darauf ganz zuffrieden :thuimb:

[Stevie]

Zitat:

Zitat von computer-glossar.de

naja... auch ein wenig unprofessionell die lösung oder? bin mit dem panel und den radioButtons darauf ganz zuffrieden :thuimb:

Ich hatte gerade Langeweile! :wink:

Delphi-Quellcode:

unit RadioGroupEx;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls, ExtCtrls;

type
  TRadioGroupEx = class(TRadioGroup)
  private
    FBevelInner: TPanelBevel;
    FBevelOuter: TPanelBevel;
  protected
    procedure Paint; override;
    procedure SetBevelInner(Value: TPanelBevel);
    procedure SetBevelOuter(Value: TPanelBevel);
  published
    property BevelInner: TPanelBevel read FBevelInner write SetBevelInner default bvNone;
    property BevelOuter: TPanelBevel read FBevelOuter write SetBevelOuter default bvRaised;
  end;

procedure Register;

implementation

uses
  Graphics;

procedure TRadioGroupEx.Paint;
var
  H: Integer;
  R: TRect;
  Flags: Longint;
  TopColor, BottomColor: TColor;

  procedure AdjustColors(Bevel: TPanelBevel);
  begin
    TopColor := clBtnHighlight;
    if Bevel = bvLowered then TopColor := clBtnShadow;
    BottomColor := clBtnShadow;
    if Bevel = bvLowered then BottomColor := clBtnHighlight;
  end;

begin
  with Canvas do
  begin
    Font := Self.Font;
    H := TextHeight('0');
    R := Rect(0, H div 2 - 1, Width, Height);

    if BevelOuter <> bvNone then
    begin
      AdjustColors(BevelOuter);
      Frame3D(Canvas, R, TopColor, BottomColor, BevelWidth);
    end;
    Frame3D(Canvas, R, Color, Color, BorderWidth);
    if BevelInner <> bvNone then
    begin
      AdjustColors(BevelInner);
      Frame3D(Canvas, R, TopColor, BottomColor, BevelWidth);
    end;
(*
    if Ctl3D then
    begin
      Inc(R.Left);
      Inc(R.Top);
      Brush.Color := clBtnHighlight;
      FrameRect(R);
      OffsetRect(R, -1, -1);
      Brush.Color := clBtnShadow;
    end else
      Brush.Color := clWindowFrame;
    FrameRect(R);
*)
    if Text <> '' then
    begin
      if not UseRightToLeftAlignment then
        R := Rect(8, 0, 0, H)
      else                         
        R := Rect(R.Right - Canvas.TextWidth(Text) - 8, 0, 0, H);
      Flags := DrawTextBiDiModeFlags(DT_SINGLELINE);
      DrawText(Handle, PChar(Text), Length(Text), R, Flags or DT_CALCRECT);
      Brush.Color := Color;
      DrawText(Handle, PChar(Text), Length(Text), R, Flags);
    end;
  end;
end;

procedure Register;
begin
  RegisterComponents('Beispiele', [TRadioGroupEx]);
end;

procedure TRadioGroupEx.SetBevelInner(Value: TPanelBevel);
begin
  FBevelInner := Value;
  Realign;
  Invalidate;
end;

procedure TRadioGroupEx.SetBevelOuter(Value: TPanelBevel);
begin
  FBevelOuter := Value;
  Realign;
  Invalidate;
end;

end.