Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

¿Cómo cargar el cursor desde el recurso y luego guardarlo en el disco? Encontrar ramas similares


Delphimun   (2001-12-18 17:11) [0]

¿Cómo cargar el cursor desde el recurso y luego guardarlo en el disco (bajo la extensión cur)?



Delphimun   (2001-12-18 17:18) [1]

Ya la segunda vez que hago esta pregunta, ¿seguramente no esperaré una respuesta otra vez?



Delphimun   (2001-12-18 17:30) [2]

Bueno por favor !!!!!!!!!!!!!!



Dimka Maslov   (2001-12-18 17:38) [3]

TResourceStream.Create -> TFileStream.Create -> TFileStream.Assign



Delphimun   (2001-12-18 17:56) [4]

Y con un ejemplo.



Delphimun   (2001-12-18 17:59) [5]

Pido disculpas por esa persistencia en una pregunta fácil, pero no tengo ayuda (el disco antiguo con Delphi se rompió, compré uno nuevo, pero no hay ayuda allí)



Delphimun   (2001-12-18 18:11) [6]

Cuando escribo
...
{$ R x: \ cur.res}
...
var
a: TResourceStream;
comenzar
a: = TResourceStream.Create (form1.Handle, "cur", "Cursor");
Me da un error dinámico: no se encuentra la curva de recursos
Aunque el cursor en el recurso se llama cur
¿Y qué debo hacer después de esto, y es posible con un ejemplo?



Dimka Maslov   (2001-12-18 18:33) [7]

TResourceStream.Create ( hInstancia



Delphimun   (2001-12-18 18:40) [8]

Dimka Maslov:
Lo mismo



Иван Шихалев   (2001-12-18 19:04) [9]

El cursor se almacena como una lista de enlaces a sus imágenes. Quizás esto sea un problema, aunque TresourceStream Puede rendir debajo de ella afilada. Mira cómo he recibido los íconos, en la despensa Ícono Extractor, el cursor es completamente similar. Si TresourceStream especialmente afilado, en su lugar "Cursor" debería ayudar RT_CURSOR_GROUP o "CURSOR"



Delphimun   (2001-12-19 12:57) [10]

Cuando escribo
var Curs: HCursor;
CN: cadena;
comenzar
CN: = "cur" + # 0;
{"CUR" es el nombre del archivo Res}
Curs: = LoadCursor (hInstance, @ CN [1]);
Pantalla.Cursores [crHandPoint]: = Curs;
button1.Cursor: = curs;
El cursor del botón no cambia, ¿cuál es el error aquí, es decir, cómo hacer que el botón se convierta en el cursor como recurso?



Digitman   (2001-12-19 13:14) [11]

button1.Cursor es un tipo de tipo TCursor, y está intentando asignarle un valor de tipo HCursor.



Delphimun   (2001-12-19 13:18) [12]

Y cómo hacerlo (cómo traducir Hcursor a Tcursor) Por favor ayuda, pero digo que no tengo ayuda, escribe POR FAVOR!



Digitman   (2001-12-19 13:19) [13]

y en general no es bueno reemplazar los cursores del sistema con los suyos.
const
crMyCursor = 1; // por ejemplo

Screen.Cursors [crMyCursor]: = Curs;
button1.Cursor: = crMyCursor; // me gusta este derecho




Digitman   (2001-12-19 13:20) [14]

y en general no es bueno reemplazar los cursores del sistema con los suyos.
const
crMyCursor = 1; // por ejemplo

Screen.Cursors [crMyCursor]: = Curs;
button1.Cursor: = crMyCursor; // me gusta este derecho




Delphimun   (2001-12-19 13:29) [15]

Digitman:
Por fin, sucedió, un hombre inteligente fue encontrado. Estoy atormentando esta pregunta por segundo día, y uno no puede dar una respuesta, ¡como si alguien nunca la hubiera usado!



Digitman   (2001-12-19 14:51) [16]

> Delphimun
Y luego otra pregunta primitiva similar atormentará la semana. Y todo lo que no sabe es que los tipos deben coincidir, y la información sobre los tipos (al menos en la ayuda es, y la ayuda para usted está escrita) para leerlo ante cualquier problema que surja y no para mantenerlo en el disco.



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.6 MB
Tiempo: 0.043 c
1-22256
cuestionario de caminata
2001-12-15 08:50
2002.01.08
Lectura de valores desde archivo ini


7-22422
savva
2001-09-19 12:42
2002.01.08
Una tarea interesante ... ¿Cómo puede trabajar con un celular a través de un puerto de comunicaciones para hacerlo


1-22026
Romashes stashans
2001-12-18 11:07
2002.01.08
¿Cómo puede Delphi ejecutar * .exe con ....


1-22232
T2
2001-12-16 07:24
2002.01.08
WIN386.SWP


1-22055
walker_ag
2001-12-19 03:27
2002.01.08
¿Cómo hacer esto?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español