Forum | | | | | | - Page 1 - |
| 
Peter
Gückstock | Hi,
have a problem at terminate one Program
the Program becomes a Button normal exits and is too of screen disappeared.
in the Taskmanager läuf the prozess but moreover, d.h. the Interpreter remaining active. too The EXE the program behave itself so.
have your a hint to Fehlersuche or a idea what soetwas cause can?
have already 2 days with Grübeln lost.
many Thanks |
| | | | | | |
| | | | | | - Page 2 - |
| |  | clear the likes too apparently help, remaining but Fusch the on another place again to that Vorschein come can. 
But Wurscht, if it because ausreiche...  |
| | | | | | |
| |
Peter
Gückstock | Hi,
I have now only time whom Hauptteil appended. under VISTA and XProfan 11 (with the newest Update of Roland)
remaining the Process to the terminate the program consist and unetr How to remove and XProfan 10
crashes XProfan to the terminate the program ex
Real to that Verzweifeln, because any others programs functions.
Help,Help....
CompileMarkSeparation $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='./../../Function-References/XProfan/dispose/'>dispose image#
dispose string#
end
|
| | | | | | |
| | | You must already any notwendigen Files append, z.B. in a ZIP-File, so it possible eachone testing can - if you the want.
I have z.B. weder The Includes yet DLLs for.
there The SKControl.dll Image and text in.dll "läuft" would The first question on The jeweiligen Authors: Own Threads?
If each Yes, then can both DLLs so not benefit, without whom Hauptthread the XProfan in menace To bring. (Abstürze, Fehlermeldungen, ...) |
| | | | | | |
| |
Frank
Abbing | The List view.dll created no Threads.
i'm noticed, in the code becomes one InitMessages(%Hwnd) using, but no CloseMessages(%Hwnd). there here both Dlls well the Mainwindow subclassen, is too The Order the Dlls at turn off of subclassing einzuhalten. The sicherste method is in each drop, the Mainwindow To destroy. so becomes The gesubclasste WindowProc In any drop removes, and the externe code won't More carryed out, the u. u. whom crash created. the has with Fusch mere quite nothing To do. |
| | | | | | |
| | | give Fank right
go in of my Beendigungsprocedur so to:
PROC terminate
Delete Object..... any Fonts etc...
CloseMessages(The jeweilige Window-variable) writes The Help the LISTVIEW.DLL to
Destroywindow(%HWnd) - so becomes everything destroy
EE%=1 ...dependent upon the Loop in the program - if EE% before 0 was
END Rückfall in old Basic-times from purer habit
ENDPROC
this is only an example and sees of Program To Program differently from. though is with this manner the terminate too anstanslos exits. end ;) |
| | | | | | |
| | 
E.T. | Have even time one älteres Prog of me rausgesucht, which The SKControl.dll uses.
too these Dll created (by me  ) During low the Program-Ablaufs no own Threads. |
| | | | 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... | 11/17/08 ▲ |
| | |
| | | OK, then can we with the skcontrol Perhaps of Timern go out, what no Problems make ought to, particularly if The Timer by subClassing quizzed go.
The sicherste method is in each drop, the Mainwindow To destroy. so becomes The gesubclasste WindowProc In any drop removes, and the externe code won't More carryed out, the u. u. whom crash created.
this is so just wrong - is me but Wurstegal if so a Solution found watts, The (not) functions. |
| | | | | | |
| |
Frank
Abbing | iF
OK, then can we with the skcontrol Perhaps of Timern go out, what no Problems make ought to, particularly if The Timer by subClassing quizzed go. iFThe sicherste method is in each drop, the Mainwindow To destroy. so becomes The gesubclasste WindowProc In any drop removes, and the externe code won't More carryed out, the u. u. whom crash created. this is so just wrong - is me but Wurstegal if so a Solution found watts, The (not) functions.
iF
so becomes The gesubclasste WindowProc In any drop removes, and the externe code won't More carryed out, the u. u. whom crash created.
its wrong, that The testimony wrong is. I let me but gladly bring round, once You the contrary proved have. |
| | | | | | |
| | | Nunu, komische Formel  |
| | | | | | |
| |
E.T. | means, its wrong, since the testimony wrong is  ??
should whom, if I my (X)Profan-Prog (tidy) finish, really any Threads, which my Prog created,
too with exits go ??
If I Word, Excel or Paintshop or otherwise irgendwelches Program finish, must I still neither nachschauen,
whether yet what of it runs.
And if I my XProfan-Prog say: ENDE!! (in shape of END), then I'm going of it from, the too really everything terminates !! |
| | | | 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... | 11/18/08 ▲ |
| | |
| | | look something with ExitProcess [...]  everything happens, differently as with [...] which behaviour You Yes sooner describe. End power well ExitProcess. |
| | | | | | |
| |
Peter
Gückstock | Hello Profaner,
many Thanks for Tipps,
I faith ,I whom Error found have. Since I with the $H windows.ph,$H structs.ph,$H messages.ph,$H commctrl.ph
and $H shellapi.ph work, have I at terminate "OnApplicationExit" forget. now functions everything.
Greeting Peter |
| | | | | | |
|
AnswerTopic-Options | 13.024 Views |
Themeninformationenthis Topic has 9 subscriber: |
(830)
Deutsch
English
Français
Español
Italia