summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2013-12-17 22:11:28 +0000
committerGraeme Geldenhuys <graemeg@gmail.com>2013-12-17 22:11:28 +0000
commite487076d82b35e33264bae5d8329316c994464a2 (patch)
treecc3b0abd2fae3f261a7e551597f051fef1f6d021 /src
parent1d50cfd4b3808b805443c9b59c6260a29ce6519f (diff)
downloadfpGUI-e487076d82b35e33264bae5d8329316c994464a2.tar.xz
editcombo: Implements painting a ReadOnly state
Diffstat (limited to 'src')
-rw-r--r--src/gui/fpg_editcombo.pas7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas
index 8236b7d5..1aaf4289 100644
--- a/src/gui/fpg_editcombo.pas
+++ b/src/gui/fpg_editcombo.pas
@@ -780,7 +780,12 @@ begin
Canvas.SetClipRect(r);
if Enabled then
- Canvas.SetColor(FBackgroundColor)
+ begin
+ if ReadOnly then
+ Canvas.SetColor(clWindowBackground)
+ else
+ Canvas.SetColor(FBackgroundColor);
+ end
else
Canvas.SetColor(clWindowBackground);