Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Humor
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #19  
Antiguo 20-10-2004
<Sergio> <Sergio> is offline
Miembro
 
Registrado: sep 2004
Posts: 72
Poder: 22
<Sergio> Va por buen camino
Talking

Volviendo al tema de las pc en el cine. ¿Notan que cuanto mayor es el presupuesto de la película la distorción también es mayor?

P.D.

Cita:
Empezado por kinobi
...el uso de goto era pasaporte seguro para el suspenso...
HEREJIA!
HEREJIA!
HEREJIA!
Se ponian bastante violentos con el tema...

Y que tal programar con este estilo:

Código Delphi [-]
 const
   mskTrans=$7BDE
 ;type
   Tlinea=array[0..0] of word
 ;function bltAlpha50(BitmapDes:Tbitmap;XDes,YDes,Ancho,Alto:integer;BitmapOrg:Tbitmap;XOrg,YOrg:integer):boole  an
 ;var linea:^Tlinea
      ;lineao:^Tlinea
      ;i,j,ajuste:integer
 ;begin
   result:=EstaEnInterior(XDes,YDes,Ancho,Alto,XOrg,YOrg,LimitesPantalla)
   ;if not result then exit
   ;dec(Ancho)
   ;Ajuste:=XDes-XOrg
   ;for j:=0 to Alto-1 do
   begin
     lineao:=BitmapOrg.scanline[j+YOrg]
     ;linea:=BitmapDes.scanline[j+YDes]
     ;for i:=XOrg to Ancho+XOrg do
       if lineao[i]<>$0 then
         linea[i+Ajuste]:=((linea[i+Ajuste] and MskTrans)+(lineao[i] and MskTrans)) shr 1
   ;end
 ;end
 ;

Estoy seguro que se rasgarian las vestiduras y me acusarían de hereje por poner los ";" al inicio.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 22:10:35.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi