• Jueves 15 de Mayo de 2025, 13:13

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Enko

Páginas: 1 ... 44 45 [46] 47 48 ... 77
1126
Delphi / Re: Listbox Degradado
« en: Domingo 15 de Enero de 2006, 15:28 »
Primero habría que hacer una funcion que permita hacer degradados de colores sobre un Canvas ya uqe delphi solo tiene para pegar colores Solidos (Creo).
Y lo segundo, bastante más complicado, sería modificar el repintado de alguno de los componentes y crear uno nuevo tipo TDegradadoListBox.

Recien revise el codigo fuente de TListBox......
Este es el procedimiento uqe lo dibuja:
Código: Text
  1.  
  2. procedure PaintListBox;
  3.   var
  4.     DrawItemMsg: TWMDrawItem;
  5.     MeasureItemMsg: TWMMeasureItem;
  6.     DrawItemStruct: TDrawItemStruct;
  7.     MeasureItemStruct: TMeasureItemStruct;
  8.     R: TRect;
  9.     Y, I, H, W: Integer;
  10.   begin
  11.     { Initialize drawing records }
  12.     DrawItemMsg.Msg := CN_DRAWITEM;
  13.     DrawItemMsg.DrawItemStruct := @DrawItemStruct;
  14.     DrawItemMsg.Ctl := Handle;
  15.     DrawItemStruct.CtlType := ODT_LISTBOX;
  16.     DrawItemStruct.itemAction := ODA_DRAWENTIRE;
  17.     DrawItemStruct.itemState := 0;
  18.     DrawItemStruct.hDC := Message.DC;
  19.     DrawItemStruct.CtlID := Handle;
  20.     DrawItemStruct.hwndItem := Handle;
  21.  
  22.     { Intialize measure records }
  23.     MeasureItemMsg.Msg := CN_MEASUREITEM;
  24.     MeasureItemMsg.IDCtl := Handle;
  25.     MeasureItemMsg.MeasureItemStruct := @MeasureItemStruct;
  26.     MeasureItemStruct.CtlType := ODT_LISTBOX;
  27.     MeasureItemStruct.CtlID := Handle;
  28.  
  29.     { Draw the listbox }
  30.     Y := 0;
  31.     I := TopIndex;
  32.     GetClipBox(Message.DC, R);
  33.     H := Height;
  34.     W := Width;
  35.     while Y < H do
  36.     begin
  37.       MeasureItemStruct.itemID := I;
  38.       if I < Items.Count then
  39.         MeasureItemStruct.itemData := Longint(Pointer(Items.Objects[I]));
  40.       MeasureItemStruct.itemWidth := W;
  41.       MeasureItemStruct.itemHeight := FItemHeight;
  42.       DrawItemStruct.itemData := MeasureItemStruct.itemData;
  43.       DrawItemStruct.itemID := I;
  44.       Dispatch(MeasureItemMsg);
  45.       DrawItemStruct.rcItem := Rect(0, Y, MeasureItemStruct.itemWidth,
  46.         Y + Integer(MeasureItemStruct.itemHeight));
  47.       Dispatch(DrawItemMsg);
  48.       Inc(Y, MeasureItemStruct.itemHeight);
  49.       Inc(I);
  50.       if I >= Items.Count then break;
  51.     end;
  52.   end;
  53.  
  54.  

Bienvenido al Foro :hola:

1127
Pascal / Re: Sopa De Letras
« en: Domingo 15 de Enero de 2006, 15:16 »
Código: Text
  1.  
  2. const
  3.    maxX = 50;
  4.    maxY = 50;
  5.  
  6. var
  7.    Tablero: array[1..maxX, 1..maxY] of char;
  8.  
  9. {
  10. str es la cadena
  11. inX es la posicion X inicial de donde empezara pegar la cadena
  12. inY es la posicion Y inicial.................
  13. dir es la direccion, true horizontal, false vertical.
  14. La funcion devuelve el resultado si la cadena se pudo pegar, por si es muy larga para entrar
  15. }
  16.  
  17. function insertString(str: string; inX, inY:Byte;  dir:boolean): boolean;
  18. var
  19.    i: integer;
  20. begin
  21.   if dir then
  22.   begin
  23.      if inX + length(str) > maxX then
  24.      begin
  25.         insertString := False;
  26.         Exit;
  27.       end else
  28.       begin
  29.           for i:=inX to (inX+length(str)) do
  30.              Tablero[i, inY] := str[i-inX+1];
  31.          insertString := true;
  32.       end
  33.    end
  34.    else if not dir then
  35.    begin
  36.      if inY + length(str) > maxY then
  37.      begin
  38.         insertString := False;
  39.         Exit;
  40.       end else
  41.       begin
  42.           for i:=inY to (inY + length(str)) do
  43.                 Tablero[inX, i] := str[i-inY+1];
  44.           insertString := true;
  45.      end;
  46.    end;
  47. end;
  48.  
  49.  
Revisa el código por ahí tenga algun error ya que no lo puedo probar ahora, no estoy en casa y no tengo compilador.

1128
La taberna del BIT / Re: Mensajes Intimitantes De Emule :(
« en: Sábado 14 de Enero de 2006, 22:11 »
Citar
mandarle un virus a los tercermundistas..........jajaja hasta a los desarrollados.....todo mundo usa windows si te vas a cualquier lugar tienda lo que sea habra minimo una compu con win.....veces perdidas no
Aclaro, me refería a un Virus FISICO, o sea, que contagie GENTE.

1129
Programación de Videojuegos / Re: Busco Programadores Que Quieran Programar En Pasca
« en: Sábado 14 de Enero de 2006, 22:08 »
Cita de: "lalo_soft"
Pregunta: Directx esta bien soportado en TurboPascal?
Turbo pascal no soporta ni un @#~@*.

DirectX se soporta por Free Pascal, TMT Pascal y Delphi.

1130
Pascal / Re: Quien Se Apunta?
« en: Sábado 14 de Enero de 2006, 22:06 »
Cita de: "thot_ohm"
Opino que debo conseguirme algún manualillo de assembler porque no entiendo ni papa. :blink:  :whistling:

En cuanto al nombre del S.O. que les parece S.O.I. (Sistema Operativo Independiente), haciendo una especie de analogía entre SOI y SOY del verbo SER.

http://www.soi.com/

1131
DirectX / Re: Directx En Pascal
« en: Sábado 14 de Enero de 2006, 15:42 »
Blitz es muy similar a Basic que yo sepa. Es una especie de Basic para Video Juegos creo... :rolleyes:

1132
Delphi / Re: Varias Lineas En Un Edit
« en: Viernes 13 de Enero de 2006, 23:27 »
Proba con el TMemo

1133
La taberna del BIT / Re: Mensajes Intimitantes De Emule :(
« en: Jueves 12 de Enero de 2006, 15:46 »
Cita de: "Eternal Idol"
Los virus se hacen para S.O.s que tengan importancia real de propagacion  :whistling:
Es solo cuestion de porcentajes........
No todo el mundo tiene una computadora, y de los que la tienen, más del 75% usan windows.
Si alguien hace un virus con 100% de infeccion para windows, tendría en su poder a más de 75% de computadoras, mientras que para linux algo de 10%.

Infectar a Windows es como infectar a los del 3er mundo, son muchas personas y con pocos recursos para combatir la infeccion.

1134
Delphi / Re: Lazarus
« en: Jueves 12 de Enero de 2006, 15:34 »
si está, se debe llamar TRichEdit. ;)  <_<

1135
Pascal / Re: Software Libre
« en: Jueves 12 de Enero de 2006, 15:30 »
Descargas componentes para delphi es muy habitual, existen un monton de sitios que poseen componentes libres o pagos.

Con las preguntas sobre Free Pascal se complica un poco más, ya que a diferencia de TP, es Object Pascal al igual que Delphi, pero no es un RAD como si lo es Delphi.
En fin, fijate sobre más bien que es la pregunta y hazla donde te parezca mejor, igualmente, en cualquiera de los dos, maso menso se adapta <_<

1136
Pascal / Re: Software Libre
« en: Jueves 12 de Enero de 2006, 01:17 »
Supongo que debería ser TRichEdit el control que buscas.
(La verdad no se si lo tiene, no me puedo fijar, pero igualmente se debería poder agregar)

Yo he tenido un ratito a Lazarus pero me desepcionó el tamaño de las ejecutables.
Un hola mundo (para win) ocupa casi 1 mega mientras con Delphi algo de 400 KB y se puede llegar a comprimir hasta 270 KB con algun compresor de ejecutables (ASPack).


Depende de que tipo de preguntas quieres hacer...... lo más probable es que preguntas de Lazarus en el foro de Delphi.

1137
Pascal / Re: Pascal En Red
« en: Miércoles 11 de Enero de 2006, 00:44 »
¿Que compilador utilizas?
¿Con que sistema operativo trabajas?

1138
Pascal / Re: Busco Programadores En Pascal Para Crear Juegos
« en: Miércoles 11 de Enero de 2006, 00:38 »
Citar
sistema operativo en el que estas que de seguro es windows corre bajo en dos ok.
Los Windows NT (XP)  no corren bajo DOS.
Los windows NT no permiten a los  programas hacer llamadas a interupciones de hardware directamente.

Profesionalmente se usa  Free Pascal (tambien Delphi) con las cabeceras de DirectX de JEDI.

1139
Pascal / Re: Busco Programadores En Pascal Para Crear Juegos
« en: Martes 10 de Enero de 2006, 00:18 »
Las palabras y "Turbo Pascal" y  "Video Juegos" no se combinan en un sentido PROFESIONAL. (DOS ya es historía) ;)  :(

1140
La taberna del BIT / Re: :hippi: Hombre O Mujer
« en: Sábado 7 de Enero de 2006, 21:58 »
Cita de: "JuanK"
jaajaj
bueno al menos le dio risa a alguien muuuuuuuuuuuuuuucho tiempo despues de haberlo escrito.
 :whistling:
Al final, "el hipon" desaparecio  :devil:

1141
Pascal / Re: Valor De Un Puntero
« en: Sábado 7 de Enero de 2006, 18:02 »
La verdad que mucho no entend'i pero prob'a hacer>

Código: Text
  1.  
  2. procedure ConsultarDato(Info : TipoDatos; var Encontrado : boolean; var Act, Ant : PunteroLista);
  3.  
  4. begin
  5.    Encontrado := False;
  6.    Ant := Cab;
  7.    Act := Ant^.sig;
  8.  
  9.    while Act^.Datos.Nombre = Info.Nombre do
  10.    begin
  11.        Ant := Act;
  12.        Act := Act^.sig;
  13.        if (Act^.Datos.Nombre = Info.Nombre) then
  14.        begin
  15.             Encontrado := true;
  16.             Break;
  17.         end;
  18.      end;
  19. end;
  20.  
  21.  

1142
Pascal / Re: Array 2x2
« en: Sábado 7 de Enero de 2006, 17:54 »
como tienes 2 valors: X o O, me imagino que se adapta bien el tipo Boolean que es verdadero/falso.
True = X
False = O.
Código: Text
  1.  
  2. var
  3.    Tablero: array[1..2,1..2] of Boolean;
  4.  
  5.  

1143
Trucos / Links A Sitios Sobre Delphi
« en: Miércoles 4 de Enero de 2006, 14:40 »
Articulos/Tutoriales Varios
www.delphi3000.com
www.planet-source-code.com

Cursos/Manuales Varios
www.arrakis.es
Cara Oculta de Delphi 4

Tutoriales Específicos
Realizar un compilador
Uso de DelphiX

1144
La taberna del BIT / Re: El Cumpleaños De Enko
« en: Martes 3 de Enero de 2006, 15:22 »
Cita de: "bartolomeo"
Citar
especialmente a Bartolomeo que se ve mejor como animador de fiestas que como programador

Pues mmmm, sip puede ser, creo que voy a pensar seriamente en un cambio de solocodigo.com  :comp:  a solochistes.com  :blink:


 :alien:
 :D  :D  :D  :D  :D  :D  :D  :D  :D

1145
La taberna del BIT / Re: El Cumpleaños De Enko
« en: Martes 3 de Enero de 2006, 01:43 »
Muchas a gracias a todos por su alegría y mensajes!!!

(especialmente a Bartolomeo que se ve mejor como animador de fiestas que como programador, ¿O ese es JuanK? :devil: )

Gracias tambien a jonathan, como que exito no necesito mientras haya "guita"  B)

Veo que radical se está  "sesioso" por las "S", gracias


Saludos a todos, que pasen un lindo año y por sierto, no cumplo el 31 sino el 30.

1146
Software / Re: Driver Modem Marconi
« en: Jueves 29 de Diciembre de 2005, 17:33 »
Tal vez un poco ignorante mi comentario pero bueno......
¿Los dispositivos USB necesitan drivers? (es que siempre creí que no)

1147
Delphi / Re: Feliz Navidad
« en: Lunes 26 de Diciembre de 2005, 21:20 »
Un tanto redrasado. :P

MUCHAS FELICIDADES A TODOS LOS FOREROS. :D

Un abrazo para Bartolomeo que colaboro tanto en esta seccion. (Inclusive con este post)  :)

1148
Pascal / Re: Pascal En Linux?
« en: Miércoles 21 de Diciembre de 2005, 13:56 »
Cita de: "micropais"
bueno , ya me contesto yo solito... y con un poco de ayuda del Todopoderoso Google.

- Manual de FreePascal 1.0 para Win32 - en castellano .

saluD.O.S  y a estudiar u poco.

NOTA:
Tendre que actualizarme un poco . empezando por el el "Salu-D.O.S"
 - Disk Operating System -

¿ SalGNU ? o ¿ SaLINUX  ? ó ¡¡ FEDORAs tardes !!  :lol:  :lol:  :lol:
:D

Ya que vas a programar para Linux, el mismo (o lo bajas) el KDE Editor, que es un editor multilenguaje y le podes anclar al Free Pascal para que compile desde allí.

A por sierto, el KDE editor es muuuuuy buen editor. Cada vez que pones un inicio de bloque y lo cierras, aparece al lado del begin un botoncito con un "+" y si lo presionas, es como que oculta el bloque de código. algo así (el más es un boton que esta al lado, pero no en el código.
Citar
----------
(-)begin
...
...
...end;
-----------
(+)begin
end;
----------

1149
Pascal / Re: Pascal Raya 4
« en: Miércoles 21 de Diciembre de 2005, 00:19 »
Bienvenido, pero en este foro no se hacen tareas a nadie.
¿Dudas específicas? ;)

1150
Pascal / Re: Pascal En Linux?
« en: Martes 20 de Diciembre de 2005, 13:28 »
La sintaxis básica es la misma, no cambia en nada. Salgo de las mínimas diferencias entre Turbo Pascal y Free Pascal. Es decir, no podes obviamente utilizar DOS.tpu, pero la sintaxis del Free Pascal para Win es la misma que para Linux.
Un hola mundo sigue siendo el mismo para los dos lenguajes:
Código: Text
  1.  
  2. begin
  3.   Writeln('Hola Mundo');
  4. end.
  5.  
  6.  
El FP para Windows y Dos viene con una IDE similar al TP, para linux es solo el compilador en linea. o sea, no tiene editor propio.

Realmente la diferencia está en las librerías que hay que usar:  revisa este enlace. Lo que no se, es que si las librerías del enlace son tanto para Win como Linux.

Páginas: 1 ... 44 45 [46] 47 48 ... 77