Bevel auf einem Rechteck

[Chris211183]

Hi, wieder ich :pale::stupid:

mein "Balken" dreht sich nicht...

Delphi-Quellcode:

Private
   FKind : TscrollBarKind;
   procedure SetKind(const Value: TscrollbarKind);

published
   Property Kind : TScrollbarKind read FKind write SetKind;

…

procedure THixBarGraph.SetKind(const Value: TScrollbarKind);
begin
   if FKind <> Value then
  begin
     FKind := Value;
     Invalidate;
  end;
end;

ich kann zwar zwischen horizontal und vertical wählen, aber es passiert nichts...

[DeddyH]

Was soll denn passieren?

[Chris211183]

einfach nur die Ausrichtung, von Horizontaler Ebene auf vertikale (er soll sich drehen)

[baumina]

Zeig uns deinen Code, bei dem Du Kind bzw. FKind benutzt, um den Balken gedreht anzuzeigen, denn von selber weiß der Balken ja nix mit Kind bzw. FKind. anzufangen.

[bcvs]

Wie wertest du denn die Property Kind aus? Darauf müsstest du ja im OnPaint entsprechend reagieren.

Edit: sorry baumina war schneller

[DeddyH]

Ja eben, nur Neuzeichnen bringt ja nichts, wenn das Feld beim Zeichnen nicht ausgewertet wird.

[Chris211183]

meint Ihr das so ?

Delphi-Quellcode:

procedure THixBarGraph.Paint;
var
   R: TRect;
   H, W: Integer;
begin
  inherited paint;
  if (Parent = NIL) or not visible
  then Exit;

  Canvas.Brush.Color := FColor;
  Canvas.FillRect(Rect(0, 0, Width, Height));
  case FKind of

sbVertical :   begin
                  H := (Height div 2);
                  W := (Width div 4) div 2;
                  R := Rect((Width div 2) - W, (Height div 2) - H,
                  (Width div 2) + W, (Height div 2) + H);
                  Frame3D(Canvas, R, clBtnShadow ,clBtnHighlight , 1);
               end;

sbHorizontal : begin
                  H := (.......)
                  W :=
                  R :=
                  Frame3D(Canvas, R, clBtnShadow ,clBtnHighlight , 1);
               end;

       else;
    end;

end;

[DeddyH]

So in der Art, ja.

[Chris211183]

Okay, ich mach denn mal...:wall::coder::glaskugel:

[Chris211183]

:stupid::stupid::stupid::stupid:

Siehe da, es klappt :roll:

Sorry Leute, aber bin erst seit 3 Wochen am Delphi :pale:






:thumb::thumb::thumb:VIELEN DANK, EUCH ALLEN !!!:thumb::thumb::thumb:

:hi::hi::hi::hi::hi::hi::hi::hi::hi::hi: