Skala an Komponente

[stahli]

Mal ein Tipp:

- erst mal EINE Linie horizontal zeichnen
- dann abhängig von der Ausrichtung horizontal oder vertikal
- dann mehrere Linien

Also heran tasten sozusagen.

Dann kannst Du bei Problemen auch gezielter bzw. genauer nachfragen und wir können besser helfen.

Bei Deinen Fragestellungen wären auch Screenshots sinnvoll, was Du schon hast und Skizzen, was Du brauchst.

[Chris211183]

Okay, im Anhang ein Screenshot, links meine derzeitige Komponente, rechts, wie sie mal aussehen soll...

[stahli]

Also ich versuche es mal:
- Left, Right, Top, Bottom für den Skalenbereich berechnen (optisch vorerst mit Rect zeichnen kontrollieren)
- Abstand festlegen
- Schleife Y von Top bis Bottom mit Abstand durchlaufen
- Linie zeichnen von Left/Y->Right/Y

Wo es klemmt, nochmal nachfragen.
Wenn Du die Sache strukturiert und überlegt angehst, dann sollte das schon klappen...

[Chris211183]

Delphi-Quellcode:

begin
  inherited;
  if (Parent = NIL) or not visible
  then Exit;

  case FKind of

      sbHorizontal : begin
          R := Rect(OffsetUpper,
                   (Height - Barwidth) div 2,
                    Width - OffsetLower,
                    (Height + Barwidth) div 2);
                          if FLabelingStyle = lbsLines
                          then
                             begin
                             Canvas.Pen.Color := clBlack;
                             Canvas.LineTo(OffsetUpper,(Height - Barwidth)div 2);
                             end;
                     end;

so in etwa ?

[stahli]

Das weiß ich nicht. Ich kenne Deine Variablen ja nicht.
Funktioniert es denn?

Noch ein Tipp:
Formatiere Deinen Quelltext konsequent ordentlich. Achte auf Groß- und Kleinschreibung. Benutze Klammern bei logischen Ausdrücken.

Das ist zwar für den Compiler nicht wichtig, aber wenn man Deinen Quelltext verstehen will macht das viel aus.

[zeras]

Wenn ich das so lese, dann willst du vielleicht Graphen darstellen???
Dazu benutze ich die Chart Kompos von TMS http://www.tmssoftware.com/site/advchart.asp. Die kosten zwar Geld, aber so kann man sich beim Programmieren auf die "wichtigen" Dinge konzentrieren und nicht das Rad neu erfinden, was andere schon erfunden haben.
Aber vielleicht willst du auch was ganz anderes darstellen, dann nützen dir die Kompos nichts.

[Chris211183]

ne will das ja in meiner Komponente eigenständig haben !

Delphi-Quellcode:

constructor THixBarGraph.Create(AOwner: TComponent);
 ValueMin := 0,0;
 ValueMax := 100,0



procedure THixBarGraph.Paint;
var
   R: TRect;
   Value, ValueMin, ValueMax : Double;
begin
  inherited;
  if (Parent = NIL) or not visible
  then Exit;

  case FKind of

      sbHorizontal : begin
          R := Rect(OffsetUpper,
                   (Height - Barwidth) div 2,
                    Width - OffsetLower,
                    (Height + Barwidth) div 2);
                          if FLabelingStyle = lbsLines
                             then
                                 begin
                                    Canvas.Brush.Color := FColor;
                                    Canvas.FillRect(Rect(0, 0, Width, Height));
                                    Canvas.Brush.Color := FBarColor;
                                    Canvas.FillRect(R);
                                    Frame3D(Canvas, R, clBtnShadow, clBtnHighlight, 1);
                                    Canvas.Pen.Color := clBlack;
                                    Canvas.LineTo();
                                 end;

ich komm nicht weiter, malt mir nix, egal was ich für Koordinaten setzt....