引言: 看到有人的AP, 像Scroll Bar 可以叫出XP型式, 那種圓圓肥肥的, 好可愛呀 不知道誰會呼叫呢?

用TBX v1.9.8或 TBX v2.0.14這顆元件試試!(要花錢的) TBX V1.9.8 下載處TBX package version 1.9.8 plus compiled demo project TBX V1.9.8 下載處TBX package version 1.9.7 plus compiled demo project Description TBX is an add-on to Toolbar2000 components (Copyright © 1998-2002 Jordan Russell), a shareware set of components available at http://www.jrsoftware.org. Features TBX expands Toolbar2000 with the following new features: Support for native and WindowsXP themes; Customizable layout for toolbar items; Variation of font sizes; Multi-line captions; Combo and list boxes embedded in menus and toolbars; Color selectors; Dockable panels (similar to OfficeXP task panes); Page scrollers; Status bars; Screenshots Default theme Default theme (Windows XP) OfficeXP theme Stripes theme Support The discussion on TBX package as well as other Toolbar2000 extensions is hosted by Jordan Russel's news server at: jrsoftware.toolbar2000.thirdparty. Please, address general questions to the newsgroup. A bug report server for TBX and other projects is installed at bugdb.g32.org. Direct e-mail contacts: alex@g32.org. For information on Toolbar2000 components, visit http://www.jrsoftware.org 網路志工聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]---

MENU CONTEXTUEL STYLE XP

//*****Fichier .h***************
//---------------------------------------------------------------------------    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include 
#include 
#include 
#include <Forms.hpp>
#include 
#include 
//---------------------------------------------------------------------------
const AnsiString BLANK_LINE="-";    class TForm1 : public TForm
{
__published:
     TMainMenu *MainMenu1;
     TMenuItem *Example1;
     TMenuItem *MenuItemOne1;
     TMenuItem *MenuItemThree1;
     TMenuItem *MenuItemFour1;
     TMenuItem *MenuItemFive1;
     TMenuItem *MenuItemTen1;
     TImageList *ImageList1;
     TMenuItem *N1;
     TMenuItem *N2;
                TLabel *Label1;
                TLabel *Label2;
     void __fastcall Example1Click(TObject *Sender);
     void __fastcall Example1DrawItem(TObject *Sender, TCanvas *ACanvas,
                    TRect &ARect, bool Selected);
     void __fastcall FormCreate(TObject *Sender);    private:
     TColor MainMenuBackground;
     TColor MainMenuHighlightColor;
     TColor MainMenuTextColor;
     TColor MainMenuTextBackground;
     TColor MainMenuHighlightTextColor;
     TColor Custom;
     TColor VerticalColor;
     TColor MenuColor;
     TColor HighlightColor;
     TColor BorderColor;
     TColor NormalTextColor;
     TColor NormalTextBackground;
     TColor HighlightTextColor;
     TColor DisabledTextColor;
     int VerticalWidth;
     int FocusRectRightIndent;
     int FocusRectLeftIndent;
     int LeftTextPos;
     int SideBuffer;
     int MenuIncreaseWidth;
     int Offset;         int MenuItemHeight;
     int ItemOffset;
     TIcon *Icon;
     Graphics::TBitmap *Image;    protected:
     void __fastcall MyExpandItemWidth(TObject *Sender, TCanvas *ACanvas,
            int &Width, int &Height);
     void __fastcall MyDrawItem(TObject* Sender, TCanvas* ACanvas,
     const TRect &ARect, bool Selected);    public: 
     __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif    //*********Fichier .cpp*****************    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Example1DrawItem(TObject *Sender, TCanvas *ACanvas,
            TRect &ARect, bool Selected)
{
     TRect FocusRectBorder;
     TRect FocusRectFill;
     TMenuItem *MenuItem = ((TMenuItem*)Sender);         AnsiString Text = MenuItem->Caption;         ACanvas->Brush->Color = MainMenuBackground;
     ACanvas->FillRect(ARect);         if(Text == "")
            return;         if(Selected)
     {                FocusRectBorder = ARect;
            ACanvas->Brush->Color = BorderColor;
            ACanvas->FrameRect(FocusRectBorder);                FocusRectFill = ARect;
            FocusRectFill.Top  = SideBuffer;
            FocusRectFill.Right -= SideBuffer;
            FocusRectFill.Left  = SideBuffer;
            FocusRectFill.Bottom -= SideBuffer;
            ACanvas->Brush->Color = MainMenuHighlightColor;
            ACanvas->FillRect(FocusRectFill);             ACanvas->Font->Color = MainMenuHighlightTextColor;
     }
     else
     {
            ACanvas->Font->Color = MainMenuTextColor;
     }         int TextLength;
     TRect TextRect;         TextLength = Text.Length();
     TextRect = ARect;         TextRect.Left  = 5;
     TextRect.Top  = 1;         DrawText(ACanvas->Handle,Text.c_str(), TextLength, &TextRect, 0);    }
//---------------------------------------------------------------------------    void __fastcall TForm1::MyDrawItem(TObject* Sender, TCanvas* ACanvas,
     const TRect &ARect, bool Selected)
{
     int TopPos, TextLength;
     AnsiString Text;
     TRect TempRect;
     TRect VerticalRect;
     TRect FocusRectBorder;
     TRect FocusRectFill;
     TRect TextRect;         TMenuItem *MenuItem = ((TMenuItem*)Sender);         Text = MenuItem->Caption;         ACanvas->Brush->Color = MenuColor;
     ACanvas->FillRect(ARect);         if(Text==BLANK_LINE)
     {                VerticalRect = ARect;
            VerticalRect.Top -= SideBuffer;
            VerticalRect.Right = VerticalWidth;
            VerticalRect.Bottom  = SideBuffer;
            ACanvas->Brush->Color = VerticalColor;
            ACanvas->FillRect(VerticalRect);                ACanvas->MoveTo(VerticalWidth,ARect.Top ARect.Height()/2);
            ACanvas->LineTo(ARect.Right,ARect.Top ARect.Height()/2);
            return;
     }         TextLength = Text.Length();         if(Selected)
     {
            VerticalRect = ARect;
            VerticalRect.Top -= SideBuffer;
            VerticalRect.Right = VerticalWidth;
            VerticalRect.Bottom  = SideBuffer;
            ACanvas->Brush->Color = VerticalColor;
            ACanvas->FillRect(VerticalRect);                if(MenuItem->Enabled)
            {
                FocusRectBorder = ARect;
                 FocusRectBorder.Left  = FocusRectLeftIndent - SideBuffer;
                 FocusRectBorder.Right -= FocusRectRightIndent - SideBuffer;
                 ACanvas->Brush->Color = BorderColor;
                 ACanvas->FrameRect(FocusRectBorder);                     FocusRectFill = ARect;
                 FocusRectFill.Right -= FocusRectRightIndent;
                 FocusRectFill.Left  = FocusRectLeftIndent;
                 FocusRectFill.Bottom -= SideBuffer;
                 FocusRectFill.Top  = SideBuffer;
                 ACanvas->Brush->Color = HighlightColor;
                 ACanvas->FillRect(FocusRectFill);                     ACanvas->Font->Color = HighlightTextColor;
                 ACanvas->Font->Style = TFontStyles() << fsBold;
            }
            else
            {                     ACanvas->Font->Style = TFontStyles();
                 ACanvas->Brush->Color = NormalTextBackground;
                 ACanvas->Font->Color = DisabledTextColor;
            }         }
     else
     {                VerticalRect = ARect;
            VerticalRect.Top -= SideBuffer;
            VerticalRect.Right = VerticalWidth;
            VerticalRect.Bottom  = SideBuffer;
            ACanvas->Brush->Color = VerticalColor;
            ACanvas->FillRect(VerticalRect);                if(MenuItem->Enabled)
            {
                 ACanvas->Brush->Color = NormalTextBackground;
                 ACanvas->Font->Color = NormalTextColor;
            }
            else
            {
                 ACanvas->Brush->Color = NormalTextBackground;
                 ACanvas->Font->Color = DisabledTextColor;
            }         }         TextRect = ARect;
     TextRect.Left  = LeftTextPos;
     if(Offset > 0)
            TextRect.Top  = Offset/2   SideBuffer;
     else
            TextRect.Top  = 2   SideBuffer;         TextRect.Top  = SideBuffer;         if(Menu->Images != NULL)
     {
            Icon = new TIcon();
            Menu->Images->GetIcon(MenuItem->ImageIndex,Icon);
            ACanvas->Draw(5,ARect.Top ItemOffset 1,Icon);
            delete Icon;
     }         DrawText(ACanvas->Handle,Text.c_str(), TextLength, &TextRect, 0);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::MyExpandItemWidth(TObject *Sender,
     TCanvas *ACanvas, int &Width, int &Height)
{
     Width  = MenuIncreaseWidth;
     Height  = Offset;
     MenuItemHeight = Height;
     ItemOffset = Offset/2;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::FormCreate(TObject *Sender)
{
//**************couleur du highlight 
     Custom=TColor(RGB(255,200,200));
     MainMenuBackground = clSilver;
     MainMenuHighlightColor = Custom;
     MainMenuTextColor = clBlack;
     MainMenuTextBackground = clSilver;
     MainMenuHighlightTextColor = clBlack;
     VerticalColor = clSilver;
     MenuColor = clWhite;
     HighlightColor = Custom;
     BorderColor = clBlack;
     NormalTextColor = clBlack;
     NormalTextBackground = clWhite;
     HighlightTextColor = clBlack;
     DisabledTextColor = clSilver;
     VerticalWidth = 26;
     FocusRectRightIndent = 3;
     FocusRectLeftIndent = 3;
     LeftTextPos = 35;
     SideBuffer = 1;         if(Menu->Images == NULL)
            MenuIncreaseWidth = 100;
     else
            MenuIncreaseWidth = 50;         Offset = 5;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Example1Click(TObject *Sender)
{
     TMenuItem *MenuItem = ((TMenuItem*)Sender);
     if(MenuItem->Count > 0)
     {
            for(int i=0; i <= MenuItem->Count-1; i  )
            {
                 MenuItem->Items[i]->OnMeasureItem = MyExpandItemWidth;
                 MenuItem->Items[i]->OnDrawItem = MyDrawItem;
                 if(MenuItem->Items[i]->Count > 0)
                 {
                        for(int x=0; x <= MenuItem->Items[i]->Count-1; x  )
                        {
                             MenuItem->Items[i]->Items[x]->OnMeasureItem = MyExpandItemWidth;
                             MenuItem->Items[i]->Items[x]->OnDrawItem = MyDrawItem;
                        }
                 }
            }
     }
}
//---------------------------------------------------------------------------

VirtualTreeview

Windows XP Theme Manager

TWinXP : Enabled Windows XP visual styles in applications

引言: 對不起，我知道這問題很笨， 不過，我試了很久還是不會使用， 可否教我一下，謝謝。 我是用C Builder。

1.下載該元件
2.安裝TWinXP元件
  2.1.0 開啟新的Packag檔,加入winxp.pas後,點選Install即可
3.開啟新的Project
4.將TWinXP放置Form上後Commpiler
5.先決條件您的作業系統需為Windows XP

引言: 把TWinXP的元件, 擺一個在你的Form上面 Complier完就會出現結果, 但是: 1. 你一定要在WinXP下的環境 Complier 2. 目前試出ListView->ViewStyle=vsReport 會出槌 (我還不知怎麼解)

喔!.....你沒看這個>> >> <>網<>路志<>工聯盟---- href="http://www.vista.org.tw">http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]---

{*************************************************************************}
{ TWinXP component                                                        }
{ for Delphi 4.0,5.0,6.0   C  Builder 3.0,4.0,5.0                         }
{ version 1.0                                                             }
{                                                                         }
{ written by TMS Software                                                 }
{            copyright © 2001                                             }
{            Email : info@tmssoftware.com                                 }
{            Website : http://www.tmssoftware.com/                        }
{                                                                         }
{ The source code is given as is. The author is not responsible           }
{ for any possible damage done due to the use of this code.               }
{ The component can be freely used in any application. The complete       }
{ source code remains property of the author and may not be distributed,  }
{ published, given or sold in any form as such. No parts of the source    }
{ code can be included in any other component or application without      }
{ written authorization of the author.                                    }
{*************************************************************************}    unit WinXP;    interface    {$R WINXP.RES}    uses
  Windows, Messages, SysUtils, Classes, Forms;    type
  TWinXP = class(TComponent)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('TMS', [TWinXP]);
end;    { TWinXP }    constructor TWinXP.Create(AOwner: TComponent);
var
  I,Instances:Integer;    begin
  inherited Create(AOwner);
  if not (AOwner is TForm) then
    raise Exception.Create('Control parent must be a form!');      Instances := 0;
  for I := 0 to Owner.ComponentCount - 1 do
    if (Owner.Components[I] is TWinXP) then Inc(Instances);
  if (Instances > 1) then
    raise Exception.Create('Only one instance of TWinXP allowed on form');
end;        end.
 

引言: 把TWinXP的元件, 擺一個在你的Form上面 Complier完就會出現結果, 但是: 1. 你一定要在WinXP下的環境 Complier 2. 目前試出ListView->ViewStyle=vsReport 會出槌 (我還不知怎麼解)

procedure TCustomListView.UpdateColumn(AnIndex: Integer);
const IAlignment: array[Boolean, TAlignment] of LongInt =
  ((LVCFMT_LEFT, LVCFMT_RIGHT, LVCFMT_CENTER),
    (LVCFMT_RIGHT, LVCFMT_LEFT, LVCFMT_CENTER));
var
  Column: TLVColumn;
  AAlignment: TAlignment;
begin
  if HandleAllocated then
    with Column, Columns.Items[AnIndex] do
    begin
      mask := LVCF_TEXT or LVCF_FMT or LVCF_IMAGE;
      iImage := FImageIndex;
      pszText := PChar(Caption);
      AAlignment := Alignment;
      if Index <> 0 then
        fmt := IAlignment[UseRightToLeftAlignment, AAlignment]
      else fmt := LVCFMT_LEFT;
// start patch
{if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;}
      if FImageIndex <> -1 then
        fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
      else
        mask := mask and not (LVCF_IMAGE);
// end patch
      if WidthType > ColumnTextWidth then
      begin
        mask := mask or LVCF_WIDTH;
        cx := FWidth;
        ListView_SetColumn(Handle, Columns[AnIndex].FOrderTag, Column);
      end
      else begin
        ListView_SetColumn(Handle, Columns[AnIndex].FOrderTag, Column);
        if ViewStyle = vsList then
          ListView_SetColumnWidth(Handle, -1, WidthType)
        else if (ViewStyle = vsReport) and not OwnerData then
          ListView_SetColumnWidth(Handle, Columns[AnIndex].FOrderTag, WidthType);
      end;
    end;
end;    

引言: 請問大家: 我是裝文魁出版的C Builder與RS232上的控制元件 又安裝了TWinXP : Enabled Windows XP visual styles in applications 編譯時卻出現了Access violation at adderss 400039FD in module'VCL50.BPL'與EAccess Violation的錯誤訊息 是哪邊出了問題??該如何解決呢?? 謝謝大家...

引言: 請問大家: 我是裝文魁出版的C Builder與RS232上的控制元件 又安裝了TWinXP : Enabled Windows XP visual styles in applications 編譯時卻出現了Access violation at adderss 400039FD in module'VCL50.BPL'與EAccess Violation的錯誤訊息 是哪邊出了問題??該如何解決呢?? 謝謝大家...

引言: 對不起 還是不太懂... 如果我在 XP BCB5 的環境下 TWinXP or XP Theme Manager 那麼 compiled 好的程式丟到 2000 上是不是不會有 xp 的效果? :( < face="Verdana, Arial, Helvetica">winxp & winnet 才有其效果...WIN2000應該是沒有吧....如有說錯請指正...

引言:

引言: 對不起 還是不太懂... 如果我在 XP BCB5 的環境下 TWinXP or XP Theme Manager 那麼 compiled 好的程式丟到 2000 上是不是不會有 xp 的效果? :( < face="Verdana, Arial, Helvetica">winxp & winnet 才有其效果...WIN2000應該是沒有吧....如有說錯請指正...

XML是Windows XP之後的OS開始support, Windows 2000並不support. 而XP Style就是架構在Windows XP之後的OS. 所以, Windows 3.1/95/98/ME/NT/2000 都不support 列出目前support的OS Windows XP home Windows XP Professional Windows XP Media Center Windows 2003 server Windows Longhorn 目前的Microsoft並沒有出一套OS叫Winnet的東東. 以上如有錯誤, 請向