Skala an Komponente

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

[baumina]

Irgendwie habe ich den Eindruck, dass wir dir deine komplette Komponente schreiben :-D

[Chris211183]

irgendwie habe ih den Eindruck, dass du ein bissl unentspannt bist :witch:

wenn sie mal fertig sein sollte, hau ich die auch hier rein, damit andere Anfänger dass dann haben !
Wie soll ich mit nen paar Wochen, ohne Hilfe ne komplette Komponente sonst schaffen ?

[stahli]

Das Problem ist, dass Du die Sache falsch (zu unstrukturiert und zu unüberlegt) angehst und keine konkreten Fragen stellst.

So wirst Du wenig Hilfe erhalten und schwer zum Ziel komme.
Baumina wird das ähnlich gemeint haben und bisher habe ich sie eigentlich hier immer entspannt erlebt. ;-)