jvcllaz: Add TJvOfficeColorButton. Some cosmetic changes, less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7006 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/run/JvCtrls/jvgroupheader.pas

@@ -270,6 +270,13 @@ begin
   ts := Canvas.TextStyle;
   ts.ShowPrefix := false;
   ts.RightToLeft := IsRightToLeft;
+  ts.ExpandTabs := Flags and DT_EXPANDTABS <> 0;
+  ts.Wordbreak := Flags and DT_WORDBREAK <> 0;
+  ts.SingleLine := not ts.WordBreak;
+  ts.EndEllipsis := Flags and DT_END_ELLIPSIS <> 0;
+  ts.Alignment := taLeftJustify;
+  if Flags and DT_RIGHT <> 0 then ts.Alignment := taRightJustify;
+  if Flags and DT_CENTER <> 0 then ts.Alignment := taCenter;
   Canvas.Font := Font;
   if not Enabled then
   begin

components/jvcllaz/run/JvCtrls/jvhtcontrols.pas

@@ -341,8 +341,8 @@ type
     procedure SetSuperSubScriptRatio(const Value: Double);
   protected
     procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
-      WithThemeSpace: Boolean); override;
-    procedure CalculateSize(MaxWidth: integer; var NeededWidth, NeededHeight: integer);
+      {%H-}WithThemeSpace: Boolean); override;
+    procedure CalculateSize(MaxWidth: integer; out NeededWidth, NeededHeight: integer);
     function ComputeLayoutRect: TRect;
     procedure FontChanged(Sender: TObject); override;
     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
@@ -895,7 +895,7 @@ begin
 end;
 
 procedure TJvCustomHTLabel.CalculateSize(MaxWidth: integer;
-  var NeededWidth, NeededHeight: integer);
+  out NeededWidth, NeededHeight: integer);
 begin
   Canvas.Handle;
   Canvas.Font.Assign(Font);

components/jvcllaz/run/JvCtrls/jvmovablebevel.pas

@@ -126,6 +126,7 @@ procedure TJvMovableBevel.DoMove(Shift: TShiftState; DeltaX, DeltaY: Integer);
 begin
   // Must work on it in order to make expand and shrink the way coreldraw does when
   // shift and ctrl keys are pressed.
+
   {  If ssCtrl in shift then
      begin
       if Abs(FStartPoint.X - Left) < Abs(FStartPoint.Y - Top) then