Drehung um 90 Grad

[Chris211183]

wie meinst Du das, im Prinzip soll das Ding eine Messanzeige sein, was ich später einmal horizontal oder vertikal in meine Form packen möchte, die Abmaße sollen immer gleich bleiben...
Theoretisch würde es ja reichen, wenn ich die koordinaten der Horizontalen tausche, so müsste es vertikal angezeigt werden, machter aber nicht...

[DeddyH]

Nimm Dir mal ein Blatt Papier in DIN A4. Da malst Du ein Rechteck drauf mit ca. 1/4 Blattbreite und voller Blatthöhe und schneidest es aus. Bekommst Du diesen Ausschnitt nun komplett auf ein anderes A4-Blatt, wenn Du ihn um 90 Grad drehst?

[Chris211183]

nein

[DeddyH]

Und da liegt eben das Problem, sobald die Komponente nicht quadratisch ist. Soll gestaucht, skaliert oder abgeschnitten werden? Diese Frage musst Du Dir zuerst selbst beantworten, bevor man Dir adäquat helfen kann.

[Chris211183]

ok, ich hab das mal nachgemalt

soll so dann aussehen

einmal Vertikal und einmal horizontal

[Chris211183]

die Abmaße sollen sich bei der Drehung nicht verändern

[stahli]

Vielleicht liegt ein grundsätzliches Missverständnis vor?

Du kannst eine Komponente (z.B. ein Memo oder halt auch Deine) nicht einfach drehen.
Du kannst eine Komponente nur sehr hoch und schmal oder sehr breit und flach zeichnen und den Inhalt anpassen. Somit dreht sie sich optisch, tatsächlich ändert sie aber nur die höhe und Breite und zeichnet den Inhalt neu.

Dann kannst Du so etwas machen wie

Delphi-Quellcode:

if Height >= Width then
  RahmenImHochformatZeichnen
else
  RahmenImQuerformatZeichnen;

Hilf das irgendwie?

[Chris211183]

ja glaub auch,

ich versuchs mal

[Chris211183]

geht alles nicht..........

[CarlAshnikov]

Zitat von Chris211183:

geht alles nicht..........

Ich liebe solche pauschalen Aussagen...

Ich aber vorhin etwas herumprokrastiniert:

Delphi-Quellcode:

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

  Canvas.Brush.Color := clRed;
  Canvas.FillRect(Rect(0, 0, Width, Height));
  if Width < height then
  begin
    lAbstand := min(height div 2, FAbstand);
    H := (Height) div 2;
    W := (Width div 4) div 2;
    R := Rect((Width div 2) - W, lAbstand,
    (Width div 2) + W, Height - lAbstand);
    Frame3D(Canvas, R, clBtnShadow ,clBtnHighlight , 1);
  end
  else
  begin
    lAbstand := min(Width div 2, FAbstand);
    H := (Width div 2);
    W := (Height div 4) div 2;
    R := Rect(lAbstand, (Height div 2) - W,
     Width - lAbstand, (Height div 2) + W);
    Frame3D(Canvas, R, clBtnShadow ,clBtnHighlight , 1);
  end;
end;

Einfach die gewünschte Höhe und Breite von dem Bargraph einstellen, dann wird das automatisch gezeichnet. Müsste natürlich noch aufgeräumt werden. Fabstand verändert die Länge des Balkens in der Mitte.