Subversion Repositories Kolibri OS

Rev

Rev 9898 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9898 Rev 9912
Line 122... Line 122...
122 
PROCEDURE DrawWindow;
 122 
PROCEDURE DrawWindow;
123 
BEGIN
 123 
BEGIN
124 
  SU.GetSystemColors;
 124 
	SU.GetSystemColors;
125 
  SU.WindowRedrawStatus(1);
 125 
	SU.WindowRedrawStatus(1);
126 
  IF Window.created THEN
 126 
	IF Window.created THEN
- 
 
 127 
		IF ~SU.RolledUp() THEN
127 
    Resize
 128 
			Resize;
- 
 
 129 
			DOM.SetWinSize(Window.width, Window.height)
- 
 
 130 
		END
128 
  ELSE
 131 
	ELSE
129 
    Window.created := TRUE
 132 
		Window.created := TRUE
130 
  END;
 133 
	END;
131 
  SU.DefineAndDrawWindow(Window.left, Window.top, Window.width, Window.height,
 134 
	SU.DefineAndDrawWindow(Window.left, Window.top, Window.width, Window.height,
132 
        SU.winColor, LSL(ORD({0, 1, 2}), 4) + 4 - ORD(DOM.loaded), Window.caption);
 135 
	SU.winColor, LSL(ORD({0, 1, 2}), 4) + 4 - ORD(DOM.loaded), Window.caption);
- 
 
 136 
	IF ~SU.RolledUp() THEN
133 
  SU.DrawRect(0, 0, Window.width - 2 * WINDOW_BEVEL - 1, CANVAS_TOP, SU.winColor);
 137 
		SU.DrawRect(0, 0, Window.width - 2 * WINDOW_BEVEL - 1, CANVAS_TOP, SU.winColor);
134 
  SU.DrawRect(0, Window.height - SkinHeight - WINDOW_BEVEL - STATUSBAR_HEIGHT + 1, Window.width - 2 * WINDOW_BEVEL - 1, STATUSBAR_HEIGHT, SU.winColor);
 138 
		SU.DrawRect(0, Window.height - SkinHeight - WINDOW_BEVEL - STATUSBAR_HEIGHT + 1, Window.width - 2 * WINDOW_BEVEL - 1, STATUSBAR_HEIGHT, SU.winColor);
135 
  SU.DrawRect(0, 0, CANVAS_LEFT, Window.height - SkinHeight - WINDOW_BEVEL, SU.winColor);
 139 
		SU.DrawRect(0, 0, CANVAS_LEFT, Window.height - SkinHeight - WINDOW_BEVEL, SU.winColor);
136 
  SU.DrawRect(Window.width - 2 * WINDOW_BEVEL - CANVAS_LEFT - 1 - SCROLLBAR_WIDTH - 2, 0, CANVAS_LEFT + SCROLLBAR_WIDTH + 2, Window.height - SkinHeight - WINDOW_BEVEL, SU.winColor);
 140 
		SU.DrawRect(Window.width - 2 * WINDOW_BEVEL - CANVAS_LEFT - 1 - SCROLLBAR_WIDTH - 2, 0, CANVAS_LEFT + SCROLLBAR_WIDTH + 2, Window.height - SkinHeight - WINDOW_BEVEL, SU.winColor);
137 
  IF DOM.loaded THEN
 141 
		IF DOM.loaded THEN
138 
    ToolBar;
 142 
			ToolBar;
139 
    DOM.Draw;
 143 
			DOM.Draw;
140 
    DrawStatus
 144 
			DrawStatus
- 
 
 145 
		END
141 
  END;
 146 
	END;
142 
  SU.WindowRedrawStatus(2)
 147 
	SU.WindowRedrawStatus(2)
143 
END DrawWindow;
 148 
END DrawWindow;
Line 268... Line 273...
268 
  RETURN temp = "2BF."
 273 
  RETURN temp = "2BF."
269 
END IsFB2;
 274 
END IsFB2;
Line 270... Line 275...
270 
 
 275 
 
- 
 
 276 
 
271 
 
 277 
PROCEDURE main(title: ARRAY OF CHAR);
- 
 
 278 
VAR
- 
 
 279 
	WinW, X1, Y1, X2, Y2, scr_pos, ignore: INTEGER;
272 
PROCEDURE main(title: ARRAY OF CHAR);
 280 
	Win2: W.tWindow; resize: BOOLEAN;
273 
VAR WinW, X1, Y1, X2, Y2, scr_pos: INTEGER; Win2: W.tWindow; resize: BOOLEAN; FilePath: S.STRING; defpath: BOOLEAN;
 281 
	FilePath: S.STRING; defpath: BOOLEAN;
274 
BEGIN
 282 
BEGIN
275 
  SkinHeight := SU.SkinHeight();
 283 
  SkinHeight := SU.SkinHeight();
276 
  sb := box_lib.kolibri_new_scrollbar(10 * 65536 + 200, 10 * 65536 + 30, 25, 15, 10, 0, 0, 0, 0, 0);
 284 
  sb := box_lib.kolibri_new_scrollbar(10 * 65536 + 200, 10 * 65536 + 30, 25, 15, 10, 0, 0, 0, 0, 0);
Line 300... Line 308...
300 
  END;
 308 
  END;
Line 301... Line 309...
301 
 
 309 
 
302 
  SU.SetEventsMask({0, 1, 2, 5, 31});
 310 
  SU.SetEventsMask({0, 1, 2, 5, 31});
303 
  SU.GetScreenArea(X1, Y1, X2, Y2);
 311 
  SU.GetScreenArea(X1, Y1, X2, Y2);
- 
 
 312 
  WinW := (X2 - X1) DIV 2;
304 
  WinW := (X2 - X1) DIV 2;
 313 
  SU.MinMax(WinW, 640, 65535);
305 
  W.init(Window, WinW DIV 2, Y1, WinW, Y2 - Y1, title);
 314 
  W.init(Window, (X2 - X1 - WinW) DIV 2, Y1, WinW, Y2 - Y1, title);
306 
  Settings.Default;
 315 
  Settings.Default;
Line 307... Line 316...
307 
  DOM.GetWinSize(FileName, Window.width, Window.height);
 316 
  DOM.GetWinSize(FileName, Window.width, Window.height);
308 
 
 317 
 
Line 340... Line 349...
340 
    Toolbar.delimiter(toolbar);
 349 
	Toolbar.delimiter(toolbar);
341 
    Toolbar.add(toolbar, SETTINGS,  60, "");
 350 
	Toolbar.add(toolbar, SETTINGS,  60, "");
Line 342... Line 351...
342 
 
 351 
 
343 
  DOM.Open(FileName, DrawWindow, DrawStatus, DrawToolbar);
 352 
	DOM.Open(FileName, DrawWindow, DrawStatus, DrawToolbar);
344 
  IF resize THEN
 353 
	IF resize THEN
- 
 
 354 
		DOM.Resize(Window.width - 2 * CANVAS_LEFT - 2 * WINDOW_BEVEL - 1 - SCROLLBAR_WIDTH,
345 
    DOM.Resize(Window.width - 2 * CANVAS_LEFT - 2 * WINDOW_BEVEL - 1 - SCROLLBAR_WIDTH, Window.height - SkinHeight - CANVAS_TOP - WINDOW_BEVEL + 1 - STATUSBAR_HEIGHT)
 355 
			Window.height - SkinHeight - CANVAS_TOP - WINDOW_BEVEL + 1 - STATUSBAR_HEIGHT)
Line 346... Line 356...
346 
  END;
 356 
	END;
347 
 
 357 
 
348 
  DrawWindow;
 358 
	DrawWindow;
349 
  scr_pos := sb.position;
 359 
	scr_pos := sb.position;
350 
  WHILE TRUE DO
 360 
	WHILE TRUE DO
- 
 
 361 
		CASE SU.WaitForEvent() OF
- 
 
 362 
		|1 : DrawWindow
351 
    CASE SU.WaitForEvent() OF
 363 
		|2 :
- 
 
 364 
			IF ~SU.RolledUp() THEN
- 
 
 365 
				KeyDown
- 
 
 366 
			ELSE
352 
    |1 : DrawWindow
 367 
				ignore := SU.GetKey()
- 
 
 368 
			END
- 
 
 369 
		|3 : ButtonClick
353 
    |2 : KeyDown
 370 
		|6 :
354 
    |3 : ButtonClick
 371 
			IF ~SU.RolledUp() THEN
355 
    |6 : box_lib.scrollbar_v_mouse(sb);
 372 
				box_lib.scrollbar_v_mouse(sb);
356 
         IF sb.position # scr_pos THEN
 373 
				IF sb.position # scr_pos THEN
357 
           DOM.ScrollBar;
 374 
					DOM.ScrollBar;
358 
           DOM.Draw;
 375 
					DOM.Draw;
359 
           scr_pos := sb.position;
 376 
					scr_pos := sb.position;
- 
 
 377 
				END;
- 
 
 378 
				MouseEvent
- 
 
 379 
			ELSE
360 
         END;
 380 
				ignore := SU.MouseVScroll()
361 
         MouseEvent
 381 
			END
362 
    END
 382 
		END
Line 363... Line 383...
363 
  END
 383 
	END
364 
END main;
 384 
END main;
365 
 
 385