equal
deleted
inserted
replaced
33 leftClick:= true; |
33 leftClick:= true; |
34 end; |
34 end; |
35 |
35 |
36 procedure HW_zoomIn; cdecl; export; |
36 procedure HW_zoomIn; cdecl; export; |
37 begin |
37 begin |
38 wheelUp:= true; |
38 if wheelDown = false then |
|
39 wheelUp:= true; |
39 end; |
40 end; |
40 |
41 |
41 procedure HW_zoomOut; cdecl; export; |
42 procedure HW_zoomOut; cdecl; export; |
42 begin |
43 begin |
43 wheelDown:= true; |
44 if wheelUp = false then |
|
45 wheelDown:= true; |
44 end; |
46 end; |
45 |
47 |
46 procedure HW_zoomReset; cdecl; export; |
48 procedure HW_zoomReset; cdecl; export; |
47 begin |
49 begin |
48 middleClick:= true; |
50 middleClick:= true; |