Foro | | | | - Página 1 - |
| Thomas Freier | Ayuda, nuevo problema y no me vienen más.
Cuando tengo un texto en vertical editará, EDIT es el único conservado, cuando el derecho de Palabra que empieza con o Botón del ratón y mantenga el cursor se trasladó a EDIT. ¿Cómo puede la resolverse? KompilierenMarcaSeparaciónDEF GetSysColor(1) !"USER32","GetSysColor"
Def WindowFromPoint(2)!"USER32","WindowFromPoint"
Def GetCursorPos(1) !"USER32","GetCursorPos"
Declare p#,h&
Dim p#,8
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Def GetTextExtentPoint32(4) !"GDI32","GetTextExtentPoint32A"
Def ReleaseDC(2) !"USER32","ReleaseDC"
Def GetDC(1) !"USER32","GetDC"
declare x%,y%
Proc GetTextExtent
Parameters _t$,_w%
declare _size#,_text#,_result&,_hdc&
dim _text#,Len(_t$) + 1
dim _size#,8
String _text#,0 = _t$
_hdc& = GetDC(GetActiveWindow())
GetTextExtentPoint32(_hdc&,_text#,Len(_t$),_size#)
_result& = Long(_size#,4)
Case _w% : _result& = Long(_size#,0)
ReleaseDC(GetActiveWindow(),_hdc&)
dispose _text#
dispose _size#
return _result&
EndProc
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Def @Clienttoscreen(2) !"USER32","ClientToScreen"
Def @G2lx(0) @Long(C2sstrc#,0)
Def @G2ly(0) @Long(C2sstrc#,4)
Proc G2l
Parameters Hdl&
Clear C2sstrc#
@Clienttoscreen(%Hwnd,C2sstrc#)
x%=@G2lx()
y%=@G2ly()
Clear C2sstrc#
@Clienttoscreen(Hdl&,C2sstrc#)
x%=@G2lx()-x%
y%=@G2ly()-y%
Endproc
Declare C2sstrc#
Dim C2sstrc#,8
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SubClassProc
case SubClassMessage(h&, $201): PostMessage(h&, $A1, $2, 0)
Endproc
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Window 1000,600
WindowTitle "Objekte bewegen"
UseFont "Arial",16,0,0,0,0
var LV_Font&=CreateFont("Arial",15,0,0,0,0)
SETDIALOGFONT LV_Font&
Declare b.obj&[],b.x%[],b.x1%[],b.y%[],b.y1%[], b.text$[],b.lage$[]
Declare b.xn%
Declare pic1&
DrawPic "Hemmelsdorf.png",0,0;0
DrawText 10,10,"Verschieben nach Doppelklick links; " +
"NEU (Ändern) : Rechtsklick freie Fläche (Text).... mit RETURN oder Klick ins Fenster übernehmen."
b.xn%=1
b.x%[b.xn%]=720
b.y%[b.xn%]=140
b.text$[b.xn%]="K. Mustermann"
b.lage$[b.xn%]="W"
Boot_obj b.xn%
Subclass b.obj&[b.xn%],1
b.xn%=2
b.x%[b.xn%]=448
b.y%[b.xn%]=320
b.text$[b.xn%]="E. Wassermann"
b.lage$[b.xn%]="S"
Boot_obj b.xn%
Subclass b.obj&[b.xn%],1
b.xn%=2
While 1
WaitInput
Case %key=2:Break
Whileloop b.xn%
G2l b.obj&[&loop]
b.x%[&loop]=x%
b.y%[&loop]=y%
EndWhile
GetCursorPos(p#)
h&=WindowFromPoint(Long(p#,0),Long(p#,4))
Locate 0,0
if %MouseKey=2
x%=1
Whileloop b.xn%' Anzahl der Objekte
if Mouse(b.x%[&loop],b.y%[&loop] - (b.x%[&loop]+b.x1%[&loop]),(b.y%[&loop]+b.y1%[&loop]))
ShowWindow(b.obj&[&loop],0)
Element_Edit &loop' EDIT-Feld
Subclass b.obj&[&loop],1
x%=0
break
endif
wend
if x%=1
inc b.xn%
b.x%[b.xn%]=%MouseX
b.y%[b.xn%]=%MouseY
b.text$[b.xn%]=""
b.lage$[b.xn%]="W"
Element_Edit b.xn%
Subclass b.obj&[b.xn%],1
endif
endif
SetFocus(%HWND)
EndWhile
DeleteObject LV_Font&
DeleteObject pic1&
Whileloop b.xn%
Subclass b.obj&[&loop],0
EndWhile
Dispose C2sstrc#
Dispose p#
End
Proc Boot_obj
Parameters b.xi%
UseFont "Arial",(16+2),0,0,0,0
GetTextExtent b.text$[b.xi%],1'Textlänge
b.x1%[b.xi%] = &(0)+0'Länge
GetTextExtent b.text$[b.xi%],0
b.y1%[b.xi%] = &(0)+4'Höhe
If trim$(b.lage$[b.xi%]="S")'Länge+Höhe tauschen bei senkrecht
x%=b.y1%[b.xi%]
b.y1%[b.xi%]=b.x1%[b.xi%]
b.x1%[b.xi%]=x%
endif
MCls b.x1%[b.xi%], b.y1%[b.xi%] ,RGB(255,255,255)
StartPaint -1
TextColor @RGB(0,0,160), -1
If trim$(b.lage$[b.xi%]="W")
Set("Orientation", 0)
UseFont "Arial",16,0,0,0,0
DrawText 0, 2, b.text$[b.xi%]
ElseIf trim$(b.lage$[b.xi%]="S")
Set("Orientation", 2700)
UseFont "Arial",(16-1),0,0,0,0
DrawText b.x1%[b.xi%]-2, 0, b.text$[b.xi%]
Endif
Endpaint
Set("Orientation", 0)
pic1&=Create("hPic",0,"&MEMBMP" )
b.obj&[b.xi%]=Control("DIALOG","",$54001100,b.x%[b.xi%], b.y%[b.xi%], b.x1%[b.xi%], b.y1%[b.xi%],%hwnd,0,%hinstance,$0)
Create("Bitmap",b.obj&[b.xi%], pic1&,0, 0)
Endproc
Proc Element_Edit
Parameters b.xi%
var Element&= CreateEdit(%hwnd,b.text$[b.xi%],b.x%[b.xi%], b.y%[b.xi%], 120, 22)
SetFont Element&,LV_Font&
var Element1&=Create("GroupBox",%hwnd,"",(b.x%[b.xi%]+124), (b.y%[b.xi%]-8),80,30)
CreateText(Element1&,"",2,10,76,18)
var hor&=Create("RadioButton",%hwnd,"",(b.x%[b.xi%]+126),(b.y%[b.xi%]+5),12,12)
var t1&=CreateText(Element1&,"0°",18,11,14,16)
var sen&=Create("RadioButton",%hwnd,"",(b.x%[b.xi%]+166),(b.y%[b.xi%]+5),12,12)
var t2&=CreateText(Element1&,"90°",56,11,22,16)
SetFont hor&,LV_Font&
SetFont t1&,LV_Font&
SetFont t2&,LV_Font&
If trim$(b.lage$[b.xi%]="W")
SetCheck hor&,1
else
SetCheck sen&,1
EndIf
Setfocus(Element&)
SendString(Element&,"+({END})")'Text Markieren und Cursor ans Ende
Setfocus(Element&)
While 1
GetMessage
If GetFocus(%hwnd)
b.text$[b.xi%] = GetText$(Element&)
If GetCheck(hor&)
b.lage$[b.xi%]="W"
Else
b.lage$[b.xi%]="S"
EndIf
BREAK
Elseif IsKey(13) OR IsKey(27)
b.text$[b.xi%] = GetText$(Element&)
If GetCheck(hor&)
b.lage$[b.xi%]="W"
Else
b.lage$[b.xi%]="S"
EndIf
BREAK
endif
wend
DestroyWindow(Element&)
DestroyWindow(Element1&)
DestroyWindow(hor&)
oyWindow(sen&)
Boot_obj b.xi%' Nuevo objeto de texto
ENDPROC
|
| | | | |
| | | | | - Página 1 - |
| Jörg Sellmeyer | Es muy fresco (excepto por el hecho, que a través de su código no subir de nuevo...) ¿Tengo tiempo para traducir de XPSE dejar. Si usted no puede hacer la comunidad pagar por una opción, daß XPSE-Code se traduce a lo profano?
Si hay doble clic sobre un objeto Por cierto accidente. Aunque sólo, después de que se movía habe. |
| | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.07.2010 ▲ |
| |
| | | Relacionado con la Haga doble clic en correcto, existe falta un objeto de texto si = típico - Fuente sería sólo amplió voluntad.
>> Profano se traduce se
Tome el código, pero por favor, como él es, el cuerpo que tiene, porque ininteligible? |
| | | | |
| | Jörg Sellmeyer | Está todo bien - No me volví pensamiento, ahora sí que las variables de lo profano; sabe sin Postfix. |
| | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.07.2010 ▲ |
| |
| | Thomas Freier | Sí fresco, y tuve grave de alimentos Ala "IFDRW V0.0.1" esperado. Se me permite, en el korell.exe no Mover objetos. La cruz erscheint, pero no más allá Reacción. Las caídas más dejó que su falta. Si yo había puesto en práctica Profancode, Me quito la semana que viene por delante o por Fiesta, si ninguna de estas Laxe aumento de la temperatura del agua. |
| | | | |
| | | Hola Tomás,
Si presenta problemas con ustedes - excepto doble click en algo que no sea de texto - Yo sería sólo el quieren encontrar errores.
Del mismo modo, en caso de los objetos con la Ratón se puede mover con facilidad.
Si no eres tú funzt, Me gustaría saber, por qué o. ¿qué es exactamente va mal.
>> Si "de Profancode se llevó a cabo,
En realidad, yo quería que el trabajo y eliminar el texto que había tambor gepinselt. ^ ^.. |
| | | | |
| | | | - Página 2 - |
| | Thomas Freier | Hola si, el "Neubau" ha uns sí a dieser Punto unterbrochen. Also, con el Koroll.exe kann Yo sólo neue Objetos redactar pero no bewegen (gif). Also, script intenta a starten y como el XProfan Compiler por XPSE ersetzt. Ist el Richtig?. Leider kommt igual el Meldung: "Definition en el Encabezamiento fehlt: GETSCROLLPOS(" . Hier entonces después de XPSE gesucht y No se ha encontrado. Como mach Yo also más? |
| | | | |
| | | > Also, con el Koroll.exe kann Yo sólo neue Objetos redactar pero no bewegen (gif).
Usted puede Objetos simplemente por Botón del ratón anfassen y mover - ha bisher en no meiner Computer no funktioniert. Si el No en trabajo entonces läge me necesariamente algo daran a wissen qué con usted sale mal. El Objetos puede auch animiert ser - el Engine cualquier a erweitern biete Yo Usted gerne a. (Mir aber momentan Zeh bastante wehtut)
> Also, script intenta a starten y como el XProfan Compiler por XPSE ersetzt. Ist el Richtig?
Auf no Fall!
Man kopiert xpse simplemente en el XProfanverzeichnis wo auch z.B. el profano.exe y XProfan-Kompiler mentira y el IDE son uno XPSE como Kompiler a oder uno stellt ihn como Werkzeug una. Aufruf bastante normal xpse.exe quelltext.datei. Von XProfan ersetzt se como nichts y nichts überschrieben, XPSE son doch seine verrichtetet Arbeit a el XProfan-Kompiler más por qué dieser no fehlen darf. (Was XPSE aber auch anmeckert si kein XProfan-Kompiler gefunden...) |
| | | | |
| | | Apéndice vom Handy ausm Bett hehe: xpse ha seine feste Adresse bajo [...] y es incluso en el Helfern para encontrar. |
| | | | |
| | Thomas Freier | IF, sólo una vez flotte Genesung. Mover objetos es de meiner Página en el Herbst vertagt. Sombrero also Tiempo! Werde lo más testen como kommt. Puedo en media Laptops con XP SP2 kein Objeto mover. Lo kommt el Curserkreuz, el Objeto ha el Focus y el war's. Merkwürdiger Weise Yo bajo XP Tablet no Se bloquea. Como kann Yo zigmal Objetos aktivieren y versuchen ellos a mover, neu invertir, Texto ändern y löschen. Eigentlich son deine Programas doch neutral. Hier verstehe Yo el PC-Welt no mehr. XPSE Tuve zwischenzeitlich gefunden y el letzte Versión en el XProfan11 - Ordner kopiert. |
| | | | |
| | | >> IF, sólo una vez flotte Genesung.
Gracias, brauche Yo wirklich.
>> Puedo en media Laptops con XP SP2 kein Objeto mover.
Verstehe y kurios, hatte lo en XP SP2 programmiert - el Fehler encontrar wir aber determinado.
>> Lo kommt el Curserkreuz, el Objeto ha el Focus y el war's.
Schonmal bien porque el "Focus" ebenso gemalt es.
>> Merkwürdiger Weise Yo bajo XP Tablet no Se bloquea. >> Eigentlich son deine Programas doch neutral. Hier verstehe Yo el PC-Welt no mehr.
Como wären 2 Dinge el Yo así en el Hinterkopf como vlt. "verantwortlich" erkläre - si yo media Programmier-PC otra vez bajo el Fingern habe puede wir vlt. testen. |
| | | | |
| | Thomas Freier | IF, el ha Tiempo. Bin ohnehin ahora algunos Wochen sin Internet en nördlicheren Spielwiesen: [...] y [...] . Und si du con deinem Luna-Mobil spielst, sei nächstes Tiempo vorsichtiger oder ziehe Sicherheitsschuhe a. |
| | | | |
| | | Gracias! |
| | | | |
|
RespuestaTema opciones | 13.666 Views |
ThemeninformationenDieses Thema ha 3 subscriber: |