Newsgroup: it.comp.lang.delphi
Titolo: [newbie] mettere immagine insieme a testo

Ho delphi da 2 giorni, pero' sono riuscito gia a fare qualcosa e a capire
come funziona.
Se mi rispondete quindi tenete conto del mio livello :)
Vorrei sapere se e' possibile e come, mettere testo e immagini insieme.
In pratica vorrei mettere su una form un componente (dove posso variare
sfondo, colori dei caratteri, font, dimesnsioni ecc..) dove non e' possibile
scrivere per l' utente e dove appariono scritte (come un wordpad pero' senza
che l'utente puo' cambiare quel che e' scritto) dove si puo' scrollare il
testo e dove pero' appaiono pure delle .jpg o .gif (in realta' si tratta di
disegni di lettera decorati che fanno da inizio paragrafo, tipo i libri di
una volta).
Il tutto dovrebbe arrivare (l' input del testo intendo) da una connessione
telnet ( e gia che ci siete se sapete come fare mi sarebbe utile) e magari
il testo pure loggato in un file ^_^
Mi potreste dare delle dritte?
Grazie in anticipo.
--
Tet_Zuo
ICQ: 27622695 e-mail: 
t...@galactica.it

 e magari il testo pure loggato in un file ^_^
Uff, altro !? :))
Beh comunque questa e' la parte piu' facile, se hai implementato il
controllo con le TStringList, basta che chiami il metodo SaveToFile. Se hai
usato una stringa o altro puoi scrivere in un textfile (vedi tipo TextFile
sull'help).
Ultima nota: attento che il TStringList ha un limite di spazio per il testo,
mi pare sui 32k (ma non sono sicuro). Esistono comunque classi simili che
non hanno tale limite (guarda su 
www.torry.ru
).
Ciao !                    {MSX}
ed ecco il TANSIScreen, non usarlo assolutamente come un esempio di
programmazione :)
l'avevo fatto solo per imparare l'uso dei TGraphicControl. Tu guarda in
particolare i metodi Create e Paint
unit ANSIScreenUnit;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type Tchar=char;
     T80x25Array=Array [0..79,0..24] of Tchar;
     TANSIlines=array [0..24] of string;
type
  TANSIScreen = class(TGraphicControl)
  private
   function GetScreen(x,y:integer):Tchar;
  protected
   procedure Paint; override;
  public
   Lines: TANSILines;
   FScreen:T80x25Array;
   constructor Create(AOwner: TComponent); override;
   procedure scrollup;
   property Screen[X,Y: Integer]: Tchar read GetScreen;
  published
   property OnMouseDown;       { mouse events }
   property OnMouseMove;
   property OnMouseUp;
  end;
procedure Register;
implementation
function tansiscreen.GetScreen(x,y:integer):Tchar;
begin
Result:=fscreen[x,y];
end;
constructor tansiscreen.Create(AOwner: TComponent);
var x,y:integer;
begin
inherited Create(AOwner);
Canvas.Font.Name:='Fixedsys';
width:=80*8;
height:=25*15;
for x:=0 to 79 do
 for y:=0 to 24 do
  FScreen[x,y]:=' ';
end;
procedure tansiscreen.scrollup;
var y:integer;
begin
for y:=0 to 23 do
 lines[y]:=lines[y+1];
end;
procedure tansiscreen.Paint;
var x,y:integer;
begin
Canvas.brush.Color:=clBlack;
Canvas.FillRect(rect(0,0,Width,Height));
Canvas.Font.Name:='Fixedsys';
Canvas.Font.Color:=clWhite;
file://for x:=0 to 79 do
// for y:=0 to 24 do
//  begin
//   canvas.brush.Color:=TColor(random($FFFFFF));
//   canvas.TextOut(x*8,y*15,fscreen[x,y]);
//  end;
 for y:=0 to 24 do
  begin
   canvas.brush.Color:=TColor(random($FFFFFF));
   canvas.TextOut(8,y*15,lines[y]);
  end;
end;
procedure Register;
begin
  RegisterComponents('MSX', [TANSIScreen]);
end;
end.