亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? xpmenu.pas

?? Delphi+SQL SEVER開發的電腦銷售管理系統
?? PAS
?? 第 1 頁 / 共 5 頁
字號: 
    end
    else
    begin
      FFColor := NewColor(ACanvas, clBtnFace, 86);
      FFIconBackColor := NewColor(ACanvas, clBtnFace, 16);
      FFSelectColor := NewColor(ACanvas, clHighlight, 68);
      FFSelectBorderColor := clHighlight;
      FFMenuBarColor := clBtnFace;

      FFDisabledColor := NewColor(ACanvas, clBtnShadow, 10);
      FFSeparatorColor := NewColor(ACanvas, clBtnShadow, 25);
      FFCheckedColor := clHighlight;
      FCheckedAreaColor := NewColor(ACanvas, clHighlight, 80);
      FCheckedAreaSelectColor := NewColor(ACanvas, clHighlight, 50);

    end;
  end;

end;

procedure TXPMenu.DrawTopMenuItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; BckColor:Tcolor; IsRightToLeft: boolean);
var
  X1, X2: integer;
  DefColor, HoldColor: TColor;
begin
  X1 := ARect.Left;
  X2 := ARect.Right;


  ACanvas.brush.Style := bsSolid;
  ACanvas.brush.color :=  FFSelectColor;

  ACanvas.FillRect(ARect);
  ACanvas.Pen.Color := FFSelectBorderColor;

  if (not IsRightToLeft) and (Is16Bit) and (Sender is TMenuItem) then
  begin
    ACanvas.MoveTo(X1, ARect.Bottom - 1);
    ACanvas.LineTo(X1, ARect.Top);
    ACanvas.LineTo(X2 - 8, ARect.Top);
    ACanvas.LineTo(X2 - 8, ARect.Bottom);
//    ACanvas.LineTo(X1, ARect.Bottom);

    DefColor := FFMenuBarColor;


    HoldColor := GetShadeColor(ACanvas, DefColor, 10);
    ACanvas.Brush.Style := bsSolid;
    ACanvas.Brush.Color := HoldColor;
    ACanvas.Pen.Color := HoldColor;

    ACanvas.FillRect(Rect(X2 - 7, ARect.Top, X2, ARect.Bottom));

    HoldColor := GetShadeColor(ACanvas, DefColor, 30);
    ACanvas.Brush.Color := HoldColor;
    ACanvas.Pen.Color := HoldColor;
    ACanvas.FillRect(Rect(X2 - 7, ARect.Top + 3, X2 - 2, ARect.Bottom));

    HoldColor := GetShadeColor(ACanvas, DefColor, 40 + 20);
    ACanvas.Brush.Color := HoldColor;
    ACanvas.Pen.Color := HoldColor;
    ACanvas.FillRect(Rect(X2 - 7, ARect.Top + 5, X2 - 3, ARect.Bottom));

    HoldColor := GetShadeColor(ACanvas, DefColor, 60 + 40);
    ACanvas.Brush.Color := HoldColor;
    ACanvas.Pen.Color := HoldColor;
    ACanvas.FillRect(Rect(X2 - 7, ARect.Top + 6, X2 - 5, ARect.Bottom));

    //---

    ACanvas.Pen.Color := DefColor;
    ACanvas.MoveTo(X2 - 5, ARect.Top + 1);
    ACanvas.LineTo(X2 - 1, ARect.Top + 1);
    ACanvas.LineTo(X2 - 1, ARect.Top + 6);

    ACanvas.MoveTo(X2 - 3, ARect.Top + 2);
    ACanvas.LineTo(X2 - 2, ARect.Top + 2);
    ACanvas.LineTo(X2 - 2, ARect.Top + 3);
    ACanvas.LineTo(X2 - 3, ARect.Top + 3);



    ACanvas.Pen.Color := GetShadeColor(ACanvas, DefColor, 10);
    ACanvas.MoveTo(X2 - 6, ARect.Top + 3);
    ACanvas.LineTo(X2 - 3, ARect.Top + 3);
    ACanvas.LineTo(X2 - 3, ARect.Top + 6);
    ACanvas.LineTo(X2 - 4, ARect.Top + 6);
    ACanvas.LineTo(X2 - 4, ARect.Top + 3);

    ACanvas.Pen.Color := GetShadeColor(ACanvas, DefColor, 30);
    ACanvas.MoveTo(X2 - 5, ARect.Top + 5);
    ACanvas.LineTo(X2 - 4, ARect.Top + 5);
    ACanvas.LineTo(X2 - 4, ARect.Top + 9);

    ACanvas.Pen.Color := GetShadeColor(ACanvas, DefColor, 40);
    ACanvas.MoveTo(X2 - 6, ARect.Top + 5);
    ACanvas.LineTo(X2 - 6, ARect.Top + 7);

  end
  else
  begin

    ACanvas.Pen.Color := FFSelectBorderColor;
    ACanvas.Brush.Color := GetShadeColor(ACanvas, BckColor, 70);

    ACanvas.MoveTo(X1, ARect.Bottom - 1);
    ACanvas.LineTo(X1, ARect.Top);
    ACanvas.LineTo(X2 - 3, ARect.Top);
    ACanvas.LineTo(X2 - 3, ARect.Bottom);


    ACanvas.Pen.Color := ACanvas.Brush.Color;
    ACanvas.FillRect(Rect(X2 - 2, ARect.Top + 2, X2, ARect.Bottom));

    ACanvas.Brush.Color := BckColor;
    ACanvas.FillRect(Rect(X2 - 2, ARect.Top , X2, ARect.Top + 2));


  end;

end;


procedure TXPMenu.DrawCheckedItem(FMenuItem: TMenuItem; Selected, Enabled,
 HasImgLstBitmap: boolean; ACanvas: TCanvas; CheckedRect: TRect);
var
  X1, X2: integer;
begin
  if FMenuItem.RadioItem then
  begin
    if FMenuItem.Checked then
    begin
      if Enabled then
      begin
        ACanvas.Pen.color := FFSelectBorderColor;
        if selected then
          ACanvas.Brush.Color := FCheckedAreaSelectColor
        else
          ACanvas.Brush.Color := FCheckedAreaColor;
      end
      else
        ACanvas.Pen.color := FFDisabledColor;

      ACanvas.Brush.Style := bsSolid;
      if HasImgLstBitmap then
      begin
        ACanvas.RoundRect(CheckedRect.Left, CheckedRect.Top,
          CheckedRect.Right, CheckedRect.Bottom,
          6, 6);
      end
      else
      begin
        ACanvas.Ellipse(CheckedRect.Left, CheckedRect.Top,
          CheckedRect.Right, CheckedRect.Bottom);
// +jt
        InflateRect(CheckedRect, -2, -2);        ACanvas.Brush.color := ACanvas.Pen.Color;        ACanvas.Ellipse(CheckedRect.Left, CheckedRect.Top,          CheckedRect.Right, CheckedRect.Bottom);// +jt
      end;
    end;
  end
  else
  begin
    if (FMenuItem.Checked) then
      if (not HasImgLstBitmap) then
      begin
        if Enabled then
        begin
          ACanvas.Pen.color := FFCheckedColor;
          if selected then
            ACanvas.Brush.Color := FCheckedAreaSelectColor
          else
            ACanvas.Brush.Color := FCheckedAreaColor; ;
        end
        else
          ACanvas.Pen.color := FFDisabledColor;

        ACanvas.Brush.Style := bsSolid;
        ACanvas.Rectangle(CheckedRect.Left, CheckedRect.Top,
          CheckedRect.Right, CheckedRect.Bottom);
        if Enabled then
          ACanvas.Pen.color := clBlack
        else
          ACanvas.Pen.color := FFDisabledColor;
        x1 := CheckedRect.Left + 1;
        x2 := CheckedRect.Top + 5;
        ACanvas.MoveTo(x1, x2);

        x1 := CheckedRect.Left + 4;
        x2 := CheckedRect.Bottom - 2;
        ACanvas.LineTo(x1, x2);
        //--
        x1 := CheckedRect.Left + 2;
        x2 := CheckedRect.Top + 5;
        ACanvas.MoveTo(x1, x2);

        x1 := CheckedRect.Left + 4;
        x2 := CheckedRect.Bottom - 3;
        ACanvas.LineTo(x1, x2);
        //--
        x1 := CheckedRect.Left + 2;
        x2 := CheckedRect.Top + 4;
        ACanvas.MoveTo(x1, x2);

        x1 := CheckedRect.Left + 5;
        x2 := CheckedRect.Bottom - 3;
        ACanvas.LineTo(x1, x2);
        //-----------------

        x1 := CheckedRect.Left + 4;
        x2 := CheckedRect.Bottom - 3;
        ACanvas.MoveTo(x1, x2);

        x1 := CheckedRect.Right + 2;
        x2 := CheckedRect.Top - 1;
        ACanvas.LineTo(x1, x2);
        //--
        x1 := CheckedRect.Left + 4;
        x2 := CheckedRect.Bottom - 2;
        ACanvas.MoveTo(x1, x2);

        x1 := CheckedRect.Right - 2;
        x2 := CheckedRect.Top + 3;
        ACanvas.LineTo(x1, x2);

      end
      else
      begin


        if Enabled then
        begin
          ACanvas.Pen.color := FFSelectBorderColor;
          if selected then
            ACanvas.Brush.Color := FCheckedAreaSelectColor
          else
            ACanvas.Brush.Color := FCheckedAreaColor; ;
        end
        else
          ACanvas.Pen.color := FFDisabledColor;

        ACanvas.Brush.Style := bsSolid;
        ACanvas.Rectangle(CheckedRect.Left, CheckedRect.Top,
          CheckedRect.Right, CheckedRect.Bottom);
      end;
  end;

end;

procedure TXPMenu.DrawTheText(Sender: TObject; txt, ShortCuttext: string;
    ACanvas: TCanvas; TextRect: TRect;
    Selected, Enabled, Default, TopMenu, IsRightToLeft: boolean;
    var TxtFont: TFont; TextFormat: integer);
var
  DefColor: TColor;
  B: TBitmap;
  BRect: TRect;
begin
  TextFormat := TextFormat + DT_EXPANDTABS;
  DefColor := TxtFont.Color;

  ACanvas.Font.Assign (TxtFont);

  if Selected then
    DefColor := FFSelectFontColor;

  If not Enabled then
  begin
    DefColor := FFDisabledColor;

    if (Sender is TToolButton) then
    begin
      TextRect.Top := TextRect.Top +
        ((TextRect.Bottom - TextRect.Top) - ACanvas.TextHeight('W')) div 2;
      B := TBitmap.Create;
      try
        B.Width := TextRect.Right - TextRect.Left;
        B.Height := TextRect.Bottom - TextRect.Top;
        BRect := Rect(0,0,B.Width, B.Height);


        B.Canvas.Brush.Color := ACanvas.Brush.Color;
        B.Canvas.FillRect (BRect);
  //      B.Canvas.Font := FFont; //felix added for resolving font problems in Win98
                                //27.08
        B.Canvas.Font.color := DefColor;

        DrawtextEx(B.Canvas.Handle,
          PChar(txt),
          Length(txt),
          BRect, TextFormat + DT_VCENTER, nil);
        ACanvas.CopyRect(TextRect, B.Canvas, BRect);
      finally
        B.Free;
      end;
      exit;
    end;

  end;

  if (TopMenu and Selected) then
    if FUseSystemColors then
      DefColor := TopMenuFontColor(ACanvas, FFIconBackColor);

  ACanvas.Font.color := DefColor;    // will not affect Buttons

  SetBkMode(ACanvas.Handle, TRANSPARENT);


  if Default and Enabled then
  begin

    Inc(TextRect.Left, 1);
    ACanvas.Font.color := GetShadeColor(ACanvas,
                              ACanvas.Pixels[TextRect.Left, TextRect.Top], 30);
    DrawtextEx(ACanvas.Handle,
      PChar(txt),
      Length(txt),
      TextRect, TextFormat, nil);
    Dec(TextRect.Left, 1);


    Inc(TextRect.Top, 2);
    Inc(TextRect.Left, 1);
    Inc(TextRect.Right, 1);


    ACanvas.Font.color := GetShadeColor(ACanvas,
                              ACanvas.Pixels[TextRect.Left, TextRect.Top], 30);
    DrawtextEx(ACanvas.Handle,
      PChar(txt),
      Length(txt),
      TextRect, TextFormat, nil);


    Dec(TextRect.Top, 1);
    Dec(TextRect.Left, 1);
    Dec(TextRect.Right, 1);

    ACanvas.Font.color := GetShadeColor(ACanvas,
                              ACanvas.Pixels[TextRect.Left, TextRect.Top], 40);
    DrawtextEx(ACanvas.Handle,
      PChar(txt),
      Length(txt),
      TextRect, TextFormat, nil);


    Inc(TextRect.Left, 1);
    Inc(TextRect.Right, 1);

    ACanvas.Font.color := GetShadeColor(ACanvas,
                              ACanvas.Pixels[TextRect.Left, TextRect.Top], 60);
    DrawtextEx(ACanvas.Handle,
      PChar(txt),
      Length(txt),
      TextRect, TextFormat, nil);

    Dec(TextRect.Left, 1);
    Dec(TextRect.Right, 1);
    Dec(TextRect.Top, 1);

    ACanvas.Font.color := DefColor;
  end;

  DrawtextEx(ACanvas.Handle,
      PChar(txt),
      Length(txt),
      TextRect, TextFormat, nil);


  txt := ShortCutText + ' ';
  {
  if not Is16Bit then
    ACanvas.Font.color := DefColor
  else
    ACanvas.Font.color := GetShadeColor(ACanvas, DefColor, -40);
  }


  if IsRightToLeft then
  begin
    Inc(TextRect.Left, 10);
    TextFormat := DT_LEFT
  end
  else
  begin
    Dec(TextRect.Right, 10);
    TextFormat := DT_RIGHT;
  end;


  DrawtextEx(ACanvas.Handle,
    PChar(txt),
    Length(txt),
    TextRect, TextFormat, nil);

end;

procedure TXPMenu.DrawIcon(Sender: TObject; ACanvas: TCanvas; B: TBitmap;
 IconRect: Trect; Hot, Selected, Enabled, Checked, FTopMenu,
 IsRightToLeft: boolean);
var
  DefColor: TColor;
  X, Y: integer;
begin

  if (B <> nil) and (B.Width > 0) then
  begin
    X := IconRect.Left;
    Y := IconRect.Top + 1;

    if (Sender is TMenuItem) then
    begin
      inc(Y, 2);
      if FIconWidth > B.Width then
        X := X + ((FIconWidth - B.Width) div 2) - 1
      else
      begin
        if IsRightToLeft then
          X := IconRect.Right - b.Width - 2
        else
          X := IconRect.Left + 2;
      end;
    end;

    if FTopMenu then
    begin
      if IsRightToLeft then
        X := IconRect.Right - b.Width - 5
      else

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
日韩影院精彩在线| 欧美性xxxxxx少妇| 色综合久久久久综合99| 成人激情小说乱人伦| 91原创在线视频| 6080yy午夜一二三区久久| 精品久久国产字幕高潮| 国产亚洲欧美日韩俺去了| 国产精品乱人伦| 一区二区三区中文字幕| 婷婷开心久久网| 成人午夜视频网站| 91精品久久久久久蜜臀| 久久综合网色—综合色88| 精品国产伦一区二区三区观看体验| 欧美国产一区二区在线观看| 午夜欧美大尺度福利影院在线看| 国产精品一区二区久激情瑜伽| 成人精品电影在线观看| 欧美老肥妇做.爰bbww视频| 久久久午夜精品| 日日夜夜一区二区| 成人黄色片在线观看| 日韩午夜精品视频| 亚洲精品免费电影| 国产伦精一区二区三区| 欧美三区在线视频| 亚洲欧美日韩中文播放| 精品一区二区三区影院在线午夜| 精品污污网站免费看| 国产精品久久久久久久久快鸭| 免费观看日韩av| 日韩免费高清视频| 亚洲国产精品影院| 欧美午夜宅男影院| 水蜜桃久久夜色精品一区的特点 | 亚洲主播在线观看| 欧美日韩一本到| 亚洲自拍偷拍综合| 欧美高清你懂得| 日韩av不卡在线观看| 3atv在线一区二区三区| 亚洲午夜免费电影| 欧美日韩国产精选| 五月天激情综合| 精品国产1区二区| 成人免费黄色在线| 亚洲激情av在线| 91麻豆精品国产91久久久久久 | 国产精品亚洲专一区二区三区| 久久久国产精品午夜一区ai换脸| 福利电影一区二区三区| 中文字幕中文字幕一区二区| 97se亚洲国产综合自在线观| 一区二区三区在线免费播放| 91精品久久久久久久久99蜜臂| 久久精品国产77777蜜臀| 欧美激情一区二区三区在线| 波多野结衣欧美| 天堂影院一区二区| 精品日本一线二线三线不卡| 成人av在线观| 麻豆精品新av中文字幕| 日本一区二区不卡视频| 欧美在线999| 国产成人av影院| 日韩av电影一区| 日韩毛片在线免费观看| 51午夜精品国产| 色综合色狠狠天天综合色| 激情五月激情综合网| 亚洲一区二区偷拍精品| 中文字幕制服丝袜一区二区三区| 欧美裸体bbwbbwbbw| 粉嫩一区二区三区在线看| 日本一区中文字幕| 亚洲一区日韩精品中文字幕| 国产精品萝li| 久久久99久久| 欧美一卡二卡三卡| 欧美日韩在线不卡| 免费精品视频在线| 亚洲福利国产精品| 日韩理论片在线| 国产欧美一区视频| 国产午夜精品一区二区三区视频| 日韩一区二区电影| 欧美人体做爰大胆视频| 欧美人与z0zoxxxx视频| 欧美日韩国产经典色站一区二区三区| 成人h精品动漫一区二区三区| 国产美女视频91| 国产一区在线精品| 国产乱子伦一区二区三区国色天香| 色综合天天综合网天天看片| 99久久精品免费精品国产| 99视频热这里只有精品免费| 91亚洲国产成人精品一区二三| 91丨九色丨蝌蚪丨老版| 色婷婷激情综合| 在线不卡中文字幕| 欧美变态口味重另类| 久久久91精品国产一区二区精品| 国产欧美综合在线| 亚洲免费看黄网站| 免费成人美女在线观看.| 国产最新精品精品你懂的| 国产高清一区日本| 91麻豆.com| 欧美一区二区三区小说| 中文字幕乱码亚洲精品一区| 丁香一区二区三区| 欧美性做爰猛烈叫床潮| 欧美电影免费观看高清完整版在线观看| 中文字幕一区二区三区乱码在线| 国产精品女主播在线观看| 亚洲小说欧美激情另类| 日韩高清不卡在线| 成人一级片网址| 欧美一区二区三区视频| 日本一区二区三区久久久久久久久不| 亚洲蜜臀av乱码久久精品蜜桃| 蜜臀av性久久久久av蜜臀妖精| 99久久国产综合精品女不卡| 色综合激情五月| 精品国产99国产精品| 亚洲精品写真福利| 国产乱码精品一区二区三区av| 色婷婷精品久久二区二区蜜臂av | 亚洲影院理伦片| 成人a区在线观看| 精品日韩一区二区| 丝袜美腿亚洲综合| 一道本成人在线| 日本一区二区成人| 国产精品88888| 欧美精品一区二区久久婷婷| 日韩中文欧美在线| 欧美日韩国产经典色站一区二区三区 | 亚洲欧美日韩久久精品| 国产麻豆精品一区二区| 欧美大片拔萝卜| 美日韩一区二区| 欧美一级二级三级蜜桃| 亚洲第一激情av| 91久久一区二区| 亚洲精品视频观看| 欧美性xxxxxx少妇| 日韩国产高清在线| 日韩欧美激情四射| 国内外精品视频| 国产区在线观看成人精品| 成人app在线| 亚洲乱码国产乱码精品精的特点 | 亚洲一区自拍偷拍| 欧美日韩免费观看一区二区三区| 亚洲va韩国va欧美va精品| 欧美一二三区在线| 久久电影网电视剧免费观看| 久久久www免费人成精品| 粉嫩嫩av羞羞动漫久久久 | 久久成人羞羞网站| 日本一区二区三区dvd视频在线| jizzjizzjizz欧美| 五月综合激情网| 精品福利一区二区三区免费视频| 国产v日产∨综合v精品视频| 亚洲美女视频在线| 这里只有精品电影| 福利一区福利二区| 香蕉加勒比综合久久| 久久一二三国产| 欧美久久久久久蜜桃| 国产福利电影一区二区三区| 亚洲午夜一区二区三区| 久久嫩草精品久久久久| 在线观看网站黄不卡| 国产精品资源网| 亚洲va欧美va人人爽午夜| 久久久久国产精品麻豆ai换脸 | 精品美女一区二区三区| 97久久精品人人爽人人爽蜜臀| 久久精品99国产精品| 午夜视黄欧洲亚洲| 中文字幕在线观看一区二区| 日韩欧美一区二区久久婷婷| 欧美在线一二三四区| 粉嫩aⅴ一区二区三区四区五区| 蜜桃91丨九色丨蝌蚪91桃色| 亚洲高清在线精品| 亚洲欧美视频一区| 国产精品久久久久久亚洲毛片| 欧美成人午夜电影| 7777精品伊人久久久大香线蕉经典版下载| 99久久伊人精品| 成人a免费在线看| 91小视频在线免费看| 91免费视频观看| 99久久精品国产毛片| 91麻豆swag|