Newsgroup: it.comp.lang.pascal
Titolo: Dimensione del carattere

Ciao a tutti..
Esiste un modo x modificare la grandezza del carattere in pascal??
Ogni aiuto č ben accetto, grazie
Davide



Si e no... dipende...
Di quanto lo vuoi ingrandire (rimpicciolire non č possibile)
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

Di tre, quattro volte massimo...E' possibile???Qual è la grandezza
massima???
Grazie
Davide


Allora in modalita grafica non hai limitazioni al massimo ti scrivi da
te una rutine per leggere e visualizare i caratteri  presente dentro
un file TTF (con un po' di lavoro  ci si riesce pure) a quel punto gli
dici la grandezza e via...
in modalita testo le cose si fanno + rigide ovvero l'unico modo per
ingrandire il carattere e quello di cambiare la modalita testo...
io sono riuscito a ingrandire il carattere testo di 2 / 3 volte...
cmq bisogna smanettare un po...
ah ti ricordo che cambi la modalita percui tutto il testo diventa
grande o tutto il testo diventa piccolo
non puoi fare che so il titolo x2 e il resto normale (o almeno io non
sono ingrado)...
a te ke interessa?


Infatti a me serviva x un titolo..Puoi darmi un'idea alternativa??
Grazie
Davide

Infatti a me serviva x un titolo..Puoi darmi un'idea alternativa??
Solo in grafica... in modalita testo non so...


Grazie..Ma come si fa in modalità grafica??Purtroppo questo lato del Pascal
mi è completamente oscuro..


eccoti un programma esplicativo eseguilo  e poi guarda parecchio help
Program TextDemo;
Uses CRT, Graph;
Const
  CharType : Array[0..4] of String[20] = (
    'Defout',
    'Triplex',
    'Small',
    'Sans+Serif',
    'Gothic'
    );
Var
  S : String;
  MaxX, MaxY  : Integer;
  I, J, K     : Integer;
  ErrorCode   : Integer;
  GraphMode   : Integer;
  GraphDriver : Integer;
Begin
  GraphDriver := Detect;
  InitGraph(GraphDriver, GraphMode, '');
  GraphMode := GetMaxMode;
  InitGraph(GraphDriver, GraphMode, '');
  If ErrorCode <> grOK
    Then Begin
      WriteLn('Errore grafico: ', GraphErrorMsg(ErrorCode));
      End
    Else Begin
      MaxX := GetMaxX;
      MaxY := GetMaxY;
      For I := 0 To 4
        Do Begin
          K := 0;
          For J := 0 To 10
            Do Begin
              SetTextStyle( I, HorizDir, J );
              SetColor(J);
              OutTextXY( J * 20, K, CharType[I] );
              K := K + TextHeight ( CharType[I] ) + 10;
              End;
          SetTextStyle ( 0, HorizDir, 2);
          S := 'Premete INVIO...';
          OutTextXY ( MaxX - TextWidth(S), MaxY - TextHeight(S), S );
          ReadLn;
          ClearDevice;
          End;
      CloseGraph;
      End;
End.


Ho provato il programma che gentilmente mi hai postato ma ho questo errore:
BGI Error: Graphics not initialized (use InitGraph)
Posso risolverlo in qualche modo??
Grazie x l'aiuto
Davide

Posso risolverlo in qualche modo??
devi settare la path per i BGI che normalemte sta in C:\TP\BGI
è il terso parametro della initGraph


Ecco qual è il problema: io questa cartella nn ce l'ho..Esiste un sito dove
poter scaricare questi file ??
Grazie ancora..
E-MAIL:
DM...@libero.it


Boh non lo so... cmq non è detto prova a fa la ricerca sul tuo hard
disk se hai qualke *.BGI... magari c'e l'hai nella bin o da qualke
altra parte...


No,ho il turbo pascal 7.0 e i files strettamente necessari x il suo
funzionamento..Tutte le unit aggiuntive mi mancano..
Grazie lo stesso..