Drehung um 90 Grad

[Chris211183]

Hallo,

ich habe hier ein rectangle vom Typ TRect und darauf ist ein Frame,
nun will ich das von der Verticalen in die Horizontale drehen, dabei sollen beide (Rect und Frame) gedreht werden

hier ein Auszug

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 :=  (Width div 4) div 2;
                  W :=  (Height 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;

       else;
    end;

end;

wie sag ich ihm das, dass er sich um 90 Grad dreht ?

[baumina]

Ganz ehrlich : Ich kapiers bis heute noch nicht was du da so wild rumrechnest mit div 4 und div 2 und was sonst noch so.

[Chris211183]

[stahli]

Zeig doch mal einen Screenshot von Deinem Formular und dann eine Skizze wie es Deine Komponente "gedreht" aussehen soll.

Ist da auch Text drauf oder ein Bild oder andere Controls, die mit gedreht werden sollen oder so?

[baumina]

Man muss zu dem Thema hier ein wenig diese Vorgeschichte kennen: http://www.delphipraxis.net/177088-b...ml#post1233024

[Chris211183]

kennt er !!!

[Chris211183]

So hier ein Screenshot, habs rot eingefärb

[stahli]

Und wie sieht es gedreht aus?
Und wie soll es gedreht aussehen?

Formuliere Deine Fragen mal präziser, sonst wird das Helfen schwerer und Du bekommst weniger Antworten... (nur so als Tipp )

[Chris211183]

es soll genauso aussehen, bloß halt "liegend" einmal umkippen

[DeddyH]

Du kannst Grafiken auch an Deinen Beitrag anhängen, dann muss man nicht erst eine PDF herunterladen. Das horizontal/vertikal soll sich nur auf den Rahmen beziehen, habe ich das richtig verstanden?