diff --git a/ide/lazbuild.lpi b/ide/lazbuild.lpi index 0edb6db9c4..7c6e2a9a60 100644 --- a/ide/lazbuild.lpi +++ b/ide/lazbuild.lpi @@ -1,12 +1,12 @@ - + - + @@ -17,16 +17,16 @@ - - + + - + - + @@ -49,14 +49,13 @@ - - + - - - + + + diff --git a/lcl/include/customlabel.inc b/lcl/include/customlabel.inc index 6d10027a0b..ad4fd47d03 100644 --- a/lcl/include/customlabel.inc +++ b/lcl/include/customlabel.inc @@ -403,6 +403,7 @@ var R : TRect; TextLeft, TextTop: integer; LabelText: string; + OldFontColor: TColor; begin R := Rect(0,0,Width,Height); with Canvas do @@ -456,13 +457,15 @@ begin DoMeasureTextPosition(TextTop, TextLeft); //debugln('TCustomLabel.Paint ',dbgs(Alignment=tacenter),' ',dbgs(Layout=tlCenter),' ',dbgs(TextLeft),' TextTop=',dbgs(TextTop),' ',dbgs(R)); LabelText := GetLabelText; + OldFontColor := Font.Color; if not Enabled then begin Font.Color := clBtnHighlight; TextRect(R, TextLeft + 1, TextTop + 1, LabelText, TR); - Font.color := clBtnShadow; + Font.Color := clBtnShadow; end; - TextRect(R, TextLeft, TextTop, LabelText, TR) + TextRect(R, TextLeft, TextTop, LabelText, TR); + Font.Color := OldFontColor; end; end;