Einzelnen Beitrag anzeigen

alfold

Registriert seit: 29. Jun 2010
Ort: Neustrelitz
393 Beiträge
 
Delphi 7 Enterprise
 
#5

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

  Alt 17. Dez 2015, 14:10
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
  Mit Zitat antworten Zitat