Problema con un TImage

[grandmasterdari]

Aparentemente no esta el error en esa linea de codigo, a mi me funciona bien

//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
    Image1->Canvas->Brush->Color=clSilver;
}
//---------------------------------------------------------------------------

siendo que utilize un tamaño Image1->whidth= 3000; Image1->height = 3000;
Ademas el color silver es el blanco...

[vivamotos]

Prueba a poner Width 6000 y Height 16000

[grandmasterdari]

supongo ke es para una prueba, pero fuera de eso es una medida bastante ridicula, ya que no entraria en ningun monitor, pero si, para tu desgracia funciona con ese alto y ese ancho, te paso la captura de pantalla que hice

http://s1.subirimagenes.com/otros/372435dibujo.jpg


digo para tu desgracia porque funciona de todos modos