Index: JvColorCombo.pas
===================================================================
--- JvColorCombo.pas	(revision 12048)
+++ JvColorCombo.pas	(working copy)
@@ -218,6 +218,7 @@
     FOnDrawPreviewEvent: TJvDrawPreviewEvent;
     FFontSizes:TStrings;
     FEnumeratorDC:HDC;
+    FSampleText: string;
     procedure SetUseImages(Value: Boolean);
     procedure SetDevice(Value: TFontDialogDevice);
     procedure SetOptions(Value: TJvFontComboOptions);
@@ -234,6 +235,8 @@
     procedure SetShowMRU(const Value: Boolean);
     procedure SetMaxMRUCount(const Value: Integer);
     function GetFontSizes: TStrings;
+    procedure SetSampleText(const Value: string);
+    function GetSampleTextStored: Boolean;
   protected
     procedure FontChanged; override;
     procedure Loaded; override;
@@ -314,6 +317,7 @@
     property OnKeyPress;
     property OnKeyUp;
     property OnStartDrag;
+    property SampleText: string read FSampleText write SetSampleText stored GetSampleTextStored;
     property OnDrawPreviewEvent: TJvDrawPreviewEvent read FOnDrawPreviewEvent write FOnDrawPreviewEvent;
   end;
 
@@ -1015,6 +1019,7 @@
   FTrueTypeBmp := LoadInternalBitmap('JvFontComboBoxTTF');
   FFixBmp := LoadInternalBitmap('JvFontComboBoxFIX');
   FDeviceBmp := LoadInternalBitmap('JvFontComboBoxPRN');
+  FSampleText := 'AbCdEfGhIj';
   FHiliteColor := clHighlight;
   FHiliteText := clHighlightText;
   FDevice := fdScreen;
@@ -1206,7 +1211,7 @@
     begin
       Inc(AWidth, TextWidth(Items[Index]) + 36);
       Canvas.Font.Name := Items[Index];
-      S := 'AbCdEfGhIj';
+      S := FSampleText;
       Inc(AWidth, TextWidth(S));
       if DoDrawPreview(Items[Index], S, AWidth) then
       begin
@@ -1338,6 +1343,11 @@
   Reset;
 end;
 
+function TJvFontComboBox.GetSampleTextStored: Boolean;
+begin
+  result := FSampleText <> 'AbCdEfGhIj';
+end;
+
 function TJvFontComboBox.GetSorted: Boolean;
 begin
   Result := inherited Sorted;
@@ -1412,6 +1422,15 @@
   SendMessage(Handle, CB_SETDROPPEDWIDTH, Value, 0);
 end;
 
+procedure TJvFontComboBox.SetSampleText(const Value: string);
+begin
+  if value <> FSampleText then
+  begin
+    FSampleText := value;
+    Invalidate;
+  end;
+end;
+
 procedure TJvFontComboBox.SetShowMRU(const Value: Boolean);
 begin
   if FShowMRU <> Value then