AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Skala an Komponente

Ein Thema von Chris211183 · begonnen am 11. Nov 2013 · letzter Beitrag vom 12. Nov 2013
Antwort Antwort
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.358 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Skala an Komponente

  Alt 11. Nov 2013, 20:20
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.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Chris211183

Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
 
Delphi 6 Professional
 
#2

AW: Skala an Komponente

  Alt 12. Nov 2013, 10:46
Okay, im Anhang ein Screenshot, links meine derzeitige Komponente, rechts, wie sie mal aussehen soll...
Angehängte Dateien
Dateityp: pdf BarGrBeide.pdf (27,5 KB, 21x aufgerufen)
Christian
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.358 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Skala an Komponente

  Alt 12. Nov 2013, 11:23
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...
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Chris211183

Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
 
Delphi 6 Professional
 
#4

AW: Skala an Komponente

  Alt 12. Nov 2013, 11:46
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 ?
Christian
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.358 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Skala an Komponente

  Alt 12. Nov 2013, 12:00
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.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.654 Beiträge
 
Delphi 12 Athens
 
#6

AW: Skala an Komponente

  Alt 12. Nov 2013, 12:21
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.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
Chris211183

Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
 
Delphi 6 Professional
 
#7

AW: Skala an Komponente

  Alt 12. Nov 2013, 12:26
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....
Christian
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz