Fix für PngBitBtn von thany.org

[DeddyH]

Für all diejenigen, die die PngComponents von thany.org verwenden und sich gewundert haben, dass die Caption bei disabled Buttons nicht ausgegraut wird, hier die Lösung. In der PngBitBtn.pas muss die Methode TPngBitBtn.CNDrawItem etwas erweitert werden. Im Original heißt es ab Zeile 209

Zitat:

Delphi-Quellcode:

//Draw the text
if Length(Caption) > 0
then begin
     PaintRect := Rect(TextPos.X, TextPos.Y, Width, Height);
     FCanvas.Brush.Style := bsClear;
     DrawText(FCanvas.Handle, PChar(Caption), -1, PaintRect, DrawTextBiDiModeFlags(0) or DT_TOP or DT_LEFT or DT_SINGLELINE);
     end;

Dies wird zu

Delphi-Quellcode:

//Draw the text
if Length(Caption) > 0
then begin
     PaintRect := Rect(TextPos.X, TextPos.Y, Width, Height);
     FCanvas.Brush.Style := bsClear;

     //Caption ausgrauen, wenn disabled
     if not Enabled then
       begin
         OffsetRect(PaintRect, 1, 1);
         FCanvas.Font.Color := clBtnHighlight;
         DrawText(FCanvas.Handle, PChar(Caption), -1, PaintRect, DrawTextBiDiModeFlags(0) or DT_TOP or DT_LEFT or DT_SINGLELINE);
         OffsetRect(PaintRect, -1, -1);
         FCanvas.Font.Color := clBtnShadow;
       end;

     DrawText(FCanvas.Handle, PChar(Caption), -1, PaintRect, DrawTextBiDiModeFlags(0) or DT_TOP or DT_LEFT or DT_SINGLELINE);
     end;

Danach Packages neu kompilieren/installieren... fertig.

[GPRSNerd]

Danke für den Bugfix! Habs gerade ausprobiert und funktioniert jetzt einwandfrei.

<OT> Welche Version von den Components benutzt du? Die Webseite von thany.org ist down und ich habe hier ne Version von emba von 2009-09-26... </OT>

[DeddyH]

Meine Version ist definitiv älter, die kannte noch kein Delphi 2007, weshalb auch die thany.inc noch anzupassen war.

[toms]

www.thany.org ist nicht erreichbar...?

[aurikel_Max]

Zitat von toms:

www.thany.org ist nicht erreichbar...?

Ja.

Zitat von http://downforeveryoneorjustme.com/http://www.thany.org/:

It's not just you! http://www.thany.org looks down from here.

[GPRSNerd]

Zitat von toms:

www.thany.org ist nicht erreichbar...?

Jetzt sag nicht, du kannst die Seite laden...

[GPRSNerd]

Zitat von DeddyH:

Meine Version ist definitiv älter, die kannte noch kein Delphi 2007, weshalb auch die thany.inc noch anzupassen war.

Diese include-Datei ist in der oben referenzierten Version gar nicht mehr enthalten.

[Uwe Raabe]

Danke für den Fix! Ich werde es bei nächster Gelegenheit in die PngComponents einbauen.