Drehung um 90 Grad

[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.