[Delphi] Desenhando Menus na Tela SEM o D3D

 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:

Código PHP:

var  
         sc :  TCanvas ;  

Agora num TEMPORIZADOR adicione:

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 ;  

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.

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;