1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
|
procedure item_change integer fromi integer toi returns integer
local integer rval
forward get msg_item_change fromi toi to rval
local string help help2
local integer zeile spalte len
get current_item to spalte
get current_row to zeile
if (((zeile*23)+21) = toi) Begin
get value of (lfsobj(current_object)) item (toi-1) to help
if ((help = "W";) or (help = "w";) or (help = "F";) or (help = "f";)) Begin
set item_shadow_state of (lfsobj(current_object)) item (toi) to FALSE
End // if len
else Begin
set item_shadow_state of (lfsobj(current_object)) item (toi) to true
End
End // if
end_procedure
/code]
oder
[code]
Procedure Entry_Display Integer iFile Integer iType
Local Integer iBase iItem iItems
if (aufger.we > 0) Begin
if ((aufger.we - aufger.lrest) < aufger.verteiler) Begin
Get Base_Item to iBase // first item of current row
Get Item_Limit to iItems // items per row
Move (iBase +iItems -1) to iItems // last item in the current row
For iItem from iBase to iItems // set all items in row to color
Set ItemColor Item iItem to (RGB(255,255,170)) //clteal
Loop
End
End
|
