| |
|
|
Jörg Sellmeyer | Hello Rolf, If I one Treeview-Control create, fractures the Profanprogramm with the Message ex: Variable twice declariert Treeview& in line 2 TREEVIEW.INC
I see though no second Deklaration. can with the the Unit zusammenhängen?
Greeting Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 12/03/06 ▲ |
|
|
|
|
Rolf Koch | SH****T ´ this is integrally bad The latest Time, since XProfan10. now catches it on, that I me with the kleinsten characters in 30000 Lines explain must *würg* too here kuck I time
Nachtrag: by me comes The Message not? I create one Treeview and everything aale
OCH MANNO! I have The vorletzte XProfanversion in Roc tuned had. Roland, How umgehe I The extreme Überprüfung of double variables? |
|
|
| |
|
|
|
Jörg Sellmeyer | I sach Yes: I can also none reason for discover
here's the View source: CompileMarkSeparation $P+
SET(ERRORLEVEL,0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.5b
DATUM 03.12.2006 um 18:55 Uhr
VERWENDETE PROFANVERSION IST 10.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade !!!
DEF GETSYSCOLOR(1) !USER32,GetSysColor
$U C:PROFANTOOLSROCLIBTRV.PCU = TRV_ (Treeview Unit...)
$I C:PROFANTOOLSROCTEST_TV.INC TREEVIEW INCLUDE
WINDOWSTYLE 63
WINDOWTITLE Neues Fenster
WINDOW 22,20-640,500
SET(TRUECOLOR,1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
CREATETREEVIEW TREEVIEW ERSTELLEN
TREEVIEWITEMS ITEMS IN TREEVIEW EINFÜGEN
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
GET_TREEVIEW TREEVIEW ABFRAGE
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ENDIF
ENDWHILE
IMAGELIST_DESTROY n>IMAGELIST& )
CompileMarkSeparationDECLARE TRVDLL$
DECLARE TREEVIEW&,IMAGELIST&
TRVDLL$= C:PROFANTOOLSROCROCICON.DLL
IMAGELIST&=IMAGELIST_CREATE(16,16,32,3,3) IMAGELIST ERZEUGEN
PROC CREATETREEVIEW
TRV_CREATETREEVIEW %HWND,0091,0105,0120,0120
TREEVIEW&=&(0)
REPAINT
ENDPROC
PROC TREEVIEWITEMS
TRV_SETTEXTCLR TREEVIEW&,RGB(0,0,0)
TRV_SETBACKCLR TREEVIEW&,RGB(255,255,255)
ENDPROC
PROC GET_TREEVIEW ABFRAGEN THE TREEVIEWITEMS
IF GETFOCUS(TREEVIEW&)
ENDIF
ENDPROC
too IMAGELIST& becomes angemeckert. I can only present, that You in the Unit The variables already declared have. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 12/03/06 ▲ |
|
|
|
|
| Tjah yourself guilt *schadenfroh* hätteste time same on XPSE heard ^^ |
|
|
| |
|
|
|
RGH | and what happens, if you The row Declare Treeview&, ImageList& simply time testweise wegläßt? If the variables objectively already in the Unit declared go, should it then Yes weg.
Greeting Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 12/03/06 ▲ |
|
|
|
|
| Eh ne mess variables in Units without ?_ omen To deklarieren! |
|
|
| |
|
|
|
Jörg Sellmeyer | very, then functions it - I had forgotten To allude! |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 12/03/06 ▲ |
|
|
|