{$I OVC.INC}

{$B-} {Complete Boolean Evaluation}
{$I+} {Input/Output-Checking}
{$P+} {Open Parameters}
{$T-} {Typed @ Operator}
{$W-} {Windows Stack Frame}
{$X+} {Extended Syntax}

{$IFNDEF Win32}
{$G+} {286 Instructions}
{$N+} {Numeric Coprocessor}

{$C MOVEABLE,DEMANDLOAD,DISCARDABLE}
{$ENDIF}

{*********************************************************}
{*                  OVCTCSTR.PAS 2.00                    *}
{*         Copyright (c) TurboPower Software 1995        *}
{*                 All rights reserved.                  *}
{*********************************************************}

unit OvcTCStr;
  {-Orpheus Table Cell - base string type}

interface

uses
  {$IFDEF Win32}
  Windows,
  {$ELSE}
  WinTypes, WinProcs,
  {$ENDIF}
  SysUtils,
  Messages,
  Graphics, Classes, Controls, Forms, StdCtrls, Menus,
  OvcData, OvcConst, OvcBase,
  OvcTCmmn, OvcTCell, OvcTGRes{, OvcTable};

type
  TOvcTCBaseString = class(TOvcBaseTableCell)
    protected {private}
      {.Z+}
      FUseASCIIZStrings : boolean;
      FUseWordWrap      : boolean;

      FOnChange    : TNotifyEvent;
      {.Z-}

    protected
      {.Z+}
      procedure SetUseASCIIZStrings(AZS : boolean);
      procedure SetUseWordWrap(WW : boolean);

      procedure tcPaint(TableCanvas : TCanvas;
                  const CellRect    : TRect;
                        RowNum      : TRowNum;
                        ColNum      : TColNum;
                  const CellAttr    : TOvcCellAttributes;
                        Data        : pointer); override;
      procedure tcPaintStrZ(TblCanvas : TCanvas;
                      const CellRect  : TRect;
                      const CellAttr  : TOvcCellAttributes;
                            StZ       : PAnsiChar);
      {.Z-}

      {properties}
      property UseASCIIZStrings : boolean
         read FUseASCIIZStrings write SetUseASCIIZStrings;

      property UseWordWrap : boolean
         read FUseWordWrap write SetUseWordWrap;

      {events}
      property OnChange : TNotifyEvent
         read FOnChange write FOnChange;
  end;


implementation
