BAR + PAGE

Mein Programm mit Clientarena 4000 Pixel x 7 Seiten.
Nun mein Problem:

Wenn ich abwärts scrolle geht es sehr langsam.
Wie kann ich das beschleunigen ?
Eventuell Seitenweise.

Es fehlt der Klick auf die freie BARFÄCHE um eine Seite
weiter zukommen. Oder fehlt der Befehl ?

My client program with Arena 4000 pixels x 7 pages.
Now my problem:

If I scroll down, it goes very slowly.
How can I speed it up?
Any side manner.

It fails to click on the FREE SPACE BAR to a page
get ahead. Or lack of command?

Mon programme client avec Arena 4000 pixels x 7 pages.
Maintenant, mon problème:

Si je défiler vers le bas, ça va très lentement.
Comment puis-je l'accélérer?
Toute façon côté.

Il ne parvient pas à cliquer sur la barre d'espace libre pour une page
aller de l'avant. Ou de l'absence de commandement?

' *** Achtung die "LoadProgram.dll" von Klaus wird benötigt
' *** Note the "LoadProgram.dll" Klaus is needed
' *** Notez le "LoadProgram.dll" Klaus est nécessaire

Code:: ' ******************************************************************************
' *** Programm für Clientarena nach einer Vorlage von Klaus
' *** Program for Client Arena after a presentation by Klaus
' *** Programme pour Arena client après une présentation par Klaus
' ******************************************************************************
' *** Es gibt 16 Clientarenen mit 4000 Pixel x 7 Seiten, aber variabel
' *** There are 16 client arenas with 4000 pixels x 7 pages, but variable
' *** Il ya 16 arènes clients avec 4000 pixels x 7 pages, mais variable
' ******************************************************************************
' *** Achtung die "LoadProgram.dll" von Klaus wird benötigt
' *** Note the "LoadProgram.dll" Klaus is needed
' *** Notez le "LoadProgram.dll" Klaus est nécessaire
' ******************************************************************************
label labels : gosub labels
' ******************************************************************************
gosub constantes
gosub variables
gosub form0000 :' Grundform
gosub form0001 :' Fussform
gosub Hauptmenue :' Data für Hauptmenü einlesen
gosub Untermenue :' DATA für Untermenüs einlesen
gosub form0002 :' Menueform
gosub form0003 :' Symbolform für die Zukunft
gosub form0004 :' Clientform fix
gosub CLIENTFORM :' Clientform variabel
gosub main
' ******************************************************************************
' CLICK AUF MENÜ FORM 0010 *****************************************************
ON_CLICK 9100,area00:ON_CLICK 9101,area01:ON_CLICK 9102,area02:ON_CLICK 9103,area03
' ON_CLICK 9104,area04 :' Teilungsstrich im Untermenü
ON_CLICK 9105,area05:ON_CLICK 9106,area06:ON_CLICK 9107,area07:ON_CLICK 9108,area08
ON_CLICK 9109,area09:ON_CLICK 9110,area10:ON_CLICK 9111,area11:ON_CLICK 9112,area12
ON_CLICK 9113,area13:ON_CLICK 9114,area14:ON_CLICK 9115,area15:ON_CLICK 9116,area16
' ON_CLICK 9117,area17 :' Teilungsstrich im Untermenü
ON_CLICK 9118,PROGRAMM_ENDE
end
' ******************************************************************************
labels:
label form0000 :' Grundform
label form0001 :' Fussform
label form0002 :' Menueform
label form0003 :' Symbolform für die Zukunft
label form0004 :' Clientform fix
label client_area_initialize :' client_area initialize
' ******************************************************************************
' *** VARIABLEN FÜR OBJEKTE anhängen und OBJEKTE abhängen LoadProgram.DLL ******
LABEL OBJEKT_AN :' Objekt anhängen
LABEL detacher :' Objekt abhängen
DIM PARENTNUMMER1%
DIM PARENTNUMMER2%
DIM ancien%
' ******************************************************************************
label Hauptmenue
label Untermenue
label PROGRAMM_ENDE
' ***LABEL FÜR CLIENT AREA *****************************************************
label constantes
label variables
label CLIENTFORM
label main
label BAR_HORIZONTAL_H
label BAR_VERTICAL_V
label SEITENTRENNER
label add_object
label add_hor_object
label scroll_vertical
label scroll_horizontal
label add_client_area
Label area00:label area01:label area02:label area03:label area05:label area06
label area07:label area08:label area09:label area10:label area11
label area12:label area13:label area14:label area15:label area16
' *** Sprache einstellen *******************************************************
DIM SPRACHE%
SPRACHE% = 1
' SPRACHE% = 2
' SPRACHE% = 3
return
' ******************************************************************************
constantes:
dim max_client_area%
max_client_area% = 80
' dim max_height% : max_height% = (SCREEN_Y-190) * 7
dim max_height% :' max_height% = 30000
' dim max_width% : max_width% = SCREEN_X +20 :' muß immer > SCREEN_X
dim max_width% : max_width% = 4000
dim option_left_hide%(max_client_area%)
dim option_top_hide%(max_client_area%)
return
' ******************************************************************************
variables:
dim no%
dim n_client_area%
dim client_area%(max_client_area%)
dim no_name%
dim no_memo%
dim scroll_bar%(max_client_area%)
dim scroll_bar_horizontal%(max_client_area%)
dim scroll_pos%(max_client_area%)
dim scroll_pos_horizontal%(max_client_area%)
dim n_obj%(max_client_area%)
dim scroll_bar_vertical%(max_client_area%)
dim separator%(max_client_area%)
dim tab_hor_obj%(50,max_client_area%)
dim n_hor_obj%(max_client_area%)
dim tab_obj%(50,max_client_area%)
dim SEITE%
dim i%
DIM j%
dim n%
dim x_client_area%
' *** VARIABLE FÜR TABELLEN ERSTELLEN ******************************************
DIM Zeilennummer$
DIM Spaltennummer$
DIM Spalte%
DIM Zeile%
DIM TABWERTE%(Zeile%,Spalte%)
DIM TABTEXTE$(Zeile%,Spalte%)
DIM a
DIM b
' *** VARIABLE FÜR MENÜS ERSTELLEN *********************************************
DIM Menuetext$
DIM TEXT_MENUE_00$(20,3)
DIM TEXT_MENUE_01$(9000,3)
DIM TITEL$(99,3)
return
' *** PROGRAMM BEENDEN *********************************************************
PROGRAMM_ENDE:
terminate
END
' ********** Grundform 0000 ****************************************************
form0000:
TOP 0000,0
LEFT 0000,0
width 0000,SCREEN_X
height 0000,SCREEN_Y-44
caption 0000,"REFA - Programme"
color 0000,000,000,000 :' schwarz / black
PARENTNUMMER2% = HANDLE(0000) :' Form 0000
Return
' ********** Fussform 0001 *****************************************************
form0001:
COMMAND_TARGET_IS 0000
FORM 0001
TOP 0001,SCREEN_Y-101
LEFT 0001,2
WIDTH 0001,SCREEN_X-12
HEIGHT 0001,28
FONT_NAME 0001,"Courier NEW"
FONT_SIZE 0001,08
COLOR 0001,000,255,000 :' grün / green
BORDER_HIDE 0001
PARENTNUMMER1% = HANDLE(0001) :' Form 0001 auf Form 0000
PARENTNUMMER2% = HANDLE(0000) :' Form 0000
GOSUB OBJEKT_AN
return
' ********** Menueform 0002 ****************************************************
form0002:
COMMAND_TARGET_IS 0000
FORM 0002
TOP 0002,2
LEFT 0002,2
WIDTH 0002,SCREEN_X-12
HEIGHT 0002,0 :' SCREEN_Y-106
' FONT_NAME 0002,"Courier NEW"
' FONT_SIZE 0002,01
Color 0002,000,000,000 :' schwarz / black
BORDER_HIDE 0002
PARENTNUMMER1% = HANDLE(0002) :' Form 0002 auf Form 0000
PARENTNUMMER2% = HANDLE(0000) :' Form 0002
GOSUB OBJEKT_AN
' *** ERSTELLEN DES HAUPTMENÜ 9001 bis 9001 ************************************
COMMAND_TARGET_IS 0002
main_menu 0009
sub_menu 9001:CAPTION 9001,TEXT_MENUE_00$(01,SPRACHE%):parent 9001,0009
' *** Hauptmenue 01 --- DATEI UNTERMENÜ 1000 bis 1360 *************************
FOR i% = 9100 TO 9118
sub_menu i%:CAPTION i%,TEXT_MENUE_01$(i%-9099,SPRACHE%):parent i%,9001:NEXT i%
INACTIVE 9104:INACTIVE 9117:' Teilstriche im Submenü
return
' ********** Symbolform 0003 für die Zukunft ***********************************
form0003:
COMMAND_TARGET_IS 0000
FORM 0003
TOP 0003,22
LEFT 0003,2
WIDTH 0003,SCREEN_X-12
HEIGHT 0003,50
FONT_NAME 0003,"Courier NEW"
FONT_SIZE 0003,06
COLOR 0003,255,000,000 :' rot / red
PARENTNUMMER1% = HANDLE(0003) :' Form 0003 auf Form 0000
PARENTNUMMER2% = HANDLE(0000) :' Form 0003
GOSUB OBJEKT_AN
BORDER_HIDE 0003
return
' *** Clientform fix 0004 für variablen Clientformen erstellen *****************
form0004:
COMMAND_TARGET_IS 0000
FORM 0004
TOP 0004,74
LEFT 0004,2
WIDTH 0004,SCREEN_X-12
HEIGHT 0004,SCREEN_Y-177
FONT_NAME 0004,"Courier NEW"
FONT_SIZE 0004,06
COLOR 0004,000,000,255 :' blau / blue
PARENTNUMMER1% = HANDLE(0004) :' Form 0004 auf Form 0000
PARENTNUMMER2% = HANDLE(0000) :' Form 0004
GOSUB OBJEKT_AN
BORDER_HIDE 0004
no% = 10
return
' *** Clientformen variabel die auf Clientform fix 0004 erstellt werden ********
' *** client area # 001 ********************************************************
CLIENTFORM:
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 001 "+" BAR V+H "+" Seitentrenner"
gosub add_object
' *** Seitentrenner auf Clientarea #1 ******************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 2 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 002 "+" BAR V+H "+" ohne Seitentrenner"
gosub add_object
' *** Seitentrenner auf Clientarea #2 ******************************************
' gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 3 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 003"
gosub add_object
' *** Seitentrenner auf Clientarea #3 ******************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 4 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 004"
gosub add_object
' *** Seitentrenner auf Clientarea #4 ******************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 5 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 005"
gosub add_object
' *** Seitentrenner auf Clientarea #5 ******************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 6 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 006"
gosub add_object
' *** Seitentrenner auf Clientarea #6 ******************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 7 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 007"
gosub add_object
' *** Seitentrenner auf Clientarea #7 ******************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 8 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 008"
gosub add_object
' *** Seitentrenner auf Clientarea #8 ******************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 9 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 009"
gosub add_object
' *** Seitentrenner auf Clientarea #9 ******************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 10 *********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 010"
gosub add_object
' *** Seitentrenner auf Clientarea # 10 ****************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 11 *********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 011"
gosub add_object
' *** Seitentrenner auf Clientarea # 11 ****************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 12 *********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 012"
gosub add_object
' *** Seitentrenner auf Clientarea # 12 ****************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 13 *********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 013"
gosub add_object
' *** Seitentrenner auf Clientarea # 13 ****************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 14 **********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 014"
gosub add_object
' *** Seitentrenner auf Clientarea # 14 ****************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 15 *********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 015"
gosub add_object
' *** Seitentrenner auf Clientarea # 15 ****************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 16 *********************************************************
gosub client_area_initialize
' ******************************************************************************
' *** AB HIER PROGRAMM erstellen ***********************************************
no% = no% + 1
alpha no%
parent no%,client_area%(n_client_area%)
font_size no%,24
font_color no%,255,0,0
top no%,100
left no%,100
font_bold no%
caption no%,"Client area # 016"
gosub add_object
' *** Seitentrenner auf Clientarea # 16 ****************************************
gosub SEITENTRENNER
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
' ******************************************************************************
' *** client area # 17 *********************************************************
gosub client_area_initialize
' *** Programm - Teil beginn *** Tabelle erstellen *****************************
Zeilennummer$ = "0000":Spaltennummer$ = "0000"
Spalte% = 00020 :Zeile% = 01500
' *** GRID erstellen ***********************************************************
no% = no% + 1
grid no%
parent no%,client_area%(n_client_area%)
hide no%
top no%,100 :' Anzahl Pixel von oben
left no%,100 :' Anzahl der Pixel von links
width no%,1028 :' Tabellen Breite
height no%,max_height%-250 :' Tabellen Höhe
grid_column no%,Spalte% :' Anzahl Spalten
grid_row no%,Zeile% :' Anzahl Zeilen
grid_column_width no%,50 :' Breite Spalten
grid_row_height no%,19 :' Höhe Spalten
grid_column_fixed no%,1 :' Anzahl fixierter Spalten
grid_row_fixed no%,1 :' Anzahl fixierter Zeilen
grid_fixed_color no%,255,0,0 :' Farbe der fixierten Spalten/Zeilen
grid_one_column_width no%,1,50 :' Erste Spalte mit xx Pixel
grid_one_row_height no%,1,20 :' Erste Zeile mit xx Pixel
grid_column_sizing_off no% :' Spalten sind mit der Maus nicht verschiebbar
grid_row_sizing_off no% :' Zeilen sind mit der Maus nicht verschiebbar
' *** Beschriftung von Zeilen X und Spalten Y **********************************
' *** Beschriftung der 2. bis X. Zeile ****************************************
show no%
For i% = 1 to Zeile%
Zeilennummer$ = "0000"
Zeilennummer$ = Zeilennummer$+STR$(i%)
Zeilennummer$ = Right$(Zeilennummer$,4)
Zeilennummer$ = " " + Zeilennummer$
grid_write no%,i%+1,1,Zeilennummer$ :' schreiben ab 2. Zeile, 1. Spalte
next i%
' *** Beschriftung der 2. bis Y. Spalte ****************************************
For i% = 1 to Spalte%
Spaltennummer$ = "0000"
Spaltennummer$ = Spaltennummer$+STR$(i%)
Spaltennummer$ = Right$(Spaltennummer$,4)
Spaltennummer$ = " " + Spaltennummer$
grid_write no%,1,i%+1,Spaltennummer$ :' schreiben ab 2. Spalte, 1. Zeile
next i%
' ******************************************************************************
grid_write no%,1,1,"SEVERIN17" :' schreiben in Spalte 1, Zeile 1
' ***
gosub add_object : ' allow vertical scrolling
gosub add_hor_object : ' allow horizontal scrolling
' *** BAR horizontal und vertikal erstellen ************************************
gosub BAR_HORIZONTAL_H :' Bar Horizontal auf AREA erstellen
gosub BAR_VERTICAL_V :' Bar Vertical auf AREA erstellen
return
' ******************************************************************************
' ******************************************************************************
' *** SUBROUTINEN **************************************************************
' ******************************************************************************
client_area_initialize:
COMMAND_TARGET_IS 0004
max_height% = 30000
max_width% = 2000
option_left_hide%(1) = 0
option_top_hide%(1) = 0
' *** client area # XX initialize **********************************************
COMMAND_TARGET_IS 0004
no% = no% + 1
Form no%
hide no%
gosub add_client_area
top no%,0
left no%,0
width no%,SCREEN_X-12
height no%,SCREEN_Y-177
FONT_NAME no%,"Courier NEW"
FONT_SIZE no%,06
COLOR no%,222,222,222
PARENTNUMMER1% = HANDLE(no%) :' Form XXXX auf Form 0004 befestigen
PARENTNUMMER2% = HANDLE(0004)
GOSUB OBJEKT_AN
BORDER_HIDE no%
return
' ******************************************************************************
' *** SEITENTRENNER ************************************************************
SEITENTRENNER:
FOR SEITE% = 2 TO (max_height%+(SCREEN_Y-195))/(SCREEN_Y-195)
no% = no% + 1
container no%
parent no%,client_area%(n_client_area%)
top no%,((SCREEN_Y-175) * (SEITE%-1))
left no%,2
width no%,max_width%-42 :' SCREEN_X-75
height no%,20
color no%,229,229,200
caption no%,"Seite "+STR$(seite%)+" page "+STR$(seite%)+" page "+STR$(seite%)+" Clientarena "
gosub add_object : ' allow vertical scrolling
gosub add_hor_object : ' allow horizontal scrolling
NEXT SEITE%
Return
' ******************************************************************************
' *** SCROLL BAR VERTICAL ******************************************************
BAR_VERTICAL_V:
no% = no% + 1
scroll_bar no%
scroll_bar_vertical%(n_client_area%) = no%
parent no%,client_area%(n_client_area%)
vertical no%
top no%,0
left no%,SCREEN_X-30
height no%,SCREEN_Y-195
min no%,0
max no%, max_height% - height(client_area%(n_client_area%))-20
on_change no%,scroll_vertical
Return
' ******************************************************************************
' *** SCROLL BAR HORIZONTAL ****************************************************
BAR_HORIZONTAL_H:
no% = no% + 1
scroll_bar no%
scroll_bar_horizontal%(n_client_area%) = no%
parent no%,client_area%(n_client_area%)
horizontal no%
top no%,SCREEN_Y-194
left no%,0
width no%,SCREEN_X-29
min no%,0
max no%, max_width% - width(client_area%(n_client_area%))-20
on_change no%,scroll_horizontal
return
' ******************************************************************************
' ******************************************************************************
add_object:
n_obj%(n_client_area%) = n_obj%(n_client_area%) + 1
tab_obj%(n_obj%(n_client_area%),n_client_area%) = no%
return
' ******************************************************************************
add_hor_object:
n_hor_obj%(n_client_area%) = n_hor_obj%(n_client_area%) + 1
tab_hor_obj%(n_hor_obj%(n_client_area%),n_client_area%) = no%
return
' ******************************************************************************
add_client_area:
n_client_area% = n_client_area% + 1
client_area%(n_client_area%) = no%
return
' ******************************************************************************
scroll_vertical:
n% = number_change
for i%=1 to n_client_area%
if scroll_bar_vertical%(i%)=n%
x_client_area% = i%
exit_for
end_if
next i%
if n_obj%(x_client_area%)=0 then return
n% = position(scroll_bar_vertical%(x_client_area%)) - scroll_pos%(x_client_area%)
scroll_pos%(x_client_area%) = position(scroll_bar_vertical%(x_client_area%))
if x_client_area%<>1
caption separator%(x_client_area%),"Client area "+str$(x_client_area%)+" Page "+str$(int(scroll_pos%(x_client_area%)/560)+1)
end_if
for i%=1 to n_obj%(x_client_area%)
top tab_obj%(i%,x_client_area%),top(tab_obj%(i%,x_client_area%)) - n%
if option_top_hide%(x_client_area%)=1
if top(tab_obj%(i%,x_client_area%))<10
hide tab_obj%(i%,x_client_area%)
else
show tab_obj%(i%,x_client_area%)
end_if
end_if
next i%
return
' ******************************************************************************
scroll_horizontal:
n% = number_change
for i%=1 to n_client_area%
if scroll_bar_horizontal%(i%)=n%
x_client_area% = i%
exit_for
end_if
next i%
if n_hor_obj%(x_client_area%)=0 then return
n% = position(scroll_bar_horizontal%(x_client_area%)) - scroll_pos_horizontal%(x_client_area%)
scroll_pos_horizontal%(x_client_area%) = position(scroll_bar_horizontal%(x_client_area%))
for i%=1 to n_hor_obj%(x_client_area%)
left tab_hor_obj%(i%,x_client_area%),left(tab_hor_obj%(i%,x_client_area%)) - n%
if option_left_hide%(x_client_area%)=1
if left(tab_hor_obj%(i%,x_client_area%))<10
hide tab_hor_obj%(i%,x_client_area%)
else
show tab_hor_obj%(i%,x_client_area%)
end_if
end_if
next i%
return
' ******************************************************************************
' ******************************************************************************
area00:
hide client_area%(x_client_area%)
x_client_area% = 1
show client_area%(x_client_area%)
return
' ******************************************************************************
area01:
hide client_area%(x_client_area%)
x_client_area% = 2
show client_area%(x_client_area%)
return
' ******************************************************************************
area02:
hide client_area%(x_client_area%)
x_client_area% = 3
show client_area%(x_client_area%)
return
' ******************************************************************************
area03:
hide client_area%(x_client_area%)
x_client_area% = 4
show client_area%(x_client_area%)
return
' ******************************************************************************
area05:
hide client_area%(x_client_area%)
x_client_area% = 6
show client_area%(x_client_area%)
return
' ******************************************************************************
area06:
hide client_area%(x_client_area%)
x_client_area% = 7
show client_area%(x_client_area%)
return
' ******************************************************************************
area07:
hide client_area%(x_client_area%)
x_client_area% = 8
show client_area%(x_client_area%)
return
' ******************************************************************************
area08:
hide client_area%(x_client_area%)
x_client_area% = 9
show client_area%(x_client_area%)
return
' ******************************************************************************
area09:
hide client_area%(x_client_area%)
x_client_area% = 10
show client_area%(x_client_area%)
return
' ******************************************************************************
area10:
hide client_area%(x_client_area%)
x_client_area% = 11
show client_area%(x_client_area%)
return
' ******************************************************************************
area11:
hide client_area%(x_client_area%)
x_client_area% = 12
show client_area%(x_client_area%)
return
' ******************************************************************************
area12:
hide client_area%(x_client_area%)
x_client_area% = 13
show client_area%(x_client_area%)
return
' ******************************************************************************
area13:
hide client_area%(x_client_area%)
x_client_area% = 14
show client_area%(x_client_area%)
return
' ******************************************************************************
area14:
hide client_area%(x_client_area%)
x_client_area% = 15
show client_area%(x_client_area%)
return
' ******************************************************************************
area15:
hide client_area%(x_client_area%)
x_client_area% = 16
show client_area%(x_client_area%)
return
' ******************************************************************************
area16:
hide client_area%(x_client_area%)
x_client_area% = 17
show client_area%(x_client_area%)
return
' ******************************************************************************
area17:
hide client_area%(x_client_area%)
x_client_area% = 18
show client_area%(x_client_area%)
return
' ******************************************************************************
main:
x_client_area% = 1
gosub area00
return
' ******************************************************************************
' *** Objekt anhängen **********************************************************
OBJEKT_AN:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",PARENTNUMMER1%,PARENTNUMMER2%,1)
dll_off
RETURN
' ******************************************************************************
' *** Objekt abhängen **********************************************************
detacher:
dll_on "LoadProgram.dll"
ancien% = dll_call3("SetFormParent",hnd20%,ancien%,0)
dll_off
RETURN
' ******************************************************************************
' *** TEXT FÜR HAUPTMENÜ IN DATA ZELLEN ERSTELLEN ******************************
' **** DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH ******************
DATA "DATEI" ,"FILE" ,"DOSSIER"
' *** HAPTMENÜ-TEXT IN VARIABLEN EINLESEN **************************************
Hauptmenue:
FOR i% = 1 TO 1 :FOR j% = 1 TO 3
READ TEXT_MENUE_00$(i%,j%)
NEXT j% :NEXT i%
RETURN
' *** TEXT FÜR UNTERMENÜS IN DATA ZELLEN ERSTELLEN *****************************
' **,* DEUTSCH *********,**** ENGLISCH *****,**** FRANZÖSISCH **
DATA " Neu "," New "," Nouveau "
DATA " Öffnen ... "," Open ... "," Ouvert ... "
DATA " Speichern "," Save "," Sauver "
DATA " Speichern unter "," Save under "," Enregistrer sous"
DATA "====================","====================","===================="
DATA " UNTERMENUE 0106 "," SUB NENU 0106 "," SUB NENU 0106 "
DATA " UNTERMENUE 0107 "," SUB NENU 0107 "," SUB NENU 0107 "
DATA " UNTERMENUE 0108 "," SUB NENU 0108 "," SUB NENU 0108 "
DATA " UNTERMENUE 0109 "," SUB NENU 0109 "," SUB NENU 0109 "
DATA " UNTERMENUE 0110 "," SUB NENU 0110 "," SUB NENU 0110 "
DATA " UNTERMENUE 0111 "," SUB NENU 0111 "," SUB NENU 0111 "
DATA " UNTERMENUE 0112 "," SUB NENU 0112 "," SUB NENU 0112 "
DATA " UNTERMENUE 0113 "," SUB NENU 0113 "," SUB NENU 0113 "
DATA " UNTERMENUE 0114 "," SUB NENU 0114 "," SUB NENU 0114 "
DATA " UNTERMENUE 0115 "," SUB NENU 0115 "," SUB NENU 0115 "
DATA " UNTERMENUE 0116 "," SUB NENU 0116 "," SUB NENU 0116 "
DATA " GRID 0117 "," GRID 0117 "," GRID 0117 "
DATA "====================","====================","===================="
DATA " QUIT "," QUIT "," QUIT "
' *** UNTERMENÜ-TEXTE IN VARIABLEN EINLESEN ************************************
Untermenue:
FOR i% = 1 TO 19 :FOR j% = 1 TO 3
READ TEXT_MENUE_01$(i%,j%)
NEXT j% :NEXT i%
Return
' ******************************************************************************

Invité

Regardes ce sujet:
https://panoramic.1fr1.net/t2644-atteindre-un-objet-dans-une-grande-fenetre#27731
Il faut que les ascenseurs de la forme soit visible, car on clique dessus.

Danke Cosmos70

Das wird einige Zeit dauern, bis ich das verstanden habe.

Thank Cosmos70

That will take some time before I understood.

Merci Cosmos70

Cela va prendre un certain temps avant que je comprenne.

Ich glaube die Lösung von Cosmos70 ist für mich nicht brauchbar.

Daher eine neue Fragestellung:

Wenn eine Form größer als der Bildschirm ist,
gibt es eine Möglichkeit über einen Befehl
eine Seite weiter nach unten zublättern?

Theroretisches Beispiel:

Form maximal:
Breite 600 Pixel
Höhe 4000 Pixel

Anzeige maximal:
Breite 1000 Pixel
Höhe 1000 Pixel

Also 4 Seiten.

1. Seite 0000 - 1000 Pixel
2. Seite 1000 - 2000 Pixel
3. Seite 2000 - 3000 Pixel
4. Seite 3000 - 4000 Pixel

Wie zeige ich jetzt die 3. Seite an.
Ohne den Scrollbar zu nutzen ?

I think the solution is not for me Cosmos70 useful.

Thus, a new question:

If a mold is larger than the screen,
is there a way for a command
Next page to scroll down?

Theoretical example:

Maximum form:
Width: 600 pixels
Height 4000 Pixel

Display a maximum of:
Width 1000 pixels
Height 1000 Pixel

So 4 pages.

1. Page 0000 - 1000 pixels
2. Page 1000 - 2000 pixels
3. Page 2000 - 3000 pixels
4. Page 3000 - 4000 pixels

How do I see now the third Page.
Without using the scrollbar?

Je pense que la solution n'est pas pour moi Cosmos70 utile.

Ainsi, une nouvelle question:

Si un moule est plus grand que l'écran,
il est un moyen pour une commande
Page suivante pour faire défiler vers le bas?

Exemple théorique:

Forme maximale:
Largeur: 600 pixels
Hauteur 4000 Pixels

Afficher un maximum de:
Largeur 1000 pixels
Hauteur 1000 Pixels

Donc, 4 pages.

1. Page 0000 - 1000 pixels
2. Page 1000 - 2000 pixels
3. Page 2000 - 3000 pixels
4. Page 3000 - 4000 pixels

Comment puis-je voir maintenant le troisième Page.
Sans l'aide de la barre de défilement?

Nein, das giebt es nicht.

Sujet: Re: BAR + PAGE Mar 1 Jan 2013 - 2:33

Irgend was ist komisch.

Die "END_Taste" der Tastatur wird angenommen.
Die "POS1-Taste" wird angenommen.

Nur Bild vor- und zurück, erzeugt ein Pixel Vorschub.

Wie kann man diese 4 Tasten im Programm simulieren ?

Muss ich noch genau testen, aber doch komisch.

Some what funny.

The "END_Taste" the keyboard is assumed.
The "POS1 button" is assumed.

Only image back and creates a pixel feed.

How can you simulate the 4 buttons in the program?

Do I need to test accurately, but still funny.

Certains quelle drôle.

Le "END_Taste», le clavier est utilisé.
Le "bouton POS1» est utilisé.

Seule image en arrière et crée un flux de pixels.

Comment pouvez-vous simuler les 4 boutons dans le programme?

Ai-je besoin de tester avec précision, mais toujours drôle.

» Appeler un script/ une page PHP?
» Télécharger une page web
» Télécharger une page Web
» Formatage (page A4)
» Lancement de ma page perso