Club Builder

[Sergio Escolano]

Tengo que situar en pantalla más de 1000 textos, en diferentes
angulos, los cuales puede ir variando.

Tengo el siguiente código en un Timer de BCB4:

LOGFONT logfont;
...
...
for(int i = 0; i < 1000; i++)
{
logfont.lfEscapement = ANGLE(i);

HFONT font = CreateFontIndirect(&logfont);
Canvas->Font->Handle = font;

Canvas->TextOut(X,Y,TEXT);
DeleteObject(font);
}

Tengo el problema que tarda mucho tiempo (aproximadamente 2 seg.)
en pintar todas las etiquetas.

Alguien podría ayudarme.

E-Mail: sergio@global-soft.es