[ Mali Misha @ 24.06.2008. 21:06 ] @
Nov sam na BCB (6.0). Da ne dužim. Želim da u BCB napravim omanju aplikaciju koju čini jedan skrolujući prozor u kome se mogu naći formatirani tekst i slike (koje program sam crta). Počeo sam sa TRichEdit ali sam naišao na problem kad sam hteo da dodam slike. Pitanja su:

1) Da li je moguće dodati slike (koje program sam iscrtava) u TRichEdit?
2) Bilo da je odgovor na prethodno pitanje da ili ne, pitanje je kako tj. koje klase se za ovo koriste?

Pretpostavljam da mi TCanvas rešava posao za slike, ali kako ih onda uključiti i u šta?

[Ovu poruku je menjao Mali Misha dana 24.06.2008. u 22:22 GMT+1]
[ X Files @ 24.06.2008. 21:53 ] @
Citat:
1) Da li je moguće dodati slike (koje program sam iscrtava) u TRichEdit?

Slike nije moguće automatski umetati u TRichEdit (zbog prepotopskog rich edit DLL-a na kome je zasnovan), bez ozbiljnih zhvata na samom kodu za TRichEdit.

Na sajtu:
http://home.att.net/~robertdunn/Yacs.html
....postoje već gotove komponente TaeRichEdit ili TRichEditOle koje to već imaju rešeno. Malo više o tome i instaliranju možeš pročitati ovde.

Citat:

2) Bilo da je odgovor na prethodno pitanje da ili ne, pitanje je kako tj. koje klase se za ovo koriste?
Pretpostavljam da mi TCanvas rešava posao za slike, ali kako ih onda uključiti i u šta?

U zavisnosti od tvojih potreba možeš razmotriti TScrollBox komponentu u koju kasnije dinamički formiraš objekte (slike tekst)
Code:

ImageObjekat = new TImage( ScrollBox1 );
ImageObjekat->Parent = ScrollBox1;
ImageObjekat->Width = ŠIRINA;
ImageObjekat->Height= VISINA;
ImageObjekat->Left = LEVO;
ImageObjekat->Top  = OD VRHA;
ImageObjekat->Picture->LoadFromFile( PUTANJA );

// slično je i za TLabel ...

...ili čak TPaintBox unutar TScrollBox-a, po sličnom principu.

Evo par primera koje sam iskopao za ovo /5MB zbog slika jedne karte/:
http://www.antivari.com/moving.zip

Ima primer za TScrollBox zasebno, TScrollBox u kome je TPaintBox, dinamičko kreiranje objekata i sl... možda posluži.

Inače, TScrollBox je dobar i za precizno i glatko programsko skrolovanje svega što je u njemu:
Code:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   for ( int i=0; i<=Label1->Width; i++ )
   {
      Caption = i;
      Sleep( 10 );
      ScrollBox1->ScrollBy( -1,0 );
      ScrollBox1->Update();
   }
}


[ Mali Misha @ 24.06.2008. 22:03 ] @
Eto jedno veliko hvala na ovom trudu. :o) Pogledaću pažljivo.
[ itf @ 25.06.2008. 00:05 ] @
Jedina opcija za umetanje slike je eventualno preko InsertControl funkcije. No, nije to to.