eigene Komponente, graphischer Fehler wenn 2. auf Form gelegt wird.

[alfold]

mh, irgend was hab ich an meiner Komponente Falsch gemacht!
Wenn sie alleine auf der Form ist könnte ich sagen OK.
Sobald ich noch eine dazu lege mh

Ich hänge mal die Komponente mit ran. Vielleicht kann jemand drauf schauen und nen Tipp geben wo evtl der Fehler ist!
Hoffentlich nicht zu viele Fehler, habe zum ersten mal so was erstellt!!!!!

Ich habe keine Kommentare in der Datei

Gruß alfold

[mensch72]

nur vom "drüber schauen" (ohne Test mit Delphi)... mir scheint da zuviel "Repaint" drin!

1. Repaint im Create ist schon bei Forms doof, da kann es ganz raus

2. es wird meist geprüft ob sich was verändert hat und nur dann etwas neu gesetzt, gezeichnet mit RePaint wird dann aber immer... da würde ich das Repaint "in" die Bedingung bringen und nur Aufrufen, wenn sich was verändert hat

3. ... jetzt is 3. Advent und daher keine echte Delphi-PC-Time

[Sir Rufo]

Brauchst du den Fokus auf dem Control?

Wenn nicht, dann leite von TGraphicControl ab.

[alfold]

Zitat von mensch72:

... da würde ich das Repaint "in" die Bedingung bringen

Hab ich jetzt gemacht.

Zitat von Sir Rufo:

Brauchst du den Fokus auf dem Control?
Wenn nicht, dann leite von TGraphicControl ab.

Nein brauch kein Fokus. Geändert auf TGraphicControl.

Dadurch hat sich schon einiges geändert.
Nur die Farben werden beim 2. drauf legen der Komponente anders dargestellt und weiß nicht warum?

Gruß alfold

[alfold]

mh
Nach langem probieren neu schreiben usw.
hab ich jetzt lediglich im Constructor mal was gesetzt, jetzt funct es!

Delphi-Quellcode:

 
    if fOrientation = sHorizontal then
           fSecondPos:= ((Width - fBorderSize) * fBarSecondPos) div fMax
        else
           fSecondPos:= ((Height - fBorderSize) * fBarSecondPos) div fMax;
     if fOrientation = sHorizontal then
           fFirstPos:= (((Width - fBorderSize) * fBarFirstPos) div fMax)
        else
           fFirstPos:= (((Height - fBorderSize) * fBarFirstPos) div fMax);
      
      if fOrientation = sHorizontal then
           fHsavePos:= ((Width - fBorderSize) * fSavePos) div fMax
        else
           fHsavePos:= ((Height - fBorderSize) * fSavePos) div fMax;
     if fOrientation = sHorizontal then
           fHPeakPos:= (((Width - fBorderSize) * fPeakPos) div fMax)
        else
           fHPeakPos:= (((Height - fBorderSize) * fPeakPos) div fMax);

vermute, die Variablen müssen definiert sein!

THX
Gruß alfold