开发者

C++ Builder question

开发者 https://www.devze.com 2023-03-15 10:58 出处:网络
I installed the package BusinessSkin, in Borland C++ 5.0 and i works fine, and after 2 days i see it just open a header from \\VLC\\Clipboard.hpp and Borland C++ 5.0 header and it give me an error Dec

I installed the package BusinessSkin, in Borland C++ 5.0 and i works fine, and after 2 days i see it just open a header from \VLC\Clipboard.hpp and Borland C++ 5.0 header and it give me an error Declaration Terminated incoretly

#ifndef ClipbrdHPP
#define ClipbrdHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Graphics.hpp> // Pascal unit
#include <Classes.hpp>  // Pascal unit
#include <Messages.hpp> // Pascal unit
#include <Windows.hpp>  // Pascal unit
#include <SysInit.hpp>  // Pascal unit
#include <System.hpp>   // Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Clipbrd
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TClipboard;
class PASCALIMPLEMENTATION TClipboard : public Classes::TPersistent 
{
    typedef Classes::TPersistent inherited;

private:
    int FOpenRefCount;
    HWND FClipboardWindow;
    bool FAllocated;
    bool FEmptied;
    void __fastcall Adding(void);
    void __fastcall AssignGraphic(Graphics::TGraphic* Source);
    void __fastcall AssignPicture(Graphics::TPicture* Source);
    void __fastcall AssignToBitmap(Graphics::TBitmap* Dest);
    void __fastcall AssignToMetafile(Graphics::TMetafile* Dest);
    void __fastcall AssignToPicture(Graphics::TPicture* Dest);
    AnsiString __fastcall GetAsText();
    int __fastcall GetFormatCount(void);
    Word __fastcall GetFormats(int Index);
    void __fastcall SetAsText(const AnsiString Value);
    void __fastcall SetBuffer(Word Format, void *Buffer, int Size);
    void __fastcall WndProc(Messages::TMessage &Message);

protected:
    virtual void __fastcall AssignTo(Classes::TPersistent* Dest);

public:
    virtual void __fastcall Assign(Classes::TPersistent* Source);
    void __fastcall Clear(void);
    void __fastcall Close(void);
    Classes::TComponent* __fastcall GetComponent(Classes::TComponent* Owner, Classes::TComponent* Parent
        );
    unsigned __fastcall GetAsHandle(Word Format);
    int __fastcall GetTextBuf(char * Buffer, int BufSize);
    bool __fastcall HasFormat(Word Format);
    void __fastcall Open(void);
    void __fastcall SetComponent(Classes::TComponent* Component);
    void __fastcall SetAsHandle(Word Format, unsigned Value);
    void __fastcall SetTextBuf(char * Buffer);
    __property AnsiString AsText = {read=GetAsText, write=SetAsText};
    __property int FormatCount = {read=GetFormatCount, nodefault};
    __property Word Formats[int Index] = {read=GetFormats};
public:
    #pragma option push -w-inl
    /* TPersistent.Destroy */ inline __fastcall virtual ~TClipboard(void) { }
    #pragma option pop

public:
    #pragma option push -w-inl
    /* TObject.Create */ inline __fastcall TClipboard(void) : Classes::TPersistent() { }
    #pragma option pop

};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Word CF_PICTURE;
extern PACKAGE Word CF_COMPONENT;
extern PACKAGE TClipboard* __fastcall Clipboard(void);
extern PACKAGE TClipboard* __fastcall SetClipboard(TClipboard* NewClipboard);

}   /* namespace Clipbrd */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Clipbrd;
#endif
#pragma option pop  // -w-
#pragma option pop  // -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif  // Clipbrd

I moved on a different PC there i had c++ builder 5.0 and 2009, i just installed the library and it give a similary error but in other unit, why?

The library works in Delphi. Initialy i compiled the li开发者_Go百科brary that have about 50-60 units, and works, also on installing.

0

精彩评论

暂无评论...
验证码 换一张
取 消

关注公众号