anchor.diff:   Author:    elmuerte
    Copyright: 2003 Michiel 'El Muerte' Hendriks
    Purpose:   General function/utils that require Forms
  - $Id: unit_utils.pas,v 1.4 2003-11-04 19:35:28 elmuerte Exp $
  + $Id: unit_utils.pas,v 1.5 2003-12-15 20:05:54 elmuerte Exp $
   -----------------------------------------------------------------------------}
   {
       UnCodeX - UnrealScript source browser & documenter
  
positive.code:     Pen.Color   := clBtnShadow;
      Pen.Width   := 1;
      Rectangle(R.Top, R.Left, R.Left+18, R.Bottom);
      Canvas.Font.Name := 'Marlett';
      Canvas.Font.Style := [fsBold];
      Canvas.Font.Color := clWindowText;
      R2 := Rect(R.Left+1, R.Top+2, R.Left+18, R.Bottom-2);
  
negative.code:     DrawText(Canvas.Handle, PChar(TmpCaption), 1, R2, DT_LEFT or DT_NOPREFIX or DT_VCENTER or DT_CENTER or DrawTextBiDiModeFlagsReadingOnly);
    end;
  
    Canvas.Font.Style := [fsBold];
    Canvas.Font.Color := clWindowText;
    Canvas.Brush.Color := Color;
  