TopView_.PAS

unit TopView_;

interface

uses
  Views, Streams, Drivers
  ;

type
  PTopView = ^TTopView;
  {`2  §®¢ë© ⨯ ¤«ï ⥪áâ , ¢ë¢®¤¨¬®£® ¢ § £®«®¢ª¥ ¯ ­¥«¨. }
  TTopView = object(TView)
    Panel: PView; //ä ªâ¨ç¥áª¨ -  PFilePanel
    constructor Load(var S: TStream);
    procedure Store(var S: TStream); virtual;
    procedure Draw; virtual;
      {` ’¥ªáâ 業âà¨àã¥âáï, ­¥ ¯¥à¥ªà뢠ï í«¥¬¥­â ã¯à ¢«¥­¨ï ®ª­ 
      ¬¥­¥¤¦¥à  `}
    function GetPalette: PPalette; virtual;
    function GetText(MaxWidth: Integer): String; virtual;
      {` â®â ¬¥â®¤ ®¡ï§ â¥«ì­® ¤®«¦¥­ ¡ëâì ¯¥à¥ªàëâ `}
    end;
  {`}

  PSortView = ^TSortView;
    {`2 ˆ­¤¨ª æ¨ï ⥪ã饩 á®àâ¨à®¢ª¨ ¯ ­¥«¨ ¡ãª®¢ª®© ¢ «¥¢®¬ ¢¥àå­¥¬ 㣫ã `}
  TSortView = object(TView)
    Panel: PView; //ä ªâ¨ç¥áª¨ -  PFilePanel;
    constructor Load(var S: TStream);
    procedure Store(var S: TStream); virtual;
    procedure Draw; virtual;
    procedure HandleEvent(var Event: TEvent); virtual;
    end;

implementation

uses
  Defines, DblWnd, Advance1, flpanelx, Commands, dnApp, PDSetup
  ;

const
  CTopView = #11#12;

constructor TTopView.Load(var S: TStream);
  begin
  inherited Load(S);
  GetPeerViewPtr(S, Panel);
  end;

procedure TTopView.Store(var S: TStream);
  begin
  inherited Store(S);
  PutPeerViewPtr(S, Panel);
  end;

function TTopView.GetPalette: PPalette;
  const
    S: String[Length(CTopView)] = CTopView;
  begin
  GetPalette := @S;
  end;

function TTopView.GetText(MaxWidth: Integer): String;
  begin
  end;

procedure TTopView.Draw;
  var
    C: Word;
    B: TDrawBuffer;
    S: String;
    R, OldR: TRect;
    D: Integer;
    Width: Integer;
    Right: Boolean;
  begin
  Right := PDoubleWindow(Owner)^.Panel[pRight].AnyPanel = Panel;
  Width := Panel^.Size.X - 4 - Ord(Right);
    {4 - íâ® è¨à¨­  í«¥¬¥­â  ã¯à ¢«¥­¨ï (­®¬¥à  ®ª­  ¢ «¥¢®© ¯ ­¥«¨
     ¨ ª­®¯ª¨ ¬ ªá¨¬¨§ æ¨¨ ¢ ¯à ¢®© ¯ ­¥«¨. „«ï ¯à ¢®© ¯ ­¥«¨ ¥éñ
     ®¤¨­ ᨬ¢®« - íâ® ¯à®¡¥« ¬¥¦¤ã ¨­¤¨ª â®à®¬ á®àâ¨à®¢ª¨ ¨ TopView }
  if Width < 1 then
    Exit;
  S := GetText(Width);
  if Length(S) < Width - 2 then
    S := ' ' + S + ' ';
  R.A := Panel^.Origin;
  R.B.Y := R.A.Y;
  Dec(R.A.Y);
  D := (Width - Length(S) + 4) div 2;
  if D >= 4 then
    Inc(R.A.X, D) { ¯®ª  ¬®¦­®, 業âà¨à㥬 ¡¥§ ãçñâ   á¨¬¬¥âਨ }
  else if Right then { ¯à ¢ ï ¯ ­¥«ì, ¯à¨¦¨¬ ¥¬ ª ª­®¯ª¥ ¬ ªá¨¬¨§ æ¨¨ }
    inc(R.A.X, Width - Length(S) + 1)
  else { «¥¢ ï ¯ ­¥«ì, ¯à¨¦¨¬ ¥¬ ª ­®¬¥àã ®ª­  }
    inc(R.A.X, 4);
  R.B.X := R.A.X + Length(S);
  GetBounds(OldR);
  if not MemEqual(R, OldR, SizeOf(R)) then
    begin
    Locate(R); { ’ã⠡㤥â ४ãàá¨ï, ¯®í⮬㠢â®à®© à § à¨á®¢ âì ­¥ ­ ¤® }
    Exit;
    end;
  C := GetColor(1);
  if not Panel^.GetState(sfSelected) then
    C := GetColor(2);
  MoveStr(B[0], S, C);
  WriteLine(0, 0, Size.X, Size.Y, B);
  end { TTopView.Draw };

{ ---------------------------- TSortView ------------------------------ }

constructor TSortView.Load(var S: TStream);
  begin
  inherited Load(S);
  GetPeerViewPtr(S, Panel);
  end;

procedure TSortView.Store(var S: TStream);
  begin
  inherited Store(S);
  PutPeerViewPtr(S, Panel);
  end;

procedure TSortView.Draw;
  var
    B: Word;
    C: Char;
    R: TRect;
    SortSetup: ^TPanelSortSetup;
  begin
  if (Size.X <> 1) or (Size.Y <> 1) then
    begin
    GetBounds(R);
    R.B.X := R.A.X;
    Dec(R.A.X);
    R.B.Y := R.A.Y + 1;
    Locate(R); // âã⠡㤥â ४ãàá¨ï, ª®â®à ï ¨ ­ à¨áã¥â
    Exit;
    end;
  SortSetup := @PFilePanelRoot(Panel)^.PanSetup^.Sort;
  C := GetString(dlSortTag)[SortSetup^.SortMode + 1];
  if (SortSetup^.SortFlags and psfInverted) <> 0  then
    C := Upcase(C);
  MoveChar(B, C, Panel^.Owner^.GetColor(3), 1);
  WriteLine(0, 0, 1, 1, B);
  end;

procedure TSortView.HandleEvent(var Event: TEvent);
  begin
  if Event.What = evMouseDown then
    begin
    ClearEvent(Event);
    Message(Panel, evCommand, {cmPanelSortSetup}cmSortBy, nil);
    end;
  end;

end.