BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /programs/develop/cedit/SRC/CheckBox.ob07 @ 9629

  → /programs/develop/cedit/SRC/CheckBox.ob07 @ 9630

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 9629 → Rev 9630

/programs/develop/cedit/SRC/CheckBox.ob07
42,7 → 42,7
END;
PROCEDURE paint* (chkbox: tCheckBox);
PROCEDURE draw* (chkbox: tCheckBox);
VAR
canvas: G.tCanvas;
BEGIN
70,7 → 70,7
G.TextOut2(canvas, fontHeight + padding, 0, chkbox.text, LENGTH(chkbox.text));
G.DrawCanvas(canvas, chkbox.left, chkbox.top)
END
END paint;
END draw;
PROCEDURE create* (text: ARRAY OF WCHAR; VAR chkbox: tCheckBox);
104,7 → 104,7
IF U.between(0, x, chkbox.width - 1) & U.between(0, y, chkbox.height - 1) THEN
chkbox.value := ~chkbox.value;
END;
paint(chkbox)
draw(chkbox)
END
ELSE
chkbox.mouse := FALSE