[JVCL-Checkins] SF.net SVN: jvcl:[12766] trunk/jvcl/run/JvArrowButton.pas

[<ah...@us...>]

Revision: 12766
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12766&view=rev
Author:   ahuser
Date:     2010-05-14 17:38:51 +0000 (Fri, 14 May 2010)

Log Message:
-----------
Fixed compile errors

Modified Paths:
--------------
    trunk/jvcl/run/JvArrowButton.pas

Modified: trunk/jvcl/run/JvArrowButton.pas
===================================================================
--- trunk/jvcl/run/JvArrowButton.pas	2010-05-14 08:27:05 UTC (rev 12765)
+++ trunk/jvcl/run/JvArrowButton.pas	2010-05-14 17:38:51 UTC (rev 12766)
@@ -86,6 +86,8 @@
     procedure CMSysColorChange(var Msg: TMessage); message CM_SYSCOLORCHANGE;
     procedure SetAlignment(const Value: TAlignment);
     procedure SetVerticalAlignment(const Value: TVerticalAlignment);
+    procedure SetFlatArrowColor(const Value: TColor);
+    procedure SetFlatArrowDisabledColor(const Value: TColor);
   protected
     FState: TButtonState;
     function GetPalette: HPALETTE; override;
@@ -1187,6 +1189,24 @@
   end;
 end;
 
+procedure TJvArrowButton.SetFlatArrowColor(const Value: TColor);
+begin
+  if Value <> FFlatArrowColor then
+  begin
+    FFlatArrowColor := Value;
+    Invalidate;
+  end;
+end;
+
+procedure TJvArrowButton.SetFlatArrowDisabledColor(const Value: TColor);
+begin
+  if Value <> FFlatArrowDisabledColor then
+  begin
+    FFlatArrowDisabledColor := Value;
+    Invalidate;
+  end;
+end;
+
 procedure TJvArrowButton.SetGroupIndex(Value: Integer);
 begin
   if FGroupIndex <> Value then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.