paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: Remove a writeln from checkbox demo.

Browse Source 
git-svn-id: trunk@65336 -
This commit is contained in:
wp 2021-07-01 21:45:01 +00:00
parent 16b5a4af7c
commit b8af100318
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/checkbox.pp
View File

@ -122,7 +122,7 @@ procedure TForm1.CheckBoxClick(Sender : TObject);
Begin
DebugLn('[TForm1.CheckBoxClick]');
if assigned (CheckBox1) and assigned (label1) then begin
Writeln (' [checkbox and label assigned]');
DebugLn (' [checkbox and label assigned]');
if CheckBox1.Checked
then label1.Caption := 'checked'
else label1.Caption := 'unchecked';