Path: news.cs.au.dk!not-for-mail
From: Flemming Gram Christensen <gram@mjolner.dk>
Newsgroups: daimi.beta
Subject: Re: Putformat og scroll-lister på Windows
Date: 17 Aug 2000 09:28:08 +0200
Organization: University of Aarhus, Department of Computer Science (DAIMI)
Lines: 77
Message-ID: <y4yr97o9wjb.fsf@frey.mjolner.dk>
References: <3906E1D1.BA4A58CC@cs.au.dk> <y4yzoqhrp5x.fsf@ull.mjolner.dk> <39994923.112BDFF4@cs.au.dk>
NNTP-Posting-Host: bifrost.mjolner.dk
X-Trace: gjallar.cs.au.dk 966497291 1996315 130.225.8.27 (17 Aug 2000 07:28:11 GMT)
X-Complaints-To: news@cs.au.dk
NNTP-Posting-Date: 17 Aug 2000 07:28:11 GMT
X-Newsreader: Gnus v5.7/Emacs 20.4
Xref: news.cs.au.dk daimi.beta:10490

Karsten S. =?iso-8859-1?Q?J=F8rgensen?= <karsten@cs.au.dk> writes:

Flg. virker for mig paa en win2k maskine:

ORIGIN '~beta/guienv/guienv';
INCLUDE '~beta/guienv/scrolllists';
INCLUDE '~beta/basiclib/formatio';
-- program: descriptor --
GUIenv
(# mainWindow: @window
     (# aScrollList: @textScrollList
          (# multipleSelection:: (# do false -> value #);
             open::
               (# aTextStyle: ^textStyle;
               do &textStyle[] -> aTextStyle[];
                  'Courier New' -> aTextStyle.name;
                  18 -> aTextStyle.size;
                  textFaces.bold -> aTextStyle.face;
                  aTextStyle[] -> style;
                  (13, 13) -> position;
                  
                  (200, 300) -> size;
                  100 -> append;
                  (1, '  1 bottle  on the wall') -> setText;
                  (2, 50) -> forTo
                  (# t: @text;
                  do t.clear;
                     inx -> t.putInt(# do 3->width #);
                     ' bottles on the wall' -> t.putText;
                     (inx, t[]) -> setText;
                  #);
               #);

NB: Et textstyle object kan ikke genbruges, skab altid nye.
    En scrolllist kan kun bruge en textstyle. Alle linier har
    altsaa samme skrift type.

Mvh Flemming


> Flemming Gram Christensen wrote:
> > 
> > Du kan skifte til en anden font med
> > 
> > myStyle[]->MyTextScrollList.style;
> > 
> > Et eller andet sted i control panelet kan du se hvilke fonte der findes.
> > 
> 
> 
> Men hvordan bruger man den style-tingest? Jeg har proevet: 
> 'Courier'->myStyle.name; (fontens navn)
> og
> 'Courier New'->myStyle.name; (TTF-udgaven)
> og
> 'Cour'->myStyle.name; (filnavnet paa fonten)
> 
> 
> Fulgt af:
> myStyle[]->MyTextScrollList.style;
> 
> 
> ...men intet virker.
> 
> Hvad gaar galt?
> 
> /Karsten

-- 
Flemming Gram Christensen, M.Sc., Software Engineer, Mjølner Informatics
------------------------------------------------------------------------
Mjolner Informatics A/S                   Phone:  +45 70 27 43 43       
Science Park Aarhus                       Fax:    +45 70 27 43 44
Gustav Wieds Vej 10                                             
DK-8000 Aarhus C                                                     
Denmark                                   E-mail: gram@mjolner.dk    
------------------------------------------------------------------------