diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index f372683353..58bf27a32a 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -4175,7 +4175,7 @@ begin ScrollInfo.nPage := CharsInWindow; ScrollInfo.nPos := LeftChar; {$IFDEF SYN_LAZARUS} - { for win32 target, need to call showscrollbar before setscrollinfo } + { for win32 target, need to call showscrollbar before setscrollinfo } ShowScrollBar(Handle, SB_HORZ, True); {$ENDIF} SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True); diff --git a/examples/toolbar.pp b/examples/toolbar.pp index c18cbabe99..2b2aa50cb4 100644 --- a/examples/toolbar.pp +++ b/examples/toolbar.pp @@ -81,23 +81,16 @@ with ToolButton1 do OnClick := @Button1Click; Show; end; -writeln('AAA1'); Toolbutton2 := TToolButton.Create(Toolbar1); with ToolButton2 do Begin Name:='Toolbutton2'; -writeln('AAA2'); Parent := Toolbar1; -writeln('AAA3'); Caption := '2'; -writeln('AAA3'); Style := tbsButton; -writeln('AAA4'); OnClick := @Button2Click; -writeln('AAA5'); Show; end; -writeln('AAA2'); Toolbutton3 := TToolButton.Create(Toolbar1); with ToolButton3 do Begin