Muitos menus Que Usam los Telas de hacks Como Sistema Operacional de CombatArms utilizam o Direct3D, Eu Vou ensinar hum Jeito Simples de Desenhar, E usando o canvas
. Bem, Vamos Comecar
Nas Variáveis Globais adicione:
Agora num TEMPORIZADOR adicione:
Menus ª Tela. ' ); GetCursorPos ( Agulha );
if ( Agulha . X = 10 ) e ( Agulha . Y = 10 ) , EM SEGUIDA, Comecar
sc . TextOut ( 10 , 15 , 'Menu ABERTO' ); finais ;
ReleaseDC ( 0 , sc . COM LIDAR );
Finalmente
sc . Livre ; finais ;
Pronto, Voce. Teve de Banco de SUA, o resto E POR SUA Conta.
Aqui o Estação algumas DICAS Parágrafo deixar Seu cardápio de Mais bonito.
-Use Imagens AO invez da função TextOut;
-Use Textos los 3D: POR Planeta Delphi.
Nas Variáveis Globais adicione:
Código PHP:
var
sc : TCanvas ;
Código PHP:
Menus ª Tela. ' ); GetCursorPos ( Agulha );
if ( Agulha . X = 10 ) e ( Agulha . Y = 10 ) , EM SEGUIDA, Comecar
sc . TextOut ( 10 , 15 , 'Menu ABERTO' ); finais ;
ReleaseDC ( 0 , sc . COM LIDAR );
Finalmente
sc . Livre ; finais ;
-Use Imagens AO invez da função TextOut;
-Use Textos los 3D: POR Planeta Delphi.
Código PHP:
Antes vc deve declarar esa procedure na seção private procedure TForm1.imgPaintCanvas(TheCanvas : TCanvas; TheString : String;
TheFontSize, UCorner, LCorner : Integer); Begin
TheCanvas.Brush.Style := bsClear;
TheCanvas.Font.Style := [fsBold];
TheCanvas.Font.Name := 'MS Sans Serif';
TheCanvas.Font.Size := TheFontSize;
TheCanvas.Font.Color := clBlack;
TheCanvas.TextOut(UCorner, LCorner, TheString);
TheCanvas.Font.Color := clGray;
TheCanvas.TextOut(UCorner - 1, LCorner - 1, TheString);
TheCanvas.Font.Color := clSilver;
TheCanvas.TextOut(UCorner - 2, LCorner - 2, TheString);
TheCanvas.Font.Color := clBlack;
TheCanvas.TextOut(UCorner - 3, LCorner - 3, TheString); End;
Exemplo: procedure TForm1.Button1Click(Sender: TObject); begin
imgPaintCanvas(Form1.Canvas, 'Texto', 10, 6, 4); end;
TheFontSize, UCorner, LCorner : Integer); Begin
TheCanvas.Brush.Style := bsClear;
TheCanvas.Font.Style := [fsBold];
TheCanvas.Font.Name := 'MS Sans Serif';
TheCanvas.Font.Size := TheFontSize;
TheCanvas.Font.Color := clBlack;
TheCanvas.TextOut(UCorner, LCorner, TheString);
TheCanvas.Font.Color := clGray;
TheCanvas.TextOut(UCorner - 1, LCorner - 1, TheString);
TheCanvas.Font.Color := clSilver;
TheCanvas.TextOut(UCorner - 2, LCorner - 2, TheString);
TheCanvas.Font.Color := clBlack;
TheCanvas.TextOut(UCorner - 3, LCorner - 3, TheString); End;
Exemplo: procedure TForm1.Button1Click(Sender: TObject); begin
imgPaintCanvas(Form1.Canvas, 'Texto', 10, 6, 4); end;
Nenhum comentário:
Postar um comentário