Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!rpi!uupsi!sunic!news.funet.fi!hydra!poros!kankkune
From: kankkune@cs.Helsinki.FI (Risto Kankkunen)
Newsgroups: comp.lang.pascal
Subject: Re: Turbo Vision, TListViewer
Message-ID: <12205@hydra.Helsinki.FI>
Date: 14 Mar 91 12:59:15 GMT
References: <1991Feb27.230255.46955@cc.usu.edu> <5865@husc6.harvard.edu>
Sender: news@cs.Helsinki.FI
Organization: University of Helsinki, Department of Computer Science
Lines: 25

>As far as I can tell, despite some statements in the TV manual that seem
>to imply otherwise, TListViewers are only meant to be placed in TDialog
>boxes and not in TWindows.

This is what I dislike most of in TV. Though, I understand the design
principles, but I think I had made the palette system differently.

> If people have found another solution, I'd be interested.

There is, however, a work-around. You have to override the view's
GetPalette method. The standard palette references entries that are not
in TWindow's palette, as it is smaller than that of TDialog. You can do
something like this:

FUNCTION GetPalette:PString;
CONST
  Colours   =#7#8#7#8#1 etc. choose suitable indexes from TWindow's palette
  MyPalette :String[Length(Colours)]=Colours;
BEGIN
  Getpalette:=@MyPalette;
END;

 Risto Kankkunen                   kankkune@cs.Helsinki.FI (Internet)
 Department of Computer Science    kankkunen@finuh          (Bitnet)
 University of Helsinki, Finland   ..!mcsun!uhecs!kankkune   (UUCP)