Subversion Repositories Kolibri OS

Rev

Rev 9628 | Rev 9645 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9628 Rev 9630
Line 180... Line 180...
180 
    texts: ARRAY maxTexts OF T.tText;
 180 
    texts: ARRAY maxTexts OF T.tText;
181 
    textsCount, curText: INTEGER;
 181 
    textsCount, curText: INTEGER;
Line 182... Line 182...
182 
 
 182 
 
183 
    winWidth, winHeight: INTEGER;
 183 
    winWidth, winHeight: INTEGER;
184 
    SkinHeight: INTEGER;
 184 
    SkinHeight: INTEGER;
185 
    AppPath, runScript, buildScript, debugScript: RW.tFileName;
 185 
    AppPath, runScript, buildScript, debugScript, CurFolder: RW.tFileName;
186 
    OD: OpenDlg.Dialog;
 186 
    OD: OpenDlg.Dialog;
Line 187... Line 187...
187 
    confirm, notFound, menuFindClicked, search, searchOpened: BOOLEAN;
 187 
    confirm, notFound, menuFindClicked, search, searchOpened: BOOLEAN;
188 
 
 188 
 
Line 241... Line 241...
241 
    	INCL(edit.flags, 1)
 241 
    	INCL(edit.flags, 1)
242 
    ELSE
 242 
    ELSE
243 
    	EXCL(edit.flags, 1)
 243 
    	EXCL(edit.flags, 1)
244 
    END;
 244 
    END;
245 
    IF search & searchOpened THEN
 245 
    IF search & searchOpened THEN
246 
        EB.paint(edit)
 246 
        EB.draw(edit)
247 
    END
 247 
    END
248 
END EditBox_SetFocus;
 248 
END EditBox_SetFocus;
Line 249... Line 249...
249 
 
 249 
 
Line 365... Line 365...
365 
BEGIN
 365 
BEGIN
366 
	scroll.maxVal := maxVal;
 366 
	scroll.maxVal := maxVal;
367 
    scroll.left := left;
 367 
    scroll.left := left;
368 
    scroll.top := top;
 368 
    scroll.top := top;
369 
    Scroll.setValue(scroll, value);
 369 
    Scroll.setValue(scroll, value);
370 
    Scroll.paint(scroll)
 370 
    Scroll.draw(scroll)
371 
END DrawScroll;
 371 
END DrawScroll;
Line 372... Line 372...
372 
 
 372 
 
373 
 
 373 
 
Line 398... Line 398...
398 
 
 398 
 
399 
        T.getScroll(text, scrollX, scrollY);
 399 
        T.getScroll(text, scrollX, scrollY);
400 
        DrawScroll(vScroll, LEFT + canvas.width, TOP - 1, scrollY, text.count - 1);
 400 
        DrawScroll(vScroll, LEFT + canvas.width, TOP - 1, scrollY, text.count - 1);
401 
        DrawScroll(hScroll, LEFT, TOP + canvas.height, scrollX, text.maxLength);
 401 
        DrawScroll(hScroll, LEFT, TOP + canvas.height, scrollX, text.maxLength);
402 
        IF search & searchOpened THEN
 402 
        IF search & searchOpened THEN
403 
	        CheckBox.paint(BKW);
 403 
	        CheckBox.draw(BKW);
404 
	        CheckBox.paint(CS);
 404 
	        CheckBox.draw(CS);
405 
	        CheckBox.paint(WH);
 405 
	        CheckBox.draw(WH);
Line 406... Line 406...
406 
        END;
 406 
        END;
407 
 
 407 
 
408 
		G.SetColor(canvas, K.colors.line);
 408 
		G.SetColor(canvas, K.colors.line);
Line 483... Line 483...
483 
    ReplaceEdit.top := top + 75;
 483 
    ReplaceEdit.top := top + 75;
484 
    GotoEdit.top := top + 350;
 484 
    GotoEdit.top := top + 350;
485 
    FindEdit.left := left;
 485 
    FindEdit.left := left;
486 
    ReplaceEdit.left := left;
 486 
    ReplaceEdit.left := left;
487 
    GotoEdit.left := left;
 487 
    GotoEdit.left := left;
488 
    EB.paint(FindEdit);
 488 
    EB.draw(FindEdit);
489 
    EB.paint(ReplaceEdit);
 489 
    EB.draw(ReplaceEdit);
490 
    EB.paint(GotoEdit);
 490 
    EB.draw(GotoEdit);
491 
    y := top + 200;
 491 
    y := top + 200;
492 
    K.CreateButton(btnFindNext, left, y, btnWidth, btnHeight, K.colors.button, "next"); INC(y, btnHeight + 10);
 492 
    K.CreateButton(btnFindNext, left, y, btnWidth, btnHeight, K.colors.button, "next"); INC(y, btnHeight + 10);
493 
    K.CreateButton(btnReplace, left, y, btnWidth, btnHeight, K.colors.button, "replace"); INC(y, btnHeight + 10);
 493 
    K.CreateButton(btnReplace, left, y, btnWidth, btnHeight, K.colors.button, "replace"); INC(y, btnHeight + 10);
494 
    K.CreateButton(btnReplaceAll, left, y, btnWidth + 5*fontWidth - 2, btnHeight, K.colors.button, "replace all");
 494 
    K.CreateButton(btnReplaceAll, left, y, btnWidth + 5*fontWidth - 2, btnHeight, K.colors.button, "replace all");
495 
    K.CreateButton(btnGoto, left, top + 380, btnWidth, btnHeight, K.colors.button, "go");
 495 
    K.CreateButton(btnGoto, left, top + 380, btnWidth, btnHeight, K.colors.button, "go");
Line 946... Line 946...
946 
 
 946 
 
947 
 
 947 
 
948 
PROCEDURE Script (script: ARRAY OF CHAR);
 948 
PROCEDURE Script (script: ARRAY OF CHAR);
- 
 
 949 
BEGIN
- 
 
 950 
    IF script # "" THEN
949 
BEGIN
 951 
    	U.getPath(script, CurFolder);
950 
    IF script # "" THEN
 952 
    	K.SetCurFolder(CurFolder);
951 
        K.Run("/sys/@open", script)
 953 
        K.Run("/sys/@open", script)