suimemo.pas

SUIPack是一款为Delphi和C++Builder开发的所见即所得的界面增强VCL组件

//procedure TsuiRichEdit.Notification(AComponent: TComponent;
//  Operation: TOperation);
//begin
//    inherited;
//
//    if AComponent = nil then
//        Exit;
//
//    if (
//        (Operation = opRemove) and
//        (AComponent = m_HScrollBar)
//    )then
//    begin
//        m_HScrollBar := nil;
//        UpdateInnerScrollBars();
//    end;
//
//    if (
//        (Operation = opRemove) and
//        (AComponent = m_VScrollBar)
//    )then
//    begin
//        m_VScrollBar := nil;
//        UpdateInnerScrollBars();
//    end;
//
//    if (
//        (Operation = opRemove) and
//        (AComponent = m_FileTheme)
//    )then
//    begin
//        m_FileTheme := nil;
//        SetUIStyle(SUI_THEME_DEFAULT);          
//    end;
//end;
//
//procedure TsuiRichEdit.OnHScrollBarChange(Sender: TObject);
//begin
//    if m_SelfChanging then
//        Exit;
//    m_UserChanging := true;
//    SendMessage(Handle, WM_HSCROLL, MakeWParam(SB_THUMBPOSITION, m_HScrollBar.Position), 0);
//    Invalidate;
//    m_UserChanging := false;
//end;
//
//procedure TsuiRichEdit.OnVScrollBarChange(Sender: TObject);
//begin
//    if m_SelfChanging then
//        Exit;
//    m_UserChanging := true;
//    SendMessage(Handle, WM_VSCROLL, MakeWParam(SB_THUMBPOSITION, m_VScrollBar.Position), 0);
//    Invalidate;
//    m_UserChanging := false;
//end;
//
//procedure TsuiRichEdit.SetBorderColor(const Value: TColor);
//begin
//    m_BorderColor := Value;
//    Repaint();
//end;
//
//procedure TsuiRichEdit.SetFileTheme(const Value: TsuiFileTheme);
//begin
//    m_FileTheme := Value;
//    if m_VScrollBar <> nil then
//        m_VScrollBar.FileTheme := Value;
//    if m_HScrollBar <> nil then
//        m_HScrollBar.FileTheme := Value;
//    SetUIStyle(m_UIStyle);
//end;
//
//procedure TsuiRichEdit.SetHScrollBar(const Value: TsuiScrollBar);
//begin
//    if m_HScrollBar = Value then
//        Exit;
//    if m_HScrollBar <> nil then
//    begin
//        m_HScrollBar.OnChange := nil;
//        m_HScrollBar.LineButton := 0;
//        m_HScrollBar.Max := 100;
//        m_HScrollBar.Enabled := true;
//    end;
//
//    m_HScrollBar := Value;
//    if m_HScrollBar = nil then
//    begin
//        UpdateInnerScrollBars();
//        Exit;
//    end;
//    m_HScrollBar.Orientation := suiHorizontal;
//    m_HScrollBar.OnChange := OnHScrollBarChange;
//    m_HScrollBar.BringToFront();
//    UpdateInnerScrollBars();
//
//    UpdateScrollBarsPos();
//end;
//
//procedure TsuiRichEdit.SetUIStyle(const Value: TsuiUIStyle);
//var
//    OutUIStyle : TsuiUIStyle;
//begin
//    m_UIStyle := Value;
//
//    if UsingFileTheme(m_FileTheme, m_UIStyle, OutUIStyle) then
//        m_BorderColor := m_FileTheme.GetColor(SUI_THEME_CONTROL_BORDER_COLOR)
//    else
//        m_BorderColor := GetInsideThemeColor(OutUIStyle, SUI_THEME_CONTROL_BORDER_COLOR);
//
//    if m_VScrollBar <> nil then
//        m_VScrollBar.UIStyle := OutUIStyle;
//    if m_HScrollBar <> nil then
//        m_HScrollBar.UIStyle := OutUIStyle;
//    Repaint();
//end;
//
//procedure TsuiRichEdit.SetVScrollBar(const Value: TsuiScrollBar);
//begin
//    if m_VScrollBar = Value then
//        Exit;
//    if m_VScrollBar <> nil then
//    begin
//        m_VScrollBar.OnChange := nil;
//        m_VScrollBar.LineButton := 0;
//        m_VScrollBar.Max := 100;
//        m_VScrollBar.Enabled := true;
//    end;
//
//    m_VScrollBar := Value;
//    if m_VScrollBar = nil then
//    begin
//        UpdateInnerScrollBars();
//        Exit;
//    end;
//    m_VScrollBar.Orientation := suiVertical;
//    m_VScrollBar.OnChange := OnVScrollBArChange;
//    m_VScrollBar.BringToFront();
//    UpdateInnerScrollBars();
//
//    UpdateScrollBarsPos();
//end;
//
//procedure TsuiRichEdit.UpdateInnerScrollBars;
//begin
//    if (m_VScrollBar <> nil) and (m_HScrollBar <> nil) then
//        ScrollBars := ssBoth
//    else if (m_VScrollBar <> nil) and (m_HScrollBar = nil) then
//        ScrollBars := ssVertical
//    else if (m_HScrollBar <> nil) and (m_VScrollBar = nil) then
//        ScrollBars := ssHorizontal
//    else
//        ScrollBars := ssNone;
//end;
//
//procedure TsuiRichEdit.UpdateScrollBars;
//var
//    info : tagScrollInfo;
//    barinfo : tagScrollBarInfo;
//begin
//    if m_UserChanging then
//        Exit;
//    m_SelfChanging := true;
//    if m_HScrollBar <> nil then
//    begin
//        barinfo.cbSize := SizeOf(barinfo);
//        GetScrollBarInfo(Handle, Integer(OBJID_HSCROLL), barinfo);
//        if (barinfo.rgstate[0] = STATE_SYSTEM_INVISIBLE) or
//           (barinfo.rgstate[0] = STATE_SYSTEM_UNAVAILABLE) then
//        begin
//            m_HScrollBar.LineButton := 0;
//            m_HScrollBar.Enabled := false;
//            m_HScrollBar.SliderVisible := false;
//        end
//        else
//        begin
//            m_HScrollBar.LineButton := abs(barinfo.xyThumbBottom - barinfo.xyThumbTop);
//            m_HScrollBar.SmallChange := 3 * m_HScrollBar.PageSize;
//            m_HScrollBar.Enabled := true;
//            m_HScrollBar.SliderVisible := true;
//        end;
//        info.cbSize := SizeOf(info);
//        info.fMask := SIF_ALL;
//        GetScrollInfo(Handle, SB_HORZ, info);
//        m_HScrollBar.Max := info.nMax - Integer(info.nPage) + 1;
//        m_HScrollBar.Min := info.nMin;
//        m_HScrollBar.Position := info.nPos;
//    end;
//
//    if m_VScrollBar <> nil then
//    begin
//        barinfo.cbSize := SizeOf(barinfo);
//        GetScrollBarInfo(Handle, Integer(OBJID_VSCROLL), barinfo);
//        if (barinfo.rgstate[0] = STATE_SYSTEM_INVISIBLE) or
//           (barinfo.rgstate[0] = STATE_SYSTEM_UNAVAILABLE) then
//        begin
//            m_VScrollBar.LineButton := 0;
//            m_VScrollBar.Enabled := false;
//            m_VScrollBar.SliderVisible := false;
//        end
//        else
//        begin
//            m_VScrollBar.LineButton := abs(barinfo.xyThumbBottom - barinfo.xyThumbTop);
//            m_VScrollBar.Enabled := true;
//            m_VScrollBar.SliderVisible := true;
//        end;
//        info.cbSize := SizeOf(info);
//        info.fMask := SIF_ALL;
//        GetScrollInfo(Handle, SB_VERT, info);
//        m_VScrollBar.Max := info.nMax - Integer(info.nPage) + 1;
//        m_VScrollBar.Min := info.nMin;
//        m_VScrollBar.Position := info.nPos;
//    end;
//    m_SelfChanging := false;
//end;
//
//procedure TsuiRichEdit.UpdateScrollBarsPos;
//begin
//    if m_HScrollBar <> nil then
//    begin
//        if Height < m_HScrollBar.Height then
//            m_HScrollBar.Visible := false
//        else
//            m_HScrollBar.Visible := true;
//        m_HScrollBar.Left := Left + 1;
//        m_HScrollBar.Top := Top + Height - m_HScrollBar.Height - 2;
//        if m_VScrollBar <> nil then
//            m_HScrollBar.Width := Width - 2 - m_VScrollBar.Width
//        else
//            m_HScrollBar.Width := Width - 2
//    end;
//
//    if m_VScrollBar <> nil then
//    begin
//        if Width < m_VScrollBar.Width then
//            m_VScrollBar.Visible := false
//        else
//            m_VScrollBar.Visible := true;
//        m_VScrollBar.Left := Left + Width - m_VScrollBar.Width - 2;
//        m_VScrollBar.Top := Top + 1;
//        if m_HScrollBar <> nil then
//            m_VScrollBar.Height := Height - 2 - m_HScrollBar.Height
//        else
//            m_VScrollBar.Height := Height - 2;
//    end;
//
//    UpdateScrollBars();    
//end;
//
//procedure TsuiRichEdit.WMClear(var Message: TMessage);
//begin
//    inherited;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMCut(var Message: TMessage);
//begin
//    inherited;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMEARSEBKGND(var Msg: TMessage);
//begin
//    inherited;
//
//    DrawControlBorder(self, m_BorderColor, Color);
//end;
//
//procedure TsuiRichEdit.WMHSCROLL(var Message: TWMHScroll);
//begin
//    inherited;
//    if m_UserChanging then
//        Exit;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMKeyDown(var Message: TWMKeyDown);
//begin
//    inherited;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMLBUTTONDOWN(var Message: TMessage);
//begin
//    inherited;
//    m_MouseDown := true;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMLButtonUp(var Message: TMessage);
//begin
//    inherited;
//    m_MouseDown := false;
//end;
//
//procedure TsuiRichEdit.WMMOUSEMOVE(var Message: TMessage);
//begin
//    inherited;
//    if m_MouseDown then UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMMOUSEWHEEL(var Message: TMessage);
//begin
//    inherited;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMMOVE(var Msg: TMessage);
//begin
//    inherited;
//    UpdateScrollBarsPos();
//end;
//
//procedure TsuiRichEdit.WMPAINT(var Msg: TMessage);
//begin
//    inherited;
//
//    DrawControlBorder(self, m_BorderColor, Color);
//end;
//
//procedure TsuiRichEdit.WMPaste(var Message: TMessage);
//begin
//    inherited;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMSetText(var Message: TWMSetText);
//begin
//    inherited;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMSIZE(var Msg: TMessage);
//begin
//    inherited;
//    UpdateScrollBarsPos();
//end;
//
//procedure TsuiRichEdit.WMUndo(var Message: TMessage);
//begin
//    inherited;
//    UpdateScrollBars();
//end;
//
//procedure TsuiRichEdit.WMVSCROLL(var Message: TWMVScroll);
//begin
//    inherited;
//    if m_UserChanging then
//        Exit;
//    UpdateScrollBars();
//end;

end.