*** JvUnicodeCanvas.pas.orig	Sat Jul 24 22:42:27 2004
--- JvUnicodeCanvas.pas	Wed Jul 28 17:38:10 2004
***************
*** 90,96 ****
    W: Integer;
  begin
    Changing;
!   W := TextWidth(Text);
    if CanvasOrientation = coRightToLeft then
      Inc(X, W + 1);
    Windows.ExtTextOutW(Handle, X, Y, TextFlags, nil, PWideChar(Text), Length(Text), nil);
--- 90,96 ----
    W: Integer;
  begin
    Changing;
!   W := TextWidthW(Text);
    if CanvasOrientation = coRightToLeft then
      Inc(X, W + 1);
    Windows.ExtTextOutW(Handle, X, Y, TextFlags, nil, PWideChar(Text), Length(Text), nil);
***************
*** 114,125 ****
  
  function TJvUnicodeCanvas.TextWidthW(const Text: WideString): Integer;
  begin
!   Result := TextExtent(Text).cx;
  end;
  
  function TJvUnicodeCanvas.TextHeightW(const Text: WideString): Integer;
  begin
!   Result := TextExtent(Text).cy;
  end;
  
  {$ENDIF VCL}
--- 114,125 ----
  
  function TJvUnicodeCanvas.TextWidthW(const Text: WideString): Integer;
  begin
!   Result := TextExtentW(Text).cx;
  end;
  
  function TJvUnicodeCanvas.TextHeightW(const Text: WideString): Integer;
  begin
!   Result := TextExtentW(Text).cy;
  end;
  
  {$ENDIF VCL}