summaryrefslogtreecommitdiff
path: root/src/gui/fpg_combobox.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui/fpg_combobox.pas')
-rw-r--r--src/gui/fpg_combobox.pas9
1 files changed, 7 insertions, 2 deletions
diff --git a/src/gui/fpg_combobox.pas b/src/gui/fpg_combobox.pas
index 1153e94c..5cbccc10 100644
--- a/src/gui/fpg_combobox.pas
+++ b/src/gui/fpg_combobox.pas
@@ -584,14 +584,19 @@ begin
end;
procedure TfpgBaseStaticCombo.DoDrawText(const ARect: TfpgRect);
+var
+ flags: TFTextFlags;
begin
// Draw select item's text
+ flags := [txtLeft, txtVCenter];
+ if not Enabled then
+ flags += [txtDisabled];
if HasText then
- fpgStyle.DrawString(Canvas, FMargin+1, FMargin, Text, Enabled)
+ Canvas.DrawText(ARect, Text, flags)
else
begin
Canvas.SetTextColor(clShadow1);
- fpgStyle.DrawString(Canvas, FMargin+1, FMargin, ExtraHint, Enabled);
+ Canvas.DrawText(ARect, ExtraHint, flags);
end;
end;