Forum | | | | | | - Page 1 - |
| 
Manfred
Barei | Hello iF,
I have with your scrollareainc a couple Problems, could You time over the code look and me say I wrong make.
the Scrolling functions, however are The Edits and my scheduler to the up-scrolling and following down-scrolling not any more visible, The Edits go first again visible if man above drives. The scheduler but we how not any more visible.
The row 107 must I comment, there otherwise a Error Message comes.
for your Help already once in the advance Dankeeeeeeee............!!!!
Greeting
Manfred |
| | | | Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 08/15/10 ▲ |
| | |
|  | « this Posting watts as Solution marked. » | |  | Habs even tested and working but GetWindowRect is hold a API and if you without xpse work must You these hold define by Def or Header-File or ImportDLL ... or by external Call:
CompileMarkSeparationcls
var wnd&=%hWnd
declare rect#
dim rect#,16
external("user32","GetWindowRect",wnd&,rect#)
print "x,y,xx,yy",long(rect#,0),long(rect#,4),long(rect#,8),long(rect#,12)
waitInp
|
| | | | | | | |
| | | Hello Manfred,
I write with the ScrollArea.Inc thats antiquated is and thats true - the goes "today" rather and plainer and I look to your Sourcecode strain on. |
| | | | | | |
| | | with possible little Changes on the code would it vlt. something like:
CompileMarkSeparation {$cleq}
// $H Commctrl.ph
SET("ERRORLEVEL",0)
SET("TRUECOLOR",1)
DECLARE L#, STATUSBAR&
DECLARE GRIDBOX1&
DECLARE TabControl&, TabPage1&, TabPage2&, LastTab&
DECLARE TEXT1&, TEXT2&, TEXT3&
DECLARE MoEDIT1&, MoEDIT2&, MoEDIT3&, MoEDIT4&, MoEDIT5&, MoZeit1&, MoZeit2&, MoZeit3&, MoZeit4&, MoZeit5&, MoGesZeit&
Dim L#, 12
Long L#,0 = 200, 220, -1
Proc SetActiveTab
Parameters hTab&, TabIndex&
@SendMessage(hTab&, ~TCM_SETCURFOCUS, TabIndex&, 0)
EndProc
Proc Tabelle
StartPaint TabPage1&
UsePen 0,1,@RGB(0,0,0)
Rectangle 010,010 - 045,028' Tabellenzeile Überschrift
Rectangle 044,010 - 470,028' Tabellenzeile Überschrift
Rectangle 469,010 - 520,028' Tabellenzeile Überschrift
Rectangle 519,010 - 570,028' Tabellenzeile Überschrift
Rectangle 010,027 - 045,152' Tabellenzeile Montag
Rectangle 044,027 - 470,152' Tabellenzeile Montag
Rectangle 469,027 - 520,152' Tabellenzeile Montag
Rectangle 519,027 - 570,152' Tabellenzeile Montag
Rectangle 010,151 - 045,276' Tabellenzeile Dienstag
Rectangle 044,151 - 470,276' Tabellenzeile Dienstag
Rectangle 469,151 - 520,276' Tabellenzeile Dienstag
Rectangle 519,151 - 570,276' Tabellenzeile Dienstag
EndPaint
endproc
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW (%maxx/2 - 880/2),(%maxy/2 - 560/2) - 880,560
~SetClassLong(%hwnd, ~GCL_STYLE, (~GetClassLong(%hwnd, ~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))//flickerfreies hWnd bei Skalieren
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
STATUSBAR& = @Create("StatusWindow",%HWND,"",3,L#)
var MYAREA&=scrollControl(%hWnd,-1,width(%hWnd),height(%hWnd))
setWindowPos myArea&=0,0 - width(%hWnd),height(%hWnd)-height(STATUSBAR&)
GRIDBOX1& = create("GridBox",MYAREA&,"Eintrag 1;0;60;Eintrag 2;0;60;Eintrag 3;0;60",3,0022,0074,0185,0363)
TabControl& = CREATE("TABCTRL",MYAREA&,"Stunden",0220,0070,0625,0370)
TabPage1& = CONTROL("DIALOG","", $40081003,2,25,WIDTH(TabControl&)-10, HEIGHT(TabControl&)-30,TabControl&,0,%HINSTANCE)
SHOWWINDOW(TabPage1&,0)
@INSERTTAB(TabControl&,2,"Weiteres")
TabPage2& = CONTROL("DIALOG","", $40081003,2,25,WIDTH(TabControl&)-10, HEIGHT(TabControl&)-30,TabControl&,0,%HINSTANCE)
SHOWWINDOW(TabPage2&,0)
LastTab& = TabPage1&
SHOWWINDOW(LastTab&,1)
Tabelle
TEXT1& = CREATE("TEXT",TabPage1&,"Tag:", 013,012,030,014)
TEXT2& = CREATE("TEXT",TabPage1&,"Arbeiten:",230,012,045,014)
TEXT3& = CREATE("TEXT",TabPage1&,"Zeit:", 480,012,025,014)
MoEDIT1& = CREATE("EDIT",TabPage1&,"",050,040,0415,0020)
MoEDIT2& = CREATE("EDIT",TabPage1&,"",050,059,0415,0020)
MoEDIT3& = CREATE("EDIT",TabPage1&,"",050,078,0415,0020)
MoEDIT4& = CREATE("EDIT",TabPage1&,"",050,097,0415,0020)
MoEDIT5& = CREATE("EDIT",TabPage1&,"",050,116,0415,0020)
MoZeit1& = CREATE("EDIT",TabPage1&,"",475,040,0040,0020)
MoZeit2& = CREATE("EDIT",TabPage1&,"",475,059,0040,0020)
MoZeit3& = CREATE("EDIT",TabPage1&,"",475,078,0040,0020)
MoZeit4& = CREATE("EDIT",TabPage1&,"",475,097,0040,0020)
MoZeit5& = CREATE("EDIT",TabPage1&,"",475,116,0040,0020)
MoGesZeit&=CREATE("EDIT",TabPage1&,"",525,116,0040,0020)
SETFOCUS(%HWND)
REPAINT
USERMESSAGES $0010
SubClass %hWnd,1
WHILENOT ENDE%
WAITINPUT
SELECT %UMESSAGE
CASEOF $0010
BREAK
ENDSELECT
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
SETWINDOWPOS STATUSBAR& = 0,0 - 0,0;0
ELSEIF CLICKED(GRIDBOX1&)'GRIDBOX
ElseIf @TABCHANGED(TabControl&)
SHOWWINDOW(LastTab&,0)
If GETACTIVETAB(TabControl&) = 0
LastTab& = TabPage1&
SHOWWINDOW(LastTab&,1)
Tabelle
else GETACTIVETAB(TabControl&) = 1
LastTab& = TabPage2&
SHOWWINDOW(LastTab&,1)
EndIf
ENDIF
ENDWHILE
end
subClassProc
select %sMessage
caseof $5,$214// wm_size,wm_sizing
SETWINDOWPOS STATUSBAR& = 0,0 - 0,0;0
setWindowPos MYAREA&=0,0 - width(%hWnd),height(%hWnd)-height(STATUSBAR&)
endSelect
endProc
nproc test//mind. 1 nProc um den nativen Sprachschatz zu aktivieren (Funtkion ScrollControl https://xpcom/xpse/funktionsreferenz.html#scrollcontrol )
endproc
|
 | | | | | | |
| | | Hello Manfred,
konntest You with this Variante something begin?
Thanks the Canvassasse (or so) Gibts now too new Opportunities. |
| | | | | | |
| |
Manfred
Barei | Hello iF,
unfortunately No, I need the Scrollarea on the Tabcontroll.
Related to the Canvassasse I will time try.
Greeting
Manfred |
| | | | Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 09/24/10 ▲ |
| | |
| | | look time, so runs the right super - now too with the Tabellenbild and everything fine flicker and neuzeichenproblemfrei ^^ :
 |
| | | | | | |
| |
Manfred
Barei | Hello iF,
I have whom Programmcode for me once abgeändert How I it need.
How greife I now but on each Tabs To, this is me not yet clear and
I have in the proc scheduler yet some Lines eingefügt The whom Tagesnamen really
circa 90 strain turned spend ought to see screenshot, what but not functions (Perhaps is the too take off Roland).
Greeting
Manfred |
| | | | Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 09/26/10 ▲ |
| | |
| | | Perhaps. something like...
(Arial has rotate let, MS Sans Serif is well one Bitmapfont...)
 |
| | | | | | |
| |
Manfred
Barei | Hello iF,
thanks for response and with the the anwählen the Tabcontroll have I there get.
Greeting |
| | | | Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 09/26/10 ▲ |
| | |
| | 
Thomas
Freier | I stand in the momentum before the trouble whom Linksklick abzufragen. take I "Getmessage" can I not any more scroll. at that "WaitInput" results only with Rechtsklick The Auswertung.
gives it a better Solution? |
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 09/30/10 ▲ |
| | |
| |  | Füg still simply wm_lButtonDown as UserMessage hinzu instead of "nur" $10/ wm_close -
The ScrollControl-function however "benötigt" weder WaitInput yet GetMessage and functions always and charged the XProfan-Program properly not at all. |
| | | | | | |
| |
Thomas
Freier | | | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 09/30/10 ▲ |
| | |
|
AnswerTopic-Options | 28.740 Views |
Themeninformationenthis Topic has 4 subscriber: |
(269)
Deutsch
English
Français
Español
Italia
