Desenhar Bmps nos comps padr�es do Delphi

Question

to fazendo um sistema de skin, dai eu preciso saber como desenhar bitmaps em bot�es, checkbox, ..... etc.....

ouse naum for poss�vel, queria alguma base p/ eu mesmo poder criar componentes q aceitem bmps.....

valew...

Marcelo Saviski · Answer

talvez funcione, mas se voc� tiver a handle do componente, pode blitar um bitmap para l�:

BitBlt(Componente.handle, X, Y, Width, Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);

vc tb pode usar outros parametros no lugar do copy tamb�m, como [color=green:635b930c03]SRCINVERT [/color:635b930c03], [color=green:635b930c03]SRCAND [/color:635b930c03]etc.... que realizam opera��o booleanas nos pixels

::d::a::m::m::i::t:: · Answer

cara... naum funcionou.....eu consegui desenhar em um label utilizando o canvas...mas foi soh no label.....aguem ai tem mais alguma sugest�o....???vlew...

Beppe · Answer

Nem todos os controles tem um OnPaint ou exportam um Canvas. O m�todo mais apropriado para renderizar diferente, seria sobrepor o m�todo Paint do controle. L� voc� pode usar o Canvas.

procedure TMeuControle.Paint;
begin
  inherited;

  // pinta como quiser
end;

Desta maneira, cada vez que o controle precise ser repintado, ele ser� pintado como voc� quer, isto n�o � poss�vel sem herdar(ou um OnPaint).

Seria isso?

Marcelo Saviski · Answer

um detalhe!BitBlt([b:50e0dc29c1]GetDC[/b:50e0dc29c1](Componente.handle), X, Y, Width, Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);talvez funfa agora.......

::d::a::m::m::i::t:: · Answer

[quote:cc6391dce6=�Marcelo Saviski�]um detalhe!

BitBlt([b:cc6391dce6]GetDC[/b:cc6391dce6](Componente.handle), X, Y, Width, Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);

talvez funfa agora....[/quote:cc6391dce6]

agora sim!!!!

valew tb beppe..... vo faze isso q tu disse tb...

valew....

::d::a::m::m::i::t:: · Answer

agora ta funcionando tudo certo....mas eu naum consigo colocar o caption no meu btn....eu usei o TetOut, mas da� naum consigo ajeitar  fonte e tb naum consigo deixar o caption centralizado.......e agora???????valwwwwww     :lol:...

Marcelo Saviski · Answer

s� uma dica, voc� pode fazer assim para facilitar o trabalho em um Objeto que n�o tenha um canvas

[color=green:0986166284]Canvas := TCanvas.Create;
Canvas.Handle:= GetDC(Comp.Handle);[/color:0986166284]

ai voc� pode usar as op��es do canavas, e alterar a fonte pelo m�todo tradicional

para desenhar um texto centralizado voc� usa o:

[color=green:0986166284]DrawText(DC, PChar(�texto�), -1, r, DT_CENTER + DT_VCENTER + DT_SINGLELINE);[/color:0986166284]

onde r � uma variavel TRect

::d::a::m::m::i::t:: · Answer

valew galera.....valew mesmo.... :lol:  :lol:  :lol:...

F�rum Desenhar Bmps nos comps padr�es do Delphi #213946