WindowStyle

[Frabbing]

Nur mal nachgefragt. Welchem MS-Windowstyle soll der Dialogstil eigentlich entsprechen?

[ts-soft]

Ich denke mal, das DialogFenster sind jene welche, die aus einer
DialogResource, bzw. einem DialogTemplate erstellt werden.
Solche Fenster wurden vor ein paar Jahren noch oft genutzt,
aber der Trend geht eher nach CreateWindowEx.

Das "Nicht-Dialog" Fenster entspricht IMHO dem normalem Fenster, aber
durch das autom. Neuzeichenen wegen Print usw. ist es als solches
kaum nutzbar .

Aber das sind jetzt nur meine Vermutungen , da diese beiden Fenstertypen
Ihre Events unterschiedlich handeln. Diese internen Unterschiede sollten
IMHO nicht beim Programmierer zum tragen kommen, zumindest bei
Standard-Ereignissen, wie WM_CLOSE.

[Volkmar]

Ich denke mal, der Unterschied liegt beim Hauptfenster in der verwendeten Fensterprozedur. Denn das Hauptfenster mit Dialogstil reagiert genau so, wie ein normaler Windows-Dialog inbezug auf Controls. Auf einem 'normalen' Hauptfenster geht letztendlich die Tab-Taste zum Weiterschalten nicht von selbst und Controls reagieren insgesamt auch etwas anders. Es sei denn, du baust Dir alles selbst. Da komme ich für kleinere Sachen mit dem Dialogstil, auch wenn das kein reguilärer Windowstil ist, ganz gut zurecht, wenn ich nur ein paar Controls auf dem Hauptfenster brauche. Übrigens, Hauptfenster in XProfan ist in anderen Sprachen das TopLevel-Fenster einer Anwendung.
Und warum das automatische Neuzeichnen diese Fenster unbrauchbar macht, erschließt sich mir auch nicht. Schließlich hast Du es ja imit Set("AutoPaint"..) in der Hand, ob Du das selbst übernehmen willst. Und der Neueinsteiger ohne Windowserfahrung wundert sich höchstens bei anderen Sprachen, warum in sein Fenster immer wieder alles verschwindet. ist letztendlich eine Frage, was Du schreibst. Vielfach ist das automatische Neuzeichnen sogar hilfreich. Aber wie gesagt, Du kannst es abschalten.
Es ist eher eine Frage, wer was programmiert. Und wie er vorgehen möchte.
Auf jeden Fall sollte das Schließen von Fenstern wirklich mal anders realisiert werden. Eine einheitliche Reaktion auf "Schließen", egal ob Menüeintrag oder Schließbutton in allen Stilen, die dem Nutzer dann jede mögliche Reaktion erlaubt.

Gruß Volkmar

[Frabbing]

Bei einem %key = 2 nicht wie End, sondern wie Break reagieren. Ist eigentlich simpel.

[Volkmar]

Aber eben nur, wenn das Hauptfenster Dialogstil hat. Ansonsten klappt das, wenn ich über den Stil das Systemmenü abfragbar mache. Und genau da liegt das Problem, das reagiert nicht korrekt auf den Schließbutton in der Titelzeile. Der macht einfach das Fenster zu ohne zu berücksichtigen, was ich beim Schließen ausführen wollte. Deshalb wäre es eben wünschenswert, eine einheitliche Schließaktion zu haben. Die vergleichbar mit der Abfrage %key=2 ein Break oder einen beliebigen Prozeduraufruf erlaubt. Und eventuell sogar das reale Schließen des Fensters vom Benutzerwunsch abhängig macht. Es könnte ja auch der Wunsch aufkommen, das Fenster dann einfach in die Taskbar zu legen. Obwohl ich solche Programme eigentlich nicht mag. Das führt gerne mal zu Fehleinschätzungen.

Gruß Volkmar

[ts-soft]

Im moment macht Profan ein DestroyWindow wenn kein Dialogstil vorliegt
und das ist für mich inakzeptabel. Das Fenster sollte nur von Profan zerstört
werden, wenn entsprechender Code vorliegt oder das Programm zuende ist.
Der Anwender signalisiert durch drücken des Buttons, das er das Fenster
schließen möchte und der Programmierer sollte darauf reagieren und nicht
Profan!

Abgesehen von Aufräumarbeiten ist es für das Programm evtl. günstiger das
Fenster nur zu verstecken um ein erneutes Anzeigen zu beschleunigen usw.

Mehr als eine neue Abbruchbedingung die unabhängig vom Stil funktoniert,
Einsteigerfreundlich ist, ist doch nichts gefordert hier.

Wobei mich persönlich stört es auch, irgendwelche Stile auszurechnen, wo
ich jedesmal die Hilfe aufschlagen muß, weil es keine benannten Konstanten
gibt, aber das ist eine andere Sache

[Volkmar]

Für einige Windowstile in XProfan gibt es keine Entsprechung in Windows, benannte Konstanten wären also auch eine Eigenschöpfung. Außer dem Dialogstil gibt es noch andere Fensterstile. Auch da gibt es die, leider unvollkommende Möglichkeit, Schließanforderungen zu behandeln, ohne daß ein Destroy zwangsweise ausgeführt wird. Wenn das Fenster nur verborgen werden soll, warum nicht. Aber eine einheitliche vom Stil unabhängige Behandlung der Schließanforderung wäre für eine künftige Version schon wünschenswert.

Gruß Volkmar

[GT43A]

Hallo,
habe da ein Riesen Problem!

wenn ich in mein Prog so starte.

'======================= HAUPTPROGRAMM =================================
WindowStyle 11
Set("TrueColor", 1)
WindowTitle Programm_Info$
Window (%MaxX + 20),0 - PosX2(%MaxX), PosY2(%MaxY)
Usermessages ~wm_close 'damit ich das Schlissen im Hauptfenster abfangen kann
'-WindowBackground
'-----------------------------------------------------------------------
CLS ~GetSysColor(~Color_BtnFace)
'**************************************************************************************

bleibt die EXE im den Prozessen hängen und 100% CPU Auslastung.
Mein Programm ist beendet das Fenster ist zerstört und nun?



Benutz ich WindowStyle 523 ist alles OK

[GT43A]

Mano mit 512

geht ShowWindow(Fenster&,3) nicht

'Prüfen ob das Programm schon ausgeführt wird, wenn ja in den Vordergrund im Vollbild Modus setzen, oder eben  ausführen!
$I Programm_im_Speicher.inc
IF Check_doppelstart("VerwaltungundAuswertungsplaner") = 0
  MessageBox("Das Programm ist schon aktiv","Verwaltung und Auswertungsplaner",16)
  CloseHandle(Mutex&)
  var Fenster& = MyFindWindow(Programm_Info$)
  Dispose FindWindowFlags#
  ShowWindow(Fenster&,3)
  End
endif

Das ist doch zu Mäusemelken.

[GT43A]

Hallo ich noch mal,

Ich habe NICHT DestroyWindow und ShowWindow gleichzeitig benutzt!!!

Proc Ende_der_Applicationen
 
   @DestroyWindow(%hWnd) 'alles OK auch mit Stil 11
 
  'ShowWindow(%hWnd,0) 'Prozesse 100% CPU warum????
  
  SKCtrl_DeInitDll()
  'Dll freigeben...
  FreeDll hdll&
  freedll lvdll&
 
  DeleteObject hBild&,Bild1&
  DeleteObject Dialog_Font&
  Dispose DateTimePick#
  Dispose Bereich#
  Dispose F_bereich#
  Dispose Flo#,RECT#
 
' ProSpeed.dll
  If array1& > 0
    FreeFX(array1&)
    FreeFX(array2&)
    FreeFX(array3&)
  Endif
 
  FreeImage(logo&)
  FreeImage(logo2&)
  FreeImage(logoback&)
 
  freedll neu&
'################## 
 '@DestroyWindow(%hWnd) 'Programm stürzt ab und MSN Debugger Startet???
EndProc

[ts-soft]

Hallo Gerd,

Du solltest Dir angewöhnen, nur ausführbare Codes hier zu posten,
ansonsten ist es nur selten möglich und sehr umständlich, den
Fehler zu finden.

Zu lange Codes solltest Du soweit kürzen, das sie weiterhin Ausführbar sind
und den Fehler reproduzieren, aber keine unnötigen Elemente enthalten.

Sollten DLLs zur reproduktion des Fehlers unabdingbar sein, so sollte Dein
Posting links enthalten, wo man diese Laden kann (dasselbe gilt für Bilder
usw.)

In Deinem vorletztem Post kann ich mangels Ausführbarkeit nur folgendes
erkennen:

var Fenster& = MyFindWindow(Programm_Info$)
Dispose FindWindowFlags#   
ShowWindow(Fenster&,3)

Fenster& wird nicht auf <> 0 getested, das ist "stümperhaft"

Solche Dinge müssen immer überprüft werden!

Ich hoffe Du nimmst mir das jetzt nicht krumm, aber das mußte mal gesagt werden
und mit dem nächsten geposteten Source kann man hoffentlich
mehr anfangen.

[GT43A]

Hallo Thomas,

Ne ne ich bin sogar froh über Kritik und Anregungen von euch denn nur so kann ich lernen!

Webpage Frabbing Listview.dll und ProSpeed.dll

Sebastian's Profan² Page SKControl.dll

Zu lange Codes solltest Du soweit kürzen, das sie weiterhin Ausführbar sind
und den Fehler reproduzieren, aber keine unnötigen Elemente enthalten.

Hab ich mal versucht!

Wie geschrieben als EXE beim Auslesen_Sichern „in dieser Einstellung MSN Debuger“!

$H windows.ph
$H messages.ph
$H Structs.ph
Def Createmutex(3) !"KERNEL32","CreateMutexA"
Def CloseHandle(1) !"KERNEL32","CloseHandle"
Def GetSysColor(1) !"USER32","GetSysColor"
 
Struct enumflags = Titel$(260), hWnd&
Declare FindWindowFlags#,Mutex&,Programm_Info$
Dim FindWindowFlags#, enumflags
Programm_Info$ = "Test Programm"
' *M Proc's
Proc Check_doppelstart
Parameters Mutex&,Name$ ' Mutexname
Declare Error&
Var fm& = Set("FastMode", 1)
Error& = %WinError
Mutex& = Createmutex(0,1,Addr(Name$))
Error& = %WinError
Set("FastMode", fm&)
If Error& = 183
 Return 0
Endif
Return 1
Endproc
Proc EnumWindows
Parameters hWnd&, lParam&
If Not(~IsWindowVisible(hWnd&)) ' unsichtbare Fenster ignorieren
 Return 1
EndIf
If Instr(FindWindowFlags#.Titel$, GetText$(hWnd&))
 FindWindowFlags#.hWnd& = hWnd&
 Return 0
Else
 Return 1
EndIf
EndProc
Proc MyFindWindow
Parameters Titel$
FindWindowFlags#.Titel$ = Titel$
FindWindowFlags#.hWnd& = 0
~EnumWindows(ProcAddr("EnumWindows", 2), 0)
Return FindWindowFlags#.hWnd&
EndProc
IF Check_doppelstart("TestTestTest") = 0
MessageBox("Das Programm ist schon aktiv",Programm_Info$,16)
CloseHandle(Mutex&)
var Fenster& = MyFindWindow(Programm_Info$)
Dispose FindWindowFlags#
Case Fenster& <> 0 : ShowWindow(Fenster&,3)
End
endif
'***********************************************************************************
$P*
@Set("ErrorLevel", 0)
' *M Include-Dateien
$I PROFALT.INC
$I SKControl.inc
$I Prospeed_Funktionen.inc
$I Listview_Funktionen.inc
Declare ProSpeed&,logo&,logoback&,logo2&,Fx&,Fy&,array1&,array2&,array3&,F_bereich#
Declare lvdll&,Listview&,Bereich#,Bytes&,BZahl!
Declare Listview_Hintergrund&,Listview_Tätigkeit&,Bereich2#
Declare string#,image#,RECT#,Arbeitsbereich_Max_X&,Arbeitsbereich_Max_Y&,TaskbarX&,TaskbarY&
Declare SKCon$,SKCondll&,x&,ProgrammPfad$
ProgrammPfad$ = $ProgDir + "\\Firma"
ChDir ProgrammPfad$
Struct RECT = ~RECT
Dim RECT#, RECT
Dim string#,255
Dim Bereich#,320
Dim F_bereich#,512
 
' *M DLL-Dateien
SKCondll& = usedll("SKControl.dll")
SKCtrl_InitDll()
ProSpeed&=usedll("ProSpeed.dll")
lvdll&=usedll("Listview.dll")
Proc CreateMainMenu
Popup "&"
AppendMenu 1,"&"
Popup "&"
AppendMenu 2,"&"
Popup "&"
AppendMenu 3,"&"
EndProc
Proc Arbeits_bereich
Parameters Dialog_Fenster&
~GetClientRect(Dialog_Fenster&, RECT#)
Arbeitsbereich_Max_X& = Int(RECT#.Right& - RECT#.Left&)
Arbeitsbereich_Max_Y& = Int(RECT#.Bottom& - RECT#.Top&)
EndProc
Proc PosY1
'Fenster Mittig
Parameters Win_Y&
~SystemParametersInfo(~SPI_GETWORKAREA, 0, Rect#, 0)
TaskbarY& = ((%MaxY - (Rect#.Bottom& - Rect#.Top&)) \ 2 )
var YMax& = %MaxY - TaskbarY&
If Win_Y& > YMax&
 'Grösser als Max
 Win_Y& =  0
Else
 Win_Y& = (((%MaxY  - Win_Y&) \ 2) - TaskbarY&)
Endif
Return Win_Y&
EndProc
Proc PosX1
'Fenster Mittig
Parameters Win_X&
~SystemParametersInfo(~SPI_GETWORKAREA, 0, Rect#, 0)
TaskbarX& = ((%MaxX - (RECT#.Right& - RECT#.Left&)) \ 2 )
var XMax& = %MaxX - TaskbarX&
If Win_X& > XMax&
 'Grösser als Max
 Win_X& =  0
Else
 Win_X& = (((%MaxX  - Win_X&) \ 2) - TaskbarX&)
Endif
Return Win_X&
EndProc
Proc PosY2
'Fenster Mittig
Parameters Win_Y&
~SystemParametersInfo(~SPI_GETWORKAREA, 0, Rect#, 0)
TaskbarY& = (%MaxY - (Rect#.Bottom& - Rect#.Top&))
var YMax& = %MaxY - TaskbarY&
If Win_Y& > YMax&
 'Grösser als Max
 Win_Y& =  YMax&
Else
 'alles im grünen Bereich
Endif
Return Win_Y&
EndProc
Proc PosX2
'Fenster Mittig
Parameters Win_X&
~SystemParametersInfo(~SPI_GETWORKAREA, 0, Rect#, 0)
TaskbarX& = (%MaxX - (RECT#.Right& - RECT#.Left&))
var XMax& = %MaxX - TaskbarX&
If Win_X& > XMax&
 'Grösser als Max
 Win_X& = XMax&
Else
 'alles im grünen Bereich
Endif
Return Win_X&
EndProc
Proc Draw3DText
Parameters x%,y%,x22%,y22%,Mitt%,factor%,text$
Declare x1%,x2%,y1%,y2%
Let x1%=Add(x%,factor%)
Let y1%=Add(y%,factor%)
Let x2%=Add(x1%,factor%)
Let y2%=Add(y1%,factor%)
TextColor GetSysColor(14),-1
DrawText x%,y%,x22%,y22%,text$,Mitt%
TextColor GetSysColor(16),-1
DrawText x2%,y2%,x22%,y22%,text$,Mitt%
TextColor GetSysColor(15),-1
DrawText x1%,y1%,x22%,y22%,text$,Mitt%
EndProc
Proc Auslesen_Sichern
'@DestroyWindow(%hWnd) 'alles OK
'ShowWindow(%hWnd,0) 'Prozesse 100% CPU warum????
 
SKCtrl_DeInitDll()
'Dll freigeben...
Freedll SKCondll&
Freedll lvdll&
DeleteObject hBild&
Dispose Bereich#
Dispose F_bereich#
Dispose RECT#
' ProSpeed.dll
If array1& > 0
 FreeFX(array1&)
 FreeFX(array2&)
 FreeFX(array3&)
Endif
FreeImage(logo&)
FreeImage(logo2&)
FreeImage(logoback&)
Freedll ProSpeed&
'##################
@DestroyWindow(%hWnd) 'Programm stürzt ab und MSN Debugger Startet???
EndProc
'======================= HAUPTPROGRAMM =================================
WindowStyle 11
Set("TrueColor", 1)
WindowTitle Programm_Info$
Window (%MaxX + 20),0 - PosX2(%MaxX), PosY2(%MaxY)
Usermessages ~wm_close
CLS ~GetSysColor(~Color_BtnFace)
'**************************************************************************************
UseFont "Arial",16,0,0,0,0
SetDialogFont 1
CreateMainMenu
var ColorH_R& = GetRValue(~GetSysColor(~Color_BtnFace))
var ColorH_G& = GetGValue(~GetSysColor(~Color_BtnFace))
var ColorH_B& = GetBValue(~GetSysColor(~Color_BtnFace))
var Damy_Button& =   Create("BUTTON",%hwnd,"",0,0,0,0)
UseFont "Arial",40,20,0,0,0
SetDialogFont 1
Draw3DText 10,85,(%MaxX - 300),130,1,1,"Ich Teste mal"
UseFont "Arial",16,0,0,0,0
SetDialogFont 1
' Tab Tabcontrol erstellen
'-----------------------------------------------------------------------
var pic& = create("hPic", 0, "TOOLBAR")
var himg&=Create("ImageList", 16, 16, pic&)
deleteobject pic&
Arbeits_bereich %Hwnd
var PageControl1& = Create("TabCtrl",%hwnd,himg&,10,165,(Arbeitsbereich_Max_X& - 30),(Arbeitsbereich_Max_Y& - 200))
InsertTab(PageControl1&, 0, "Gerd",56)
var hBild& = Create("HPIC", -1, "Daten\\TOOLBAR32.BMP")
var ToolBar1&= Create("TOOLBAR", %hWnd, hBild&, 0, 32, 4000, 1)
Toolbar("AddTextButton",ToolBar1&,15,4000,"Einstellungen","")
Toolbar("Separator",ToolBar1&)
Toolbar("AddTextButton",ToolBar1&,6,4001,"Angebote","")
Toolbar("AddTextButton",ToolBar1&,56,4002,"betreute Objekte","")
Toolbar("Separator",ToolBar1&)
Toolbar("AddTextButton",ToolBar1&,39,4003,"Auswertung","")
Toolbar("AddTextButton",ToolBar1&,19,4004,"Drucken","")
Toolbar("Separator",ToolBar1&)
Toolbar("AddTextButton",ToolBar1&,33,4005,"DB Synchronisation","")
Toolbar("Separator",ToolBar1&)
Toolbar("AddTextButton",ToolBar1&,49,4006,"Programm beenden!","")
SetListviewStyle(12)    'LVS_SINGLESEL OR LSV_SHOWSELALWAYS, Mehrfach-Markierungen verhindern und Markierung immer sichtbar
x&=MixRGBs(GetSysColor(15),$00FFFFFF)
x&=MixRGBs(x&,$00FFFFFF)
listview&=CreateListView(PageControl1&,%hinstance,0,x&,-1,$421)
ShowListView(Listview&,280,45,((%MaxX - 580) - TaskbarX&),((%MaxY - 360) - TaskbarY&))
'alles neu erstellen
InsertColumn Listview&,"Von",50,0    'Spalten bilden
InsertColumn Listview&,"Bis",70,2
InsertColumn Listview&,"kurze Beschreibung", (%MaxX -730),0
InsertColumn Listview&,"Zeit",1,0
'Die automatische Sortierung abschalten
AutoSortListview listview&,0,0,0,0
SelectLine(Listview&,61,1)
SetWindowPos %Hwnd = PosX1(%MaxX), PosY1(%MaxY) - PosX2(%MaxX), PosY2(%MaxY);0
 
InitMessages(%hwnd)
' ##### Hauptprogrammschleife #####
var Programm_Ende% = 0
WhileNot Programm_Ende%
Waitinput
If (%Umessage = ~wm_close) & (&uWnd = %hWnd) 'Message zum Schließen des Fensters abzufangen
 Auslesen_Sichern
 'Programm beenden
 Programm_Ende%=1
ElseIf MenuItem(4000)
ElseIf MenuItem(4001)
ElseIf MenuItem(4002)
ElseIf MenuItem(4003)
ElseIf MenuItem(4004)
ElseIf MenuItem(4005)
ElseIf MenuItem(4006)
 Auslesen_Sichern
 'Programm beenden
 Programm_Ende%=1
ElseIf %key = 4
 @Redraw(%Hwnd)
 SetWindowPos ToolBar1& = 0, 0 - 0, 0; 0
ElseIf %key = 5
 ' Hilfe
EndIf
EndWhile
End

Ich möchte doch gern wissen warum und wo ich meine Fehler mache, ohne euch drehe ich da ewig im Kreiß

[AHT]

Das geht so nicht. Du musst erst die von den DLLs gesubclassten Controls zerstören, befor du die DLLs entlädst. Die Windowprocs der Fenster versuchen sonst, die Subclassingprozeduren in den DLLs anzuspringen. Das geht aber nicht, da die DLLs bereits entladen sind und das Programm hängt sich auf (100% Prozessorlast).

[GT43A]

Zitat von AHT

Das geht so nicht. Du musst erst die von den DLLs gesubclassten Controls zerstören, befor du die DLLs entlädst. Die Windowprocs der Fenster versuchen sonst, die Subclassingprozeduren in den DLLs anzuspringen. Das geht aber nicht, da die DLLs bereits entladen sind und das Programm hängt sich auf (100% Prozessorlast).

Ok kommt nicht wieder vor, jetzt weiß ich warum und hab verstanden.
Und danke für die Erläuterung.