精华内容
下载资源
问答
  • 我想在透明的panel里滚动文本! 主要是想透明滚动,看到下面的控件! 怎样实现! VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061222152202184.html 我想在透明的panel里滚动文本! 主要是想...
    我想在透明的panel里滚动文本! 主要是想透明滚动,看到下面的控件! 怎样实现! VCL组件开发及应用
    http://www.delphi2007.net/DelphiVCL/html/delphi_20061222152202184.html
    我想在透明的panel里滚动文本!   主要是想透明滚动,看到下面的控件!   怎样实现!

    编码如下!但是有文本重叠显示成一片红的问题.请高手帮忙修改!  
        unit       Glass;  
               
          interface        
               
          uses        
                  Windows,       Messages,       SysUtils,       Classes,       Graphics,       Controls,       Forms,       Dialogs,        
                  ExtCtrls;        
       
          type        
                  TGlassStyle       =       (        
                          gsBlackness,       gsDstInvert,       gsMergeCopy,       gsMergePaint,       gsNotSrcCopy,  
                          gsNotSrcErase,       gsPatCopy,       gsPatInvert,       gsPatPaint,       gsSrcAnd,  
                          gsSrcCopy,       gsSrcErase,       gsSrcInvert,       gsSrcPaint,       gsWhiteness);  
       
              TGlass       =       class(TCustomControl)  
                  private  
              FLines:TStringList;  
              FScrollDelay:integer;  
              FLoop:integer;  
              FRowSpacing:integer;  
              FBgColor:TColor;  
              FFont:TFont;  
              Timer:TTimer;  
              FPos,I,K,LineH,j:integer;  
              //-------------------------------  
              FMode,FTransparent:Boolean;  
              Fbmp1,FBgbmp:Tbitmap;  
              sLine,s:string;  
              //-------------------  
              FBmp:TBitmap;  
              FActive:Boolean;  
              FColor:       TColor;  
              FStyle:       TGlassStyle;  
              FOnPaint:       TNotifyEvent;  
              procedure   SetLines(Value:TStringList);  
              procedure   SetFont(Value:TFont);  
              function   GetLines:TStringList;  
              function   GetFont:TFont;  
              function   GetLoop:integer;  
              procedure   Init;  
              procedure   SetLoop(Value:Integer);  
              procedure   SetBgbmp(Value:Tbitmap);  
              procedure   TimerProc(Sender:Tobject);  
              procedure   SetScrollDelay(Value:Integer);  
              procedure   SetActive(Value:boolean);  
              procedure   ReadandWritetext;  
              function   _CutString(Len:   integer;   var   S:   string):   string;  
              procedure   CPaint;  
                        //-----------------------  
       
       
                          procedure       SetColor(Value:       TColor);  
                          procedure       SetStyle(Value:       TGlassStyle);  
                          procedure       CMCtl3DChanged(var       Message:       TMessage);       message       CM_CTL3DCHANGED;  
                          procedure       WMEraseBkgnd(var       Message:       TMessage);       message       WM_ERASEBKGND;  
                          procedure       WMWindowPosChanging(var       Message:       TWMWindowPosChanging);       message       WM_WINDOWPOSCHANGING;  
                        //   procedure       WMPaint(var   Message:   TWMPaint);   message   WM_PAINT;  
                  protected  
                          Buffer:       TBitmap;  
       
                          procedure       CreateParams(var       Params:       TCreateParams);       override;  
                          procedure       Paint;       override;  
                          procedure       Resize;       override;  
                  public  
                          constructor       Create(AOwner:       TComponent);       override;  
                          destructor       Destroy;       override;  
                        //   procedure       invalidate;override;  
                          property       Canvas;  
                  published  
                        property   Lines:TStringList   read     GetLines   Write   SetLines;  
                        property   ScrollDelay:integer   read   FScrollDelay   write   SetScrollDelay   default   10;  
                        property   Bgbmp:Tbitmap   read   FBgbmp   write   SetBgbmp;  
                        property   Font:TFont   read   GetFont   write   SetFont;  
                        property   Active:boolean   read   FActive   write   SetActive;  
                        property   UPMode:Boolean   read   FMode   write   FMode;  
                        property   Transparent:Boolean   read   FTransparent   write   FTransparent;  
                        property   Loop:integer   read   GetLoop   write   SetLoop;  
                        property   RowSpacing:integer   read   FRowSpacing   write   FRowSpacing;  
                          //------------------------  
                          property       Align;  
                          property       Anchors;  
                          property       AutoSize;  
                          property       BiDiMode;  
                          property       BorderWidth;  
                          property       Color:       TColor       read       FColor       write       SetColor;  
                          property       Ctl3D;  
                          property       Enabled;  
                          property       Style:       TGlassStyle       read       FStyle       write       SetStyle       default       gsSrcAnd;  
                          property       Visible;  
       
                          property       OnClick;  
                          property       OnDblClick;  
                          property       OnEnter;  
                          property       OnExit;  
                          property       OnMouseDown;  
                          property       OnMouseMove;  
                          property       OnMouseUp;  
                          property       OnResize;  
                          property       OnPaint:       TNotifyEvent       read       FOnPaint       write       FOnPaint;  
                  end;  
       
          procedure       Register;  
       
          implementation  
       
          procedure       Register;  
          begin  
                  RegisterComponents('Delphi   Area',       [TGlass]);  
          end;  
       
          function       GlassStyleToInt(gs:       TGlassStyle):       LongInt;  
          begin  
                  case       gs       of  
                          gsBlackness           :       Result       :=       cmBlackness;  
                          gsDstInvert           :       Result       :=       cmDstInvert;  
                          gsMergeCopy           :       Result       :=       cmMergeCopy;  
                          gsMergePaint       :       Result       :=       cmMergePaint;  
                          gsNotSrcCopy       :       Result       :=       cmNotSrcCopy;  
                          gsNotSrcErase:       Result       :=       cmNotSrcErase;  
                          gsPatCopy                   :       Result       :=       cmPatCopy;  
                          gsPatInvert           :       Result       :=       cmPatInvert;  
                          gsPatPaint               :       Result       :=       cmPatPaint;  
                          gsSrcAnd                       :       Result       :=       cmSrcAnd;  
                          gsSrcCopy                   :       Result       :=       cmSrcCopy;  
                          gsSrcErase               :       Result       :=       cmSrcErase;  
                          gsSrcInvert           :       Result       :=       cmSrcInvert;  
                          gsSrcPaint               :       Result       :=       cmSrcPaint;  
                          gsWhiteness           :       Result       :=       cmWhiteness;  
                          else     Assert(True,       'Error       parameter       in       function       GlassStyleToInt');  
                  end;  
          end;

    constructor       TGlass.Create(AOwner:       TComponent);  
          begin  
                  inherited       Create(AOwner);  
                      FFont:=TFont.Create;  
                      FLines:=TStringList.Create;  
                      Timer:=TTimer.Create(Self);  
                      Timer.Interval:=10;  
                      FScrollDelay:=10;  
                      Timer.Enabled:=false;  
                      Timer.OnTimer:=TimerProc;  
                      FBmp:=TBitmap.Create;  
                      Fbmp1:=Tbitmap.Create;  
                      FBgbmp:=Tbitmap.Create;  
                      FBgColor:=clBlack;  
                  //-------------------  
                  Buffer       :=       TBitmap.Create;  
       
                  ControlStyle       :=       [csAcceptsControls,       csCaptureMouse,       csClickEvents,  
                          csDoubleClicks,       csReplicatable];  
                  Width       :=       100;  
                  Height       :=       100;  
                  FStyle       :=       gsSrcAnd;  
                  ParentCtl3d       :=       False;  
                  Ctl3D       :=       False;  
                  ParentColor       :=       False;  
                  FColor       :=       clWhite;  
       
          end;  
       
          destructor       TGlass.Destroy;  
          begin  
            FFont.Free;  
            FLines.Free;  
            Timer.Free;  
            FBmp.Free;  
            Fbmp1.Free;  
            FBgbmp.free;  
                  //----     ------------------------  
                  Buffer.Free;  
                  inherited       Destroy;  
          end;  
       
          procedure       TGlass.Paint;  
          var  
                  R:       TRect;  
                  rop:       LongInt;  
          begin  
                  R       :=       Rect(0,       0,       Width,       Height);  
                  Buffer.Width       :=       Width;  
                  Buffer.Height       :=       Height;  
                  Buffer.Canvas.Brush.Style       :=       bsClear;  
                  Buffer.Canvas.Brush.Color       :=       FColor;  
                //   Buffer.Canvas.FillRect(Rect(0,       0,       Width,       Height));  
                  rop       :=       GlassStyleToInt(FStyle);  
                  //StretchBlt(Buffer.Canvas.Handle,       0,       0,       Width,       Height,  
              //                                                 Canvas.Handle,       0,       0,       Width,       Height,       rop);  
                  if       Ctl3D       then       DrawEdge(Buffer.Canvas.Handle,       R,       BDR_RAISEDINNER,       BF_RECT);  
                //   Buffer.Canvas.Pen.Mode       :=       pmCopy;  
              //     Buffer.Canvas.Pen.Style       :=       psSolid;  
                  Buffer.Transparent:=FTransparent;  
                  Buffer.TransparentColor:=FColor;  
                  Buffer.TransparentMode:=tmAuto;  
                  Canvas.Draw(0,       0,       Buffer);  
       
                if       Assigned(FOnPaint)       then       FOnPaint(Self);  
          end;  
       
       
          procedure       TGlass.SetColor(Value:       TColor);  
          begin  
                  if       Value       <>       FColor       then  
                  begin  
                          FColor       :=       Value;  
                          RecreateWnd;  
                  end;  
          end;  
       
          procedure       TGlass.CreateParams(var       Params:       TCreateParams);  
          begin  
                  inherited       CreateParams(Params);  
       
                  Params.ExStyle       :=       Params.ExStyle       +       WS_EX_TRANSPARENT;  
          end;  
       
          procedure       TGlass.WMWindowPosChanging(var       Message:       TWMWindowPosChanging);  
          begin  
                  Invalidate;  
       
                  inherited;  
          end;  
       
          procedure       TGlass.WMEraseBkgnd(var       Message:       TMessage);  
          begin  
                  Message.Result       :=       0;  
          end;  
       
          procedure       TGlass.Resize;  
          begin  
                  Invalidate;  
       
                  inherited;  
          end;  
       
          procedure       TGlass.CMCtl3DChanged(var       Message:       TMessage);  
          begin  
                  inherited;  
       
                  RecreateWnd;  
          end;  
       
          procedure       TGlass.SetStyle(Value:       TGlassStyle);  
          begin  
                  if       Value       <>       FStyle       then  
                  begin  
                          FStyle       :=       Value;  
                          RecreateWnd;  
                  end;  
          end;  
          function   TGlass.GetFont:   TFont;  
      begin  
              if   Assigned(FFont)   then   Result:=FFont  
              else   Result:=Self.Canvas.Font;  
      end;  
      //-------------------------------------------  
      function   TGlass.GetLoop:integer;  
      begin  
          Result:=Floop;  
      end;  
      procedure   TGlass.Init;  
      begin  
            FBmp.Width:=Self.Width;  
            FBmp.Height:=Self.Height;  
            With   FBmp.Canvas   do  
                begin  
                    Brush.Color:=FBgColor;  
                    RectAngle(ClipRect);  
                    Font.Assign(FFont);  
                    Brush.Style:=bsClear;  
                    LineH   :=   TextHeight('|中国沈阳CHW最量夏|')+1;  
                end;  
            FBmp1.PixelFormat:=pf8bit;  
            FBmp1.Width:=Self.Width;  
            FBmp1.Height:=Self.Height;  
            With   FBmp1.Canvas   do  
                begin  
                    Brush.Color:=FBgColor;  
                    RectAngle(ClipRect);  
                    Font.Assign(FFont);  
                    Brush.Style:=bsClear;  
                end;  
              FBmp1.Transparent:=not   FBgbmp.Empty   or   FTransparent;  
              FBmp1.TransparentColor:=FBgColor;  
              FBmp1.TransparentMode:=tmauto;  
              //Self.DoubleBuffered:=True;  
              //self.Parent.DoubleBuffered:=true;  
      end;  
      procedure   TGlass.SetLoop(Value:Integer);  
      begin  
          FLoop:=Value;  
      end;  
      procedure   TGlass.SetBgbmp(Value:Tbitmap);  
      begin  
          FBgbmp.Assign(Value);  
          self.Invalidate;  
      end;  
      function   TGlass.GetLines:   TStringList;  
      begin  
              Result:=FLines;  
      end;  
      procedure   TGlass.CPaint;  
      var  
          DR,SR,DR1,SR1:Trect;  
      begin  
        if   FMode   then  
                                      begin  
                                                DR   :=   Rect(0,   self.Height-1,self.Width,   self.Height);  
                                                SR   :=   Rect(0,   Fpos,   self.Width,   Fpos+1);  
                                                DR1:=   rect(0,0,self.Width,self.Height-1);  
                                                SR1:=   rect(0,1,self.Width,self.Height);  
                                      end  
                              else  
                                      begin  
                                                DR   :=   Rect(self.Width-1,   0,self.Width,   self.Height);  
                                                SR   :=   Rect(FPos,0,   FPos+1,self.Height);  
                                                DR1:=   rect(0,0,self.Width-1,self.Height);  
                                                SR1:=   rect(1,0,self.Width,self.Height);  
                                      end;  
                FBmp1.Canvas.CopyRect(DR1,FBmp1.Canvas,SR1);  
                FBmp1.Canvas.CopyRect(DR,FBmp.Canvas,SR);  
                if   not   (FBgbmp.Empty   or   FTransparent)   then   Canvas.StretchDraw(Self.Canvas.ClipRect,FBgbmp);  
                //self.CAnvas.Draw(0,0,FBgbmp);  
                Buffer.Canvas.CopyRect(ClientRect,Fbmp1.Canvas,ClientRect);  
              //   self.Canvas.Draw(0,0,fbmp1);  
            //   self.Canvas.CopyRect(Self.Canvas.ClipRect,FBmp1.Canvas,Self.Canvas.ClipRect);  
      end;  
       
      procedure   TGlass.SetActive(Value:   boolean);  
      begin  
            FActive:=Value;  
            FPos:=0;  
            I:=0;  
            K:=0;  
            j:=FLoop;  
            sLine   :='';  
            init;  
            //readandwritetext;  
          if   flines.Count>0   then  
            Timer.Enabled:=Value  
          else  
              if   Value   then  
              begin  
                Messagebox(0,'请先选择显示内容','错误',   MB_OK);  
                //SetActive(False);  
              Factive:=False;  
              end;  
      end;  
       
      procedure   TGlass.SetFont(Value:   TFont);  
      begin  
              FFont.Assign(Value);  
              self.Invalidate;  
      end;  
       
      procedure   TGlass.SetLines(Value:   TStringList);  
      begin  
            FLines.Assign(Value);  
          //   self.Invalidate;  
      end;  
       
      procedure   TGlass.SetScrollDelay(Value:   Integer);  
      begin  
            FScrollDelay:=Value;  
            Timer.Interval:=Value;  
      end;  
       
      procedure   TGlass.TimerProc(Sender:   Tobject);  
      begin  
            if   FMode   then  
                      begin  
                                      if   FPos   >   LineH-1+FRowSpacing   then  
                                                      begin  
                                                      FPos   :=   0;  
                                                      readandwritetext;  
                                                      end;  
                      end  
          else  
                      begin  
                    //   readandwritetext;  
                      if   FPos   >k-1   then  
                                                      begin  
                                                      FPos   :=   0;  
                                                      readandwritetext;  
                                                      end;  
                      end;  
          CPaint;  
          //RecreateWnd;  
        invalidaterect(self.Canvas.Handle,nil,   true);  
        self.Invalidate;  
        Inc(FPos);  
       
      end;

    procedure   TGlass.ReadandWriteText;  
      var  
          sCuted{   按固定长度分割出来的部分字符串   }:   string;  
          iCutLength{   按固定长度分割出来的部分字符串的长度   }:   integer;  
          x,y:integer;  
      begin  
            FBmp.Canvas.Font.Assign(FFont);  
            iCutLength:=self.Width   div   Fbmp.canvas.TextWidth('中')*2;  
            LineH   :=   FBmp.Canvas.TextHeight('|中国沈阳CHW最量夏|')+1;  
            x:=(self.Width   -   Fbmp.canvas.TextWidth('中')*(iCutLength   div   2))div   2;  
            y:=(self.Height-LineH)div   2;  
            if   sLine=''then  
                  begin  
                        if   I>=flines.Count   then  
                              begin  
                                if   FLoop=0   then   I:=0   else  
                                begin  
                                I:=0;  
                                Dec(j);  
                                if   j<=0   then   SetActive(False);  
                                end;  
                              end;  
                        //if   I>=flines.Count   then   SetActive(False);  
                        s:=flines[I];  
                        //Messagebox(0,'请先选择显示内容','错误',   MB_OK);  
                        inc(I);  
                  end  
                  else   s:=sline;  
            sCuted   :=   Copy(s,   1,   iCutLength);  
       
            while   FBmp.Canvas.TextWidth(sCuted)>self.Width   do  
                begin  
                    dec(iCutLength);  
                    sCuted   :=   Copy(s,   1,   iCutLength);  
                end;  
            if   bytetype(s,   iCutLength)   =   mbLeadByte   then  
                  sline   :=   _CutString(iCutLength-1,   s)  
                  else   sline   :=   _CutString(iCutLength,   s);  
            k:=FBmp.Canvas.TextWidth(s);  
            with   FBmp.Canvas   do  
              begin  
                  brush.Color:=FBgColor;  
                  //Brush.Color   :=   clBlack;  
              FillRect(Rect(0,   0,   self.Width,   self.Height));  
              Font.Assign(FFont);  
              end;  
            if   UPMode   then   FBmp.Canvas.TextOut(x,1,s)else   FBmp.Canvas.TextOut(0,y+1,s);  
       
      end;  
      function   TGlass._CutString(Len:   integer;   var   S:   string):   string;  
      var  
          T:   string;  
          j:   integer;  
      begin  
          Result   :=   '';  
          if   Len   >=   length(S)   then   exit;  
          T   :=   System.Copy(S,   1,   Len);  
          j   :=   length(T);  
        {   while   j   >   1   do  
              if   T[j]   =   #32   then   break  
              else   dec(j);  
          if   j   =   1   then   j   :=   Len;     }  
          Result   :=   System.Copy(S,   j   +   1,   length(S));  
          S   :=   System.Copy(S,   1,   j);  
      end;  
       
       
        end.  
     

    转载于:https://www.cnblogs.com/delphi2007/archive/2008/11/18/1335920.html

    展开全文
  • 如果将之转成pdf格式,拖曳文档滚动条就可以一览全部内容,非常方便。这给大家介绍一个可以实现ppt转换pdf格式的工具,只需把ppt文档上传到网站上,马上就能转换成pdf等格式的文档,非常实用。  ppt转pdf在线转换...
      有时下的一些资料都是ppt格式,其中的文本页数少说有200页,点击阅览需要很多时间。如果将之转成pdf格式,拖曳文档滚动条就可以一览全部内容,非常方便。这给大家介绍一个可以实现ppt转换pdf格式的工具,只需把ppt文档上传到网站上,马上就能转换成pdf等格式的文档,非常实用。
      ppt转pdf在线转换工具:迅捷ppt转换成pdf转换器
      操作方法如下:step1”百度搜索在线PDF网站平台,点击软件相关链接后,于置顶处文件模式栏目中勾选“ppt转pdf”;step2”点击“选择文件”,在显示的对话框中找到ppt文件,并将之打开介入系统中;step3”最后点击”生成pdf文档“完成转换,然后下载转换好的文件,就这么简单。
      有了上面的这个ppt转换成pdf转换器http://soft.hao123.com/soft/appid/25880.html,基本已经能满足大部分人的需求了。不过对大于2M文件转换则需要选用专业版PDF转换工具,这是唯一美中不足。
    展开全文
  • css滚动

    2019-10-15 22:12:10
    引例:我们平时编写盒模型时,如果想要实现定义一个父级元素中装着一些图片或文本内容,让这些图片或文本内容呈现出有滚动条样式的效果,应该怎样实现呢? 思路:我们知道,在父级元素的宽高都给定时,子级元素的宽...

    css滚动条

    一.默认样式的滚动条

    引例:我们平时编写盒模型时,如果想要实现定义一个父级元素中装着一些图片或文本内容,让这些图片或文本内容呈现出有滚动条样式的效果,应该怎样实现呢?
    思路:我们知道,在父级元素的宽高都给定时,子级元素的宽或者高超出了父级元素的宽或者高,会呈现出如下效果:
    无滚动条的文本内容
    因此我们可以先编写好父级元素和子级元素。然后再在父级元素的css属性中添加一条属性:

    overflow-x:hidden;
    

    然后整个上图就会改变成这样的效果:

    有滚动条的文本效果


    与默认样式的滚动条有关的css属性

    overflow这一属性指定如果内容溢出一个元素的框,会发生什么。它的默认值是visible。

    属性值 描述 样式1(宽高超出范围时) 样式2(宽高未超范围)
    visible 默认值。内容不会被修剪,会呈现在元素框之外。 在这里插入图片描述 在这里插入图片描述
    hidden 内容会被修剪,并且其余内容是不可见的。 在这里插入图片描述 在这里插入图片描述
    scroll 内容会被修剪,但是浏览器会显示滚动条以便查看其余的内容。 在这里插入图片描述 在这里插入图片描述
    auto 如果内容被修剪,则浏览器会显示滚动条以便查看其余的内容。 在这里插入图片描述 在这里插入图片描述
    inherit 规定应该从父元素继承 overflow 属性的值。 在这里插入图片描述 在这里插入图片描述

    overflow-x属性指定如果它溢出了元素的内容区是否剪辑左/右边缘内容。默认值:visible。
    语法:

    overflow-x: visible|hidden|scroll|auto|no-display|no-content;
    

    这里与overflow不同的属性有两个:

    属性名 描述
    no-display 如果内容不适合内容框,则删除整个框。
    no-content 如果内容不适合内容框,则隐藏整个内容。

    overflow-y属性指定如果它溢出了元素的内容区是否剪辑顶部/底部边缘内容。默认值:visible。
    语法:

    overflow-y: visible|hidden|scroll|auto|no-display|no-content;
    
    overflow-x:hidden;
    overflow-y:hidden;
    这两条语句放在一起相当于这一条语句
    overflow:hidden;
    

    再回到引例
    重新回到引例,发现我们设置的仅仅是

    overflow-x:hidden;
    

    就呈现出了这样的效果:
    在这里插入图片描述
    按照上面的概念来看,实际效果与概念并不相符,这是怎么回事呢?
    这是由于css中overflow-x与overflow-y的兼容性不同导致的。
    这里有两条规则:
    (1).对于 ‘overflow-x’ 和 ‘overflow-y’ 的组合渲染,所有浏览器均依照规范处理;
    (2).当 ‘overflow-x : hidden’ 且 ‘overflow-y : visible’ 时,IE6 IE7 IE8 中将 ‘overflow-y’ 渲染为 ‘hidden’,其它浏览器则渲染为 ‘auto’;
    也就是说单独的一条语句:

    overflow-x:hidden;
    

    实际上相当于

    overflow-x:hidden;
    overflow-y:auto;
    

    怎么解决这一问题呢?
    (1).同时设置 ‘overflow-x’ 和 ‘overflow-y’ 的值,不要出现其中之一为 ‘hidden’ 时,而另一个是 ‘visible’ 的情况;
    (2).设置’overflow’ 的值
    (3).避免编写依赖指定值为 ‘visible’ 的 ‘overflow-x’ 和 ‘overflow-y’ 特性的计算值的代码。


    在这里我们还需要注意的是:父级元素的宽高必须提前设置,如果不规定好父级元素的宽高,滚动条可能不会出现。

    二.自定义滚动条实现
    • 自定义滚动条实现此部分针对webkit内核的浏览器,使用伪类来改变滚动条的默认样式。

    • 滚动条组成部分

      1. ::-webkit-scrollbar 滚动条整体部分
      2. ::-webkit-scrollbar-thumb 滚动条里面的小方块,能向上向下移动(或向左向右移动)
      3. ::-webkit-scrollbar-track 滚动条的轨道(里面装有Thumb)
      4. ::-webkit-scrollbar-button 滚动条的轨道的两端按钮,由于通过点击微调小方块的位置。
      5. ::-webkit-scrollbar-track-piece 内层轨道,滚动条中间部分
      6. ::-webkit-scrollbar-corner 边角,即垂直滚动条和水平滚动条相交的地方
      7. ::-webkit-resizer 两个滚动条的交汇处上用于拖动调整元素大小的小控件

    如下图所示:

    在这里插入图片描述

    三.小练习
    <!DOCTYPE html>
    <html>
     <head>
      <meta charset="utf-8">
      <title></title>
      <style type="text/css">
       .content{
        width:110px;
        height:110px;
        border:1px solid black;
        overflow-x:hidden;
     }
       .content::-webkit-scrollbar {
                   width: 8px; 
       }
      <style>
     </head>
     <body>
      <div class="content">A friend in need is a friend indeed.A friend in need is a friend indeed.A friend in need is a friend indeed.
      A friend in need is a friend indeed.A friend in need is a friend indeed.</div>
     </body>
    </html>
    

    效果图如下:
    在这里插入图片描述
    (1).当我们在style标签里添加如下css样式时:

    .content::-webkit-scrollbar-thumb {
                   border-radius: 4px;
                    //box-shadow是用来添加阴影的,不添加此条属性也可以
                   box-shadow: inset 0 0 5px rgba(0,0,0,0.2);
                   background: rgba(0,0,0,0.2);
       }
    

    效果图如下:
    在这里插入图片描述
    (2).当我们继续在style标签里添加如下css样式时:

    .content::-webkit-scrollbar-track{
                 //box-shadow是用来添加阴影的,不添加此条属性也可以
                   box-shadow: inset 0 0 5px rgba(0,0,0,0.2);
                   border-radius: 0;
                   background: rgba(0,0,0,0.1);
     }
    

    效果图会变为:
    在这里插入图片描述

    (3).当我们继续在style标签里添加如下css样式时:

    .content::-webkit-scrollbar-button{
                   background-image: url('img8.jpg');
          background-size:8px 8px;
          background-repeat: no-repeat;
      }  
    

    效果图会变为:
    在这里插入图片描述

    展开全文
  • 早知道Visual Studio 2010的代码编辑框里有这个功能, 有这个功能的还有IE8, 都可以通过按住Ctrl+MouseWheel的滚动实现文本或者网页大小的改变, 今天想研究研究这个过程究竟是如何实现的, 但是经过了下午大量的资料...

      早知道Visual Studio 2010的代码编辑框里有这个功能, 有这个功能的还有IE8, 都可以通过按住Ctrl+MouseWheel的滚动实现文本或者网页大小的改变, 今天想研究研究这个过程究竟是如何实现的, 但是经过了下午大量的资料查找后任然无果(或者网上有些方法我觉得非常复杂), 希望得到园友的帮忙.

    Visual Studio 2010

    缩放前:

    %E7%BC%A9%E6%94%BE%E5%89%8D1.png

    缩放后(Ctrl+滚轮上):

    %E7%BC%A9%E6%94%BE%E5%90%8E2.png

    Internet Explorer 8

    缩放前:

    %E7%BC%A9%E6%94%BE%E5%89%8D.png

    缩放后(Ctrl+滚轮上):

    %E7%BC%A9%E6%94%BE%E5%90%8E.png

    我也新建了一个VB的工程, 在Form1里添加了个TextBox, 想在TextBox里通过Ctrl+鼠标滚轮实现TextBox里字体的大小

    %E5%AD%97%E4%BD%93%E5%A4%A7%E5%B0%8F%E6%B5%8B%E8%AF%95.png

        Private Sub TextBox1_MouseWheel(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseWheel
        
    '是在这个函数里填写代码吗?
        End Sub
    或者是处理Ctrl的Click事件里捕捉鼠标滚轮?但怎么写呢?

    转载于:https://www.cnblogs.com/technology/archive/2010/04/13/1711298.html

    展开全文
  • 原因:在一个TextView中显示多行数据时,会折行显示。怎样让其动态的显示在一行中?解决方案: 1.在TextView中添加属性: android:singleLine=”true” ... marquee的作用是创建一个滚动文本字幕Android:ellipsi
  • 前端小测验知识总结

    2021-03-13 15:38:31
    在页面实现文字滚动的标记是什么标签? ans:应使用<marquee></marquee>标签,实现“走马灯效果”。 Q3.预定义格式化<pre></pre>标签的功能是什么? ans:被包围在 pre 元素中的文本通常会
  • VC++ 专家指导.doc

    2012-07-14 09:06:49
    (54)怎样实现3D效果? 138 (55)怎样建立客户CSocket? 138 (56)Disable一个非模态对话框的客户区? 140 (57)关于使用SetClassLong和SetCapture问题 140 (58)动画控件? 142 (59)错误声明的消息? 143 (59)怎样模拟鼠标...
  • delphi 开发经验技巧宝典源码

    热门讨论 2010-08-12 16:47:23
    0054 怎样实现接口委托 34 0055 在Delphi中使用汇编 35 0056 为程序设置版本和帮助信息 36 0057 动态链接库的创建与调用 36 0058 String类型和Pchar类型的用法和区别 36 0059 如何捕获异常 37 0060 ...
  • 0054 怎样实现接口委托 34 0055 在Delphi中使用汇编 35 0056 为程序设置版本和帮助信息 36 0057 动态链接库的创建与调用 36 0058 String类型和Pchar类型的用法和区别 36 0059 如何捕获异常 37 0060 ...
  • 0054 怎样实现接口委托 34 0055 在Delphi中使用汇编 35 0056 为程序设置版本和帮助信息 36 0057 动态链接库的创建与调用 36 0058 String类型和Pchar类型的用法和区别 36 0059 如何捕获异常 37 0060 ...
  • 0054 怎样实现接口委托 34 0055 在Delphi中使用汇编 35 0056 为程序设置版本和帮助信息 36 0057 动态链接库的创建与调用 36 0058 String类型和Pchar类型的用法和区别 36 0059 如何捕获异常 37 0060 ...
  • 0054 怎样实现接口委托 34 0055 在Delphi中使用汇编 35 0056 为程序设置版本和帮助信息 36 0057 动态链接库的创建与调用 36 0058 String类型和Pchar类型的用法和区别 36 0059 如何捕获异常 37 0060 ...
  • 0054 怎样实现接口委托 34 0055 在Delphi中使用汇编 35 0056 为程序设置版本和帮助信息 36 0057 动态链接库的创建与调用 36 0058 String类型和Pchar类型的用法和区别 36 0059 如何捕获异常 37 0060 ...
  • VC++常用功能实例

    2010-01-25 23:28:46
    ◆当对话框中有一个滚动条是,当滚动滚动条时的消息控制函数◆ 27 ◆将一个CWnd指针转换成一个控件ID(整数)注意用GetDlgItem()函数是从一个控件ID转换成一个CWnd的指针◆ 28 ◆如果在对话框中自定义一个消息的方法,...
  • ◆当对话框中有一个滚动条是,当滚动滚动条时的消息控制函数◆ 27 ◆将一个CWnd指针转换成一个控件ID(整数)注意用GetDlgItem()函数是从一个控件ID转换成一个CWnd的指针◆ 28 ◆如果在对话框中自定义一个消息的方法,...
  • android开发入门教程--上(完整版)

    千次下载 热门讨论 2011-01-24 11:26:39
    7.3.8 自动完成文本(AutoCompleteTextView) 7.3.9 日期选择器(DatePicker)介绍与应用 7.3.10 时间选择器(TimePicker)介绍与应用 7.3.11 滚动视图(ScrollView)介绍与应用 7.3.12 进度条(ProgressBar)介绍与应用 7.3....
  • 6) 怎样从控制台复制粘贴文字 18 7) 将批处理bat转换为exe程序 18 8) 在Visual Studio 2005中设置控制台程序的图标 18 9) 重定向控制台程序的输出 19 第二部分 控制台界面编程详解 20 1) 概述 20 2) 控制台文本窗口...
  • Microsoft C# Windows程序设计(上下册)

    热门讨论 2011-08-05 10:28:13
    7.4 打印机的情况怎样? 7.5 手工转换 7.6 页单位和页缩放 7.7 画笔的宽度 7.8 页面变换 7.9 保存图形状态 7.10 可度量大小 7.11 任意坐标 7.12 哪些事情不能做 7.13 世界坐标变换 7.14 总结 ...
  • MFC教程.zip

    2018-09-20 21:41:32
    13.4 例66 在数据类中实现串行化 229 13.5 例67 串行化SDI或MDI文档 235 13.6 例68 按要求串行化 240 13.7 例69 透明地更新串行化的文档 242 13.8 例70 串行化多态类 246 13.9 例71 串行化数据集 248 13.10 例72 ...
  • C++MFC编程实例

    2018-03-20 23:17:12
    13.4 例66 在数据类中实现串行化 229 13.5 例67 串行化SDI或MDI文档 235 13.6 例68 按要求串行化 240 13.7 例69 透明地更新串行化的文档 242 13.8 例70 串行化多态类 246 13.9 例71 串行化数据集 248 13.10 例72 ...
  • 13.4 例66 在数据类中实现串行化 229 13.5 例67 串行化SDI或MDI文档 235 13.6 例68 按要求串行化 240 13.7 例69 透明地更新串行化的文档 242 13.8 例70 串行化多态类 246 13.9 例71 串行化数据集 248 13.10 例72 ...
  • 7.3.8 自动完成文本(AutoCompleteTextView) 7.3.9 日期选择器(DatePicker)介绍与应用 7.3.10 时间选择器(TimePicker)介绍与应用 7.3.11 滚动视图(ScrollView)介绍与应用 7.3.12 进度条(ProgressBar)介绍与应用 7.3....
  • 7.3.8 自动完成文本(AutoCompleteTextView) 7.3.9 日期选择器(DatePicker)介绍与应用 7.3.10 时间选择器(TimePicker)介绍与应用 7.3.11 滚动视图(ScrollView)介绍与应用 7.3.12 进度条(ProgressBar)介绍与应用 7.3....
  • Visual C++ MFC编程实例源代码

    热门讨论 2011-07-05 12:24:56
    13.4 例66 在数据类中实现串行化 229 13.5 例67 串行化SDI或MDI文档 235 13.6 例68 按要求串行化 240 13.7 例69 透明地更新串行化的文档 242 13.8 例70 串行化多态类 246 13.9 例71 串行化数据集 248 13.10 例72 ...
  • VISUAL C++MFC编程实例

    2013-04-15 15:53:37
    13.4 例66 在数据类中实现串行化 229 13.5 例67 串行化SDI或MDI文档 235 13.6 例68 按要求串行化 240 13.7 例69 透明地更新串行化的文档 242 13.8 例70 串行化多态类 246 13.9 例71 串行化数据集 248 13.10 例72 ...

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 133
精华内容 53
关键字:

怎样实现滚动文本