Пропадают полосы прокрутки в редакторе кода

Комментарии

• AlexTZ

  November 2006 отредактировано 08:58

  Странно, у меня нормально.
• Eugene Lachinov Санкт-Петербург

  November 2006 отредактировано 08:58

  Значит мои проблемы (последствия добавления своих изменений в очередной билд ), извиняюсь за беспокойство
  
  
  
• AlexTZ

  November 2006 отредактировано 08:58

  А как проверить (последовательность действий)?
• Eugene Lachinov Санкт-Петербург

  November 2006 отредактировано 08:58

  Проверять не надо, спасибо
  
  В процессе внесения изменений стер строчку
  ScrollInfo.nMin := 0;
  

  
  procedure TfrxScrollWin.UpdateScrollBar(Max, Page, Pos: Integer; Code: Word);
  var
    ScrollInfo: TScrollInfo;
  begin
    ScrollInfo.cbSize := SizeOf(ScrollInfo);
    ScrollInfo.fMask := SIF_ALL;
    ScrollInfo.nMin := 0;
    if Max < Page then begin
      Max := 0;
      Pos := 0;
    end else if Max < Pos then
      Pos := 0;
    if Code = SB_VERT then
      FVertPosition := Pos
    else
      FHorzPosition := Pos;
    ScrollInfo.nMax := Max;
    ScrollInfo.nPage := Page;
    ScrollInfo.nPos := Pos;
    ScrollInfo.nTrackPos := Pos;
    FlatSB_SetScrollInfo(Handle, Code, ScrollInfo, True);
  end;