Forum | | | | Cyberangle | Hi,
I have with the List view.DLL Kassenverwaltung realized. the functions right well. I have only one kl. Problem;
In of/ one Groupbox have I 3 Radiobutton abstracted, lay in now one other arbitrary Progammfenster over the Kassenfenster so has to the Schliesung the beliebigen Progammfensters The Hintergundfarbe (only in the Goupbox ) on The Backgroundcolor the before opened belieben Progammfensters changed.. the happens but only, if I on the Progammanfang to the öffen the Listrviews InitMessages(hwnd%) aufrufe. If I The row auskommentiere exit the Error not.
can me the someone explain??? |
| | | | |
| | Frank Abbing | moreover müsstest You already one small lauffähiges example show. so from the remoteness can itself otherwise nothing say. |
| | | | |
| | | | | | | |
| | Cyberangle | Sorry,
there had so did i self on it come must. enclosed one Piece the Hauptschleife: CompileMarkSeparationDeclare bereich#,listview&,lv2&,lvdll&,text$,bytes&,speicher&,y&,z&
Declare schleife%,nrdll&,nred1&,nred2&,nred3&,nred4&,delline& Var Listview, Ndll u. Schleife
Declare datu&,kont&,numm&,vorg&,einz&,ausz&,grupp&,usttext2&,usttext3&,usttext4&Var. für edits
Declare radi1&,radi2&,radi3&,zugang!,abgang!,zeile&,butt1&,butt2&
Declare ust0!,ust1!,ust2!,lastfocus&,Datum$,konto%,nummer%,vorgang$,ab$,eb$
Declare ust!,ustcheck!,ende%, zug2&,abg2&,ustges&,ab2&,eb2&,gesamt!
Declare t$,n$,anz% Var für messagebox
Def GetSysColor(1) !USER32,GetSysColor
Def @GetKeyState(1) !User32,GetAsyncKeyState
Def NumbMessages(2) !NEdit.dll,InitMessages Nummerisches Zahlenfeld
$I Listview_Funktionen.inc
lvdll&=usedll(Listview.dll)
SetTrueColor 1
Decimals 2
Windowstyle 26+512
Windowtitle Kassenverwaltung Programm
Window 0,0-%maxX,%maxY
Cls GetSysColor(15)
alle Listviews öffenen und die Vorgangsdaten ins 2. LV übernehmen
lv2&=CreateListView(%hwnd,%hinstance,RGB(0,0,0),RGB(255,255,255),-1,$31)
IColumn(lv2&,Vorgang wählen,100,0)
AutoSortListview(lv2&,1)
ShowListView(lv2&,720,160,107,334)
listview&=CreateListView(%hwnd,%hinstance,Rgb(0,0,0),Rgb(255,255,255),-1,$31) Leeres Listview
IColumn(listview&,Datum,100,2) Spalten erstellen
IColumn(listview&,Konto,55,1)
IColumn(listview&,Nummer,55,1)
IColumn(listview&,Vorgang,135,0)
IColumn(listview&,Einzahlung,60,1)
IColumn(listview&,Auszahlung,60,1)
IColumn(listview&,UST,60,1)
IColumn(listview&,Anfbst,65,1)
IColumn(listview&,Endbst,60,1)
AutoSortListview listview&,1,0,1,1,0,0,0,0,0
ShowListView(listview&,10,160,687,400)
REM
InitMessages(%hwnd)
Menue erstellen
PopUp &Datei
Appendmenu 201,Datei &öffnen
Appendmenu 202,Datei &schließen
AppendMenu 203,&Neuer Monat
Separator
AppendMenu 204,&Beenden
PopUp &Tools
AppendMenu 401,&Anfangsbestand eingeben
Appendmenu 402,&Monatsabschluß
PopUp &Hilfe
Appendmenu 601,&info
Appendmenu 602,&Optionen
ust0!=0 UST mit 0 Prozent
Create(Text,%hwnd,Spaltensummen :,210,562,120,24)
Create(Text,%hwnd,Endbestand :,210,592,120,29)
zug2&=Create(edit,%hwnd,xxxx,370,562,62,24) Summenreihe unter dem LV
abg2&=Create(edit,%hwnd,x,430,562,62,24)
ustges&=Create(edit,%hwnd,xx,490,562,62,24)
ab2&=Create(edit,%hwnd,xx,550,562,62,24)
eb2&=Create(edit,%hwnd,xxxx,370,592,61,24)
datu& = Create(DateEdit,%hwnd,,10,125,80,24) edits erzeugen
ControlEdit sind Zahlenfelder rechtsbündig
usttext2& = Create(Text,%hwnd, +Str$(ust0!),515,30,32,36) Text in ust-Box
usttext3& = Create(Text,%hwnd, +Str$(ust1!),515,66,32,36)
usttext4& = Create(Text,%hwnd,Str$(ust2!),515,116,32,36)
radi1& =Create(RadioButton,%hwnd,%,580,40,32,35)
radi2& =Create(RadioButton,%hwnd,%,580,78,32,35)
radi3& =Create(RadioButton,%hwnd,%,580,110,32,35)
grupp&= Create(GroupBox,%hwnd,UST.,500,15,150,139) Ust Box erzeugen
Clear ende%
While ende% < 1
WaitInput
If MenuItem (204) Menueaufruf >Datei - beenden<
inc ende%
inc schleife%
EndIf
If MenuItem (201) Menueaufruf >Datei - Datei Öfnnen<
@ShowWindow(butt1&,1)
@ShowWindow(butt2&,1)
EnableMenu 401,1 menu Anfagsbestand deaktivieren
Endif
If MenuItem (401) Menueaufruf >Tools - Anfangbestand eingeben<
datum$ = date$(1)
ab$ = Input$(Bitte geben Sie den Anfangsbestand ein: ,Bestands-Eingabe,ab$)
datum$ = Input$(Bitte geben Sie das Datum ein: ,Datums-Eingabe,date$(0))
EnableMenu 401,1 menu Anfagsbestand deaktivieren
@ShowWindow(butt1&,1) Buttons sichtbar
@ShowWindow(butt2&,1)
EndIf
Wend
DestroyWindow(nred1&) nummerisches Feld zerstören
DestroyWindow(nred2&)
DestroyWindow(nred3&)
DestroyWindow(nred4&)
EraseListview(listview&) Listviewstrukturen entfernen
EraseListView(lv2&)
DestroyWindow(listview&) Profan Befehl, um Fensterobjekte zu zerstören
DestroyWindow(lv2&)
CloseMessages(%hwnd) Subclassing des Parentfensters Remove
End
|
| | | | |
| | Frank Abbing | Hello Michael,
I can this Farbwechsel by me not confirm. under XP-Home shining me everything normal To his. which Betriebssystem using thou?
I know neither, Why The Radiobuttons and the Groupbox what with the Listviews concern could, komische thing. time see, which Experience The others made having... |
| | | | |
| | Cyberangle | I have Windows XP with all Servicepacks. If I the cash registers-Program aufrufe have so did i one integrally normales graues Program-Window with the both Listviews and the Groupbox. Minimiere I now the Program-Window with the minimize Button so that The Fensterbezeichnung only still in the Taskbar Windows lying what about me only yet the Profellowfenster see, from the ichdas Kassenprog. and kicke then in the Taskleisteauf whom Kassenprg-Button around the Program-Window again to open, dan is correct the Hintergund inside the Groupbox not any more. Kommentiere I now The row CompileMarkSeparation from and wiederhole The minimierung the Program-Window so exit the Error not any more on. |
| | | | |
| | Jörg Sellmeyer | by me is ditto everything normal. No wrong dargestellte Groupbox. I had ähnliches too time but only Context with Prfellow. unfortunately white I do not More, whether I it somehow solve could. exit the because too, if you the program the Explorer out aufrufst. Perhaps Done itself Yes so already the whole. building still time one RePaint one, if the program again maximiert becomes. PrFellow created some Controls on Own Nature and there it (unfortunately, unfortunately) already since years not any more weiterentwickelt becomes, holds it naturally weder with the Profan- yet with the Windoesentwicklung step. I Have me too schweren Herzens separated but the new XProfEd is really well with the Opportunities, The The Codefaltungen afford. and for create the Fensters there Yes ROC, the in the meantime already from whom Kinderschuhen out is. Greeting Jörg |
| | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03/18/07 ▲ |
| |
| | Cyberangle | Hello Jörg,
I have whom Programmtest now nacheinander into Profan-Pad and whom RGH ProfanED loaded and F7 carryed out. with both exit the same Error on. once I the program minimiere and again vergrößere ( See JPG-Image moreover supra). The new XPrfED runs still not under XPorfan 8. Ausserden exit the Error indeed on, if I einbeliebiges fremdes Progamm (z.B. Freecell) over my Progamm lay and then again schließe |
| | | | |
| | Jörg Sellmeyer | What is because, if you InitMessages to the create of Listviews aufrufst? |
| | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03/18/07 ▲ |
| |
| | Frank Abbing | InitMessages() launch the Subclassing the Parentfensters, means the Fensters, in the The Listviews angesiedelt go. thereby is it alike, when it called becomes, only the Parentfenster (meisstens well %HWND) must present his. Listviews can thoroughly too later prepares go. Have in the Subclassing-Source again nachgesehen. Nirgendwo use I API, which Einfluss tape The graphic of %HDC or %HWND. GDI32 becomes none uses. I suspect whom Error somewhere as Fehlfunktion your Systems, Perhaps too one fremdes Program. Starte your code time, after You any active programs exits have. |
| | | | |
| | | Evtl. a problem the Grafikkartentreibers? Since there it some strange things... |
| | | | |
| | Michael Wodrich | Yes, suspect so did i.
a) The Farbauflösung isn't 32 separate 16-bit. this is a Possibility for small Grafikfehler.
b) The Grafiktreiber ought to on the latest stood brought go.
I had such Problems too, are with a new driver any disappeared.
Best wishes Michael Wodrich |
| | | Programmieren, das spannendste Detektivspiel der Welt. | 03/18/07 ▲ |
| |
|
AnswerTopic-Options | 10.867 Views |
Themeninformationenthis Topic has 6 subscriber: |