[JVCL-Checkins] SF.net SVN: jvcl:[12206] trunk/jvcl/run/JvDynControlEngineDevExpCx.pas

[<jfu...@us...>]

Revision: 12206
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12206&view=rev
Author:   jfudickar
Date:     2009-02-09 21:53:00 +0000 (Mon, 09 Feb 2009)

Log Message:
-----------
TJvDynControlCxRTTIInspectorControl now supports the TJvDynControlInspectorControlOnTranslatePropertyNameEvent 

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

Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas
===================================================================
--- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas	2009-02-08 20:34:28 UTC (rev 12205)
+++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas	2009-02-09 21:53:00 UTC (rev 12206)
@@ -46,9 +46,9 @@
   cxLookAndFeels, cxMaskEdit, cxLabel, cxButtons, cxListBox, cxDropDownEdit,
   cxButtonEdit, cxCalendar, cxCheckBox, cxMemo, cxRadioGroup, cxImage, cxTreeView,
   cxEdit, cxCalc, cxSpinEdit, cxTimeEdit, cxCheckListBox, cxGroupBox, cxRichEdit,
-  cxProgressBar, cxPC, cxColorComboBox,
+  cxProgressBar, cxPC, cxColorComboBox, cxGraphics,
   {$IFDEF USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID}
-  cxOi, cxVGrid,
+  cxOi, cxVGrid, cxVGridViewInfo,
   {$ENDIF}
   JvDynControlEngine, JvDynControlEngineIntf;
 
@@ -893,6 +893,8 @@
         string; var Accept: Boolean);
     procedure InspectorOnItemChanged(Sender: TObject; AOldRow: TcxCustomRow;
         AOldCellIndex: Integer);
+    procedure ReplaceOnDrawRowHeader(Sender: TObject; ACanvas: TcxCanvas; APainter:
+        TcxvgPainter; AHeaderViewInfo: TcxCustomRowHeaderInfo; var Done: Boolean);
   protected
     //IJvDynControlRTTIInspectorControl
     function ControlGetOnDisplayProperty:
@@ -3815,6 +3817,7 @@
 begin
   OnFilterProperty := InspectorOnFilterProperty;
   OnItemChanged := InspectorOnItemChanged;
+  OnDrawRowHeader := ReplaceOnDrawRowHeader;
 end;
 
 function TJvDynControlCxRTTIInspectorControl.ControlGetCurrentPropertyName:
@@ -3958,6 +3961,14 @@
     Accept := fOnDisplayProperty(PropertyName) and ControlIsPropertySupported(PropertyName);
 end;
 
+procedure TJvDynControlCxRTTIInspectorControl.ReplaceOnDrawRowHeader(Sender:
+    TObject; ACanvas: TcxCanvas; APainter: TcxvgPainter; AHeaderViewInfo:
+    TcxCustomRowHeaderInfo; var Done: Boolean);
+begin
+  if (AHeaderViewInfo is TcxEditorRowHeaderInfo) and Assigned(fOnTranslatePropertyName)then
+    TcxEditorRowHeaderInfo(AHeaderViewInfo).CaptionsInfo[0].Caption := fOnTranslatePropertyName(TcxEditorRowHeaderInfo(AHeaderViewInfo).CaptionsInfo[0].Caption);
+end;
+
 procedure TJvDynControlCxRTTIInspectorControl.SetControlDividerWidth(const
     Value: Integer);
 begin


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