Newsgroup: it.comp.lang.delphi
Titolo: Esiste???

Salve!!!
Vorrei sapere se esiste, e dove trovarlo, un componente che ha le stesse
funzioni di una Imagelist ma che, invece delle immagini, fosse rivolto a dei
testi. In poche parole, ho dei testi di canzoni e vorrei visualizzarli, a
seconda della scelta dell'utente, su una Memo. Non voglio usare ne i file,
ne i database o aprire direttamente i file .txt ma vorrei che il programma
contenesse questi testi. Avevo pensato di usare + memo ma dovrei nasconderle
tutte, per poi redere visibile solo quella che interessa all'utente. Lo
trovo troppo complicato ed inefficiente.
--
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Messaggio inviato da: Bruno Cannavacciuolo
Nick su C6: HeartEarth
Nick su ICQ: HeartEarth (86322518)
E-mail: 
heart...@libero.it
Sito personale: 
www.heartearth.cjb.net
Chat personale: 
www.heartearth.cjb.net
Il talento e' come il muscolo, cresce solo se lo si esercita. Se rinunciamo
a potenziare le nostre capacita' e ci limitiamo a fingere di farlo mentre
restiamo in attesa che arrivi qualcosa di piu' consono alle nostre
capacita', andremo sicuramente incontro a costanti frustrazioni.
                                      (Kenneth Hildebrand)

trovo troppo complicato ed inefficiente.
Non badare ai testi, ricordi d'infanzia ;)
unit LyricsUnit;
interface
const Lyrics: array [0..2] of String =
('Twinkle, twinkle, little star,'#13#10+
 'How I wonder what you are.'#13#10+
 'Up above the world so high,'#13#10+
 'Like a diamond in the sky.',
 'Hickory, dickory, dock!'#13#10+
 'The mouse ran up the clock;'#13#10+
 'The clock struck one,'#13#10+
 'The mouse ran down,'#13#10+
 'Hickory, dickory, dock!',
 'Abraham Lincoln,'#13#10+
 'Kind and true,'#13#10+
 'You did the best'#13#10+
 'A man could do,'#13#10+
 'With your example,'#13#10+
 'We will, too.'#13#10);
implementation
end.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 ha scritto nel messaggio
news:3ca36a9b...@news.tin.it...


"Bruno Cannavacciuolo (HeartEarth)" ha scritto nel messaggio
| č utile ma non ci sarebbe un altro metodo + veloce??? Oppure se inserisco
i
| testi delle canzoni in una memo come faccio, con un menů a tendina, ad
| andare in una posizione della memo??
|
Cosa intendi per menu' a tendina? Cosa vuoi dire con
'andare in una posizione della memo'?
Io farei piu' semplicemente cosi' (metti un TMemo e una
TCombobox su una form vuota per prova):
----------------- INIZIO Unit1;
uses LyricsUnit;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
 i : byte;
begin
 memo1.Clear;
 combobox1.Style := csDropDownList;
 for i := Low(Lyrics) to high(Lyrics) do
  combobox1.Items.Add(Titoli[i])
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 memo1.Text := lyrics[combobox1.itemindex]
end;
----------------- FINE
----------------- INIZIO LyricsUnit
unit LyricsUnit;
interface
const
Lyrics: array [0..2] of String =
('Twinkle, twinkle, little star,'#13#10+
 'How I wonder what you are.'#13#10+
 <... cut ...>
 'With your example,'#13#10+
 'We will, too.'#13#10);
// aggiunto ora
Titoli: array [0..2] of String =
('Twinkle, twinkle, little star',
 'Hickory, dickory, dock!',
 'Abraham Lincoln');
implementation
end.
----------------- FINE
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

 TCombobox su una form vuota per prova):
Ho provato e funziona perfettamente ma il problema sta nel fatto che ho una
sedicina di canzoni e farlo con questo metodo mi porterebbe a spendere
troppo tempo. Per questo che le volevo mettere in una sola memo e poi con un
Combobox andare alla canzone specificata scorrendo la memo. Volevo provare a
memorizzarli in un file ma non supporta le variabili Ansistring. L'ultima
possibilità che ho pensato è quella di metterle in + memo e nasconderle per
poi renderle visibili al momento opportuno. Ci sono altre scelte???
Mi scuso ancora per il dibattito avvenuto!!!! Non era e non è mia intenzione
intasare o insultare tutti quelli che dedicano del tempo a risolvere
problemi altrui, che li propongono in questa newsgroup. Newsgroup che mi ha
dato molto e che spero mi dia ancora aiuto in futuro. Ho iniziato ad
imparare Delphi da qui e devo tutta la mia cultura in questo campo a tutte
le persone che sono qui!!! Ciao e grazie!!!

"Bruno Cannavacciuolo (HeartEarth)" ha scritto nel messaggio
| volevo sapere come fare a scorrere in una posizione specifica
| della memo. Ho provato con ScrollBy ma non funziona.
|
Questa procedura posiziona il cursore su una particolare riga del memo.
Procedure VaiAllaRiga(tempMemo: TMemo; Riga: Integer);
Var
  Pos: Integer;
Begin
  Pos := tempMemo.Perform(EM_LINEINDEX, Riga, 0);
  // scrolla nel componente
  tempMemo.Perform(TBM_SETSEL, Integer(True), MakeLong(Pos, Pos));
  tempMemo.SelStart := Pos;
  // imposta la nuova posizione
  tempMemo.Perform(EM_SCROLLCARET, 0, 0);
  tempMemo.SetFocus
End;
