Foro | | | | | | - Página 1 - |
| 
Peter
Gückstock | ¡Hola,
habe una Problema beim final uno Programms
Das Programa se encima una Button normal final y es auch vom Bildschirm verschwunden.
Im Taskmanager läuf el prozess aber más, d.h. el Interpreter restos aktiv. Auch el EXE des Programms verhält se así.
Habt Ihr una Tip a Fehlersuche oder una Concepto qué soetwas verursachen kann?
Posesiones ya 2 Tage con Grübeln perdido.
vielen Dank |
| | | | | | |
| | | | | | - Página 2 - |
| |  | Klar el mag auch scheinbar helfen, restos aber Fusch el a otro Punto otra vez para Vorschein kommen kann. 
Pero Wurscht, si porque ausreiche...  |
| | | | | | |
| |
Peter
Gückstock | ¡Hola,
Yo habe ahora sólo veces el Hauptteil angehängt. Bajo VISTA y XProfan 11 (con el neusten Actualización de Roland)
restos el Prozess después de el final des Programms bestehen y unetr Windows XP y XProfan 10
stürzt XProfan después de el Beenden des Programms de
Real para Verzweifeln, porque todos otro Programas trabajo.
Ayuda,Ayuda....
KompilierenMarcaSeparación $I PROFALT.INC
$I SKControl.inc
$I Listview_Funktionen.inc
$I WFMCAL.INC
declare image#,string#,h1&,h2&,h3&,h4&,h5&,h6&
Buttons
declare Feiertage&,DateButton1&,DateButton2&,ladenals&,speichernals&,Jubilar&,info&,adress&
declare adresse%,Jubilar%,ende&,beenden&,progende%
declare Text%
Dialoge_Controlls
declare MonthCal1&,Jubibox%,listview_Jubi&,Adressbox&
Farben für Kalender
declare bg&,txt&,titlebg&,titletext&,calcol&,month&
für DLL
declare skDll&,lvdll&
skDll& = UseDll("SKControl.dll")
lvdll& = usedll("Listview.dll")
SKCtrl_InitDll()
=======================Hauptprogramm============================================
SetTrueColor 1
WindowStyle 16
WindowTitle "PGM Terminplaner lite Version alfa 0.1"
Window 100,100-900,600
cls RGB(210,210,210)
SetDialogFont 1
UseFont "Batang",10,0,0,0,0
startPaint %Hwnd
Usebrush 1,RGB(160,160,160)
RoundRect 4,8-878,52;10,10
endpaint
---------------Buttons-----------------------------------------------
dim image#,255
dim string#,255
string image#,0 = @add$(GetDir$("@"),"\feier.rle")
string string#,0 = ""
Feiertage& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(234,234,234),540,10,40,40,%hInstance)
Create("Tooltip",%HWnd,Feiertage&,"Die Feiertage werden berechnet!")
string image#,0 = @add$(GetDir$("@"),"\ok.rle")
string string#,0 = "laden "
DateButton1& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(160,160,160),10,10,110,40,%hInstance)
string image#,0 = @add$(GetDir$("@"),"\ok.rle")
string string#,0 = "sichern"
DateButton2& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(160,160,160),120,10,115,40,%hInstance)
string image#,0 = @add$(GetDir$("@"),"\laden.rle")
string string#,0 = ""
ladenals& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(234,234,234),300,10,40,40,%hInstance)
h1&=Create("Tooltip",%HWnd,ladenals&,"Datei manuell laden!")
string image#,0 = @add$(GetDir$("@"),"\speichern.rle")
string string#,0 = ""
speichernals& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(234,234,234),340,10,40,40,%hInstance)
h2&=Create("Tooltip",%HWnd,speichernals&,"Datei speichern als..!")
string image#,0 = @add$(GetDir$("@"),"\fett.rle")
string string#,0 = ""
Jubilar& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(234,234,234),400,10,40,40,%hInstance)
string image#,0 = @add$(GetDir$("@"),"\help.rle")
string string#,0 = ""
info& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(234,234,234),440,10,40,40,%hInstance)
string image#,0 = @add$(GetDir$("@"),"\lupe.rle")
string string#,0 = ""
adress& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(234,234,234),480,10,40,40,%hInstance)
h5&=Create("Tooltip",%HWnd,speichernals&,"Adresse suchen!")
jubilar%=@Create("Button",%Hwnd,"Jubiläen eintragen",5,550,150,20)
adresse%=@Create("Button",%Hwnd,"Adressen eintragen",155,550,150,20)
string image#,0 = @add$(GetDir$("@"),"\ende.rle")
string string#,0 = ""
ende& = SKCtrl_CreateClrImageButton(%Hwnd,image#,string#,0,0,RGB(110,40,20),RGB(234,234,234),830,10,40,40,%hInstance)
h6&=Create("Tooltip",%HWnd,ende&,"Das Programm wird beendet!")
SetStyle h1&,$0000040 Style für ToolTips
SetStyle h2&,$0000040
SetStyle h3&,$0000040
SetStyle h4&,$0000040
SetStyle h5&,$0000040
SetStyle h6&,$0000040
----CONTROLS--------------------
text% = Create("RichEdit",%HWnd,"",300,90,550,350)
SendMessage(text%,$0443,0,rgb(200,200,180))
Let MonthCal1&=Control("SysMonthCal32","",$54800005,10,60,220,175,%hwnd,0,%hinstance,$0)
Jubibox%=@Create("ListBox", %Hwnd, 1, 10, 250, 220, 150)
listview_Jubi&=CreateListview(%Hwnd,%hinstance,0,Rgb(255,255,255),-1,$31)
InsertColumn listview_Jubi&,"Monat",100,0
InsertColumn listview_Jubi&,"Tag",50,0
InsertColumn listview_Jubi&,"Name",220,0
InsertColumn listview_Jubi&,"Text",380,0
AutoSortListview listview_Jubi&,2,2,2,2
Adressbox&=CreateListview(%Hwnd,%hinstance,0,Rgb(255,255,255),-1,$31)
InsertColumn Adressbox&,"Name",160,0
InsertColumn Adressbox&,"Vorname",120,0
InsertColumn Adressbox&,"Firma",180,0
InsertColumn Adressbox&,"Strasse",150,0
InsertColumn Adressbox&,"Postleizzahl",80,0
InsertColumn Adressbox&,"Ort",180,0
InsertColumn Adressbox&,"Telefon",120,0
InsertColumn Adressbox&,"Mobil",120,0
InsertColumn Adressbox&,"E-Mail",190,0
ShowListView(Adressbox&,4,450,878,80)
InitMessages(%Hwnd)
-------------- Farben für Kalender --------------------------------------------------
bg&= rgb(255,255,0)
txt&=rgb(0,0,0)
titlebg&= rgb(255,0,241)Farbe für Titelzeile, Wochentage und Wochenzahlen
titletext&= rgb(255,255,0)Titelfarbe des Monatsnamens
calcol&= rgb(255,255,255) Farbe des Fensters
month&= rgb(192,192,192)
setmccolors(monthcal1&,bg&,txt&,titlebg&,titletext&,calcol&,month&)
----------- Steuerung der Aktionen --------------------------------
WhileNot ende&=1
WaitInput
------------------------------------------------------------------------
If GetFocus(Jubilar%)
jubi
endif
------------------------------------------------------------------------
If GetFocus(adresse%)
Adressen
endif
-------------------------------------------------------------------------
If GetFocus(DateButton1&) Aufruf Dialog zum Laden/Speichern
Dim DateTimePick#,20
DTP_GETSYSTEMTIME(MonthCal1&,DateTimePick#)
Let Meldung$ = Str$(word(DateTimePick#,6));".";Str$(word(DateTimePick#,2));".";Str$(word(DateTimePick#,0))
Monat$= Str$(word(DateTimePick#,2))
Dispose DateTimePick#
Eintrag_laden
Endif
-------------------------------------------------------------------------------
If GetFocus(DateButton2&) Aufruf Dialog zum Laden/Speichern
Dim DateTimePick#,20
DTP_GETSYSTEMTIME(MonthCal1&,DateTimePick#)
Let Meldung$ = Str$(word(DateTimePick#,6));".";Str$(word(DateTimePick#,2));".";Str$(word(DateTimePick#,0))
Dispose DateTimePick#
Eintrag_speichern
Endif
------------------------------------------------------------------------------
if getfocus(beenden&)
@destroywindow(Feiertagdialog&)
endif
-------------------------------------------------------------------------------
if getfocus(speichernals&)
datei_speichernals
endif
---------------------------------------------------------------------------------
if getfocus(ladenals&)
Datei_LadenAls
endif
---------------------------------------------------------------------------------
if getfocus(Feiertage&)
Feiertage
endif
----------------------------------------------------------------------------------
if getfocus(Jubilar&)
jubi_manuell
endif
-------------------------------------------------------------------------------------
IF GETFOCUS(Info&)
info
endif
-------------------------------------------------------------------------------------
IF GETFOCUS(adress&)
suchen
endif
--------------------------------------------------------------------------------------
If getfocus(ende&)
progende%=@Messagebox("Soll das Programm ohne speichern beendet werden?","ACHTUNG",308)
if progende%=6
@destroywindow(Aktionsdialog&)
ende&=1
endif
endif
----------------------------------------------------------------------------------------
endwhile
freedll lvdll&
freedll skdll&
href='./../../funktionsreferenzen/XProfan/disponer/'>disponer image#
disponer cadena#
end
|
| | | | | | |
| | | Usted musst ya todos notwendigen Archivos anhängen, z.B. en uno ZIP-Expediente, así lo möglichst cada testen kann - si el willst.
Yo habe z.B. weder el Incluye todavía DLL dafür.
Como el SKControl.dll y Listview.dll "läuft" wäre el erste Cuestión a el jeweiligen Autores: Eigene Hilos?
Wenn jeweils sí, entonces puede ser beide DLL así no nutzen, sin el Hauptthread des XProfan en Gefahr a bringen. (Se bloquea, Fehlermeldungen, ...) |
| | | | | | |
| |
Frank
Abbing | El Listview.dll producido no Hilos.
Mir es aufgefallen, en el Code se una InitMessages(%Hwnd) benutzt, aber kein CloseMessages(%Hwnd). Como hier beide Dlls wohl la ventana principal subclassen, es auch el Reihenfolge el Dlls beim Abschalten des Subclassings einzuhalten. El sicherste Método es aber en cada Fall, la ventana principal a zerstören. Damit se el gesubclasste WindowProc en cada Fall lejos, y externe Code no es mehr ausgeführt, el u. U. el Choque producido. Das ha con Fusch rein gar nichts a tun. |
| | | | | | |
| | | Gebe Fank bastante
Gehe en meiner Beendigungsprocedur así antes:
PROC Beenden
Delete Object..... todos Fonts usw...
CloseMessages(el jeweilige Ventana-Variabel) schreibt el Ayuda el LISTVIEW.DLL antes
Destroywindow(%HWnd) - así se alles zerstört
EE%=1 ...abhängig de el Bucle en el Programa - si EE% vorher 0 war
FIN Rückfall en alte Basic-Veces de purer Gewohnheit
ENDPROC
Es sólo una Ejemplo y sieht de Programa a Programa anders de. Aunque es con dieser Art des Beenden auch anstanslos final. Ende ;) |
| | | | | | |
| | 
E.T. | Hab eben veces una älteres Prog de me rausgesucht, welches el SKControl.dll nutzt.
Auch esta Dll producido (en me  ) wärend des Programa-Ablaufs no eigenen Hilos. |
| | | | Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 17.11.2008 ▲ |
| | |
| | | Ok, entonces puede wir en skcontrol tal vez de Timern ausgehen, qué no Problemas hacer debería, besonders si la Temporizador por subClassing abgefragt voluntad.
El sicherste Método es aber en cada Fall, la ventana principal a zerstören. Damit se el gesubclasste WindowProc en cada Fall lejos, y externe Code no es mehr ausgeführt, el u. U. el Choque producido.
Es así simplemente sólo falso - me está aber Wurstegal si así una solución gefunden wurde, el (no) funktioniert. |
| | | | | | |
| |
Frank
Abbing | IF
Ok, entonces puede wir en skcontrol tal vez de Timern ausgehen, qué no Problemas hacer debería, besonders si la Temporizador por subClassing abgefragt voluntad. IFEl sicherste Método es aber en cada Fall, la ventana principal a zerstören. Damit se el gesubclasste WindowProc en cada Fall lejos, y externe Code no es mehr ausgeführt, el u. U. el Choque producido. Es así simplemente sólo falso - me está aber Wurstegal si así una solución gefunden wurde, el (no) funktioniert.
IF
Damit se el gesubclasste WindowProc en cada Fall lejos, y externe Code no es mehr ausgeführt, el u. U. el Choque producido.
Es falso, dass el Aussage falso es. Yo lasse mich aber gerne umstimmen, sobald Si es usted el Gegenteil bewiesen hast. |
| | | | | | |
| | | Nunu, komische Formel  |
| | | | | | |
| |
E.T. | Also, es falso, como el Aussage falso es  ??
Sollten el, si yo mein (X)Profano-Prog (ordentlich) beende, eigentlich todos Hilos, welche mein Prog producido,
auch con darse por concluido ??
Wenn Yo Word, Excel oder Paintshop oder sonst irgendwelches Programa beende, muß Todavía auch no nachschauen,
si todavía qué su se ejecuta.
Und si yo mi XProfan-Prog sage: ENDE!! (en Form de FIN), entonces gehe Yo su de, el auch wirklich alles termina !! |
| | | | Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 18.11.2008 ▲ |
| | |
| | | Schau algo en ExitProcess [...]  alles passiert, anders como en [...] welches Comportamiento Usted sí más beschreibst. End macht wohl ExitProcess. |
| | | | | | |
| |
Peter
Gückstock | ¡Hola Profaner,
vielen Dank para el Tipps,
Yo glaube ,dass Yo, el Fehler gefunden habe. Desde que con el $H windows.ph,$H structs.ph,$H messages.ph,$H commctrl.ph
y $H shellapi.ph arbeite, Yo beim final "OnApplicationExit" vergessen. Jetzt funktioniert alles.
Saludo Peter |
| | | | | | |
|
RespuestaTema opciones | 13.472 Views |
ThemeninformationenDieses Thema ha 9 subscriber: |
(1.126)
Deutsch
English
Français
Español
Italia