Skala an Komponente

[Chris211183]

wow , ja an der Mathematik solls nicht hapern, an der Implementation ehr...

hast Du irgendwie nen Beispiel, wie und wo man das am einfachsten macht ?
wäre es dann besser, anstatt der Case of- Anweisung mit if/Else zu arbeiten ?

[Furtbichler]

Zitat von Chris211183:

wäre es dann besser, anstatt der Case of- Anweisung mit if/Else zu arbeiten ?

Du hast Probleme Erstmal zum laufen bringen. Hübsch kann es dann immer noch werden.

[Chris211183]

ja da hast Du Recht , wie mit den Frauen so´n Quellcode (an alle Feministinnen, es ist ein Spaß !!!)

ne geht einfach nur darum, dass da links Striche dran sein sollen erstmal und immer im gleichen Abstand, (theoretisch is das kein Ding, bloß Praktisch ist der Chris da überfordert, weil ihm da ein paar Jahre Delphi fehlen), der Compiler weißt mich immer wieder darauf hin, dass das kein C++ ist, was ich auch weiß...

erstmal nur Striche am linken rand über lbsLines in der Paint-Methode an BEIDEN sbVertical und sbHorizontal..., ich fang hier bald an zu trinken...

programmieren, macht ganz schnell, verdammt alt

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