Co to za błąd przy instalacji komponentu?

[link100]

Witam.
Przy próbie instalacji komponentu w Builder6 Personal wyskakuje mi taki błąd:

Kod: Zaznacz cały

[Linker Error]......contains invalid OMF record,type 0x00.


Co to za błąd?
Dzieki!

[wargo]

Jaki to komponent i czy mógłbyś pokazać większą część błędu?

[link100]

Kod: Zaznacz cały

[Linker Error] 'C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\LIB\DCLUSR.LIB' contains invalid OMF record, type 0x00


Komponent nazywa się "Picbutton" i ściągnąłem go z internetu.

[link100]

Dodam tylko,że podobny komunikat mam gdy chcę zainstalować każdy inny komponent z zewnątrz,czy to w C++,czy w Pascal-u pisany;
Może to dlatego,że mam system Vista. .
Podam jeszcze kody:

Kod: Zaznacz cały

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Picbutton.h"
#pragma resource "Picbutton.res"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TPicbutton *)
{
        new TPicbutton(NULL);
}
//---------------------------------------------------------------------------
__fastcall TPicbutton::TPicbutton(TComponent* Owner)
        : TPaintBox(Owner)
{
ATransp = true;
this->Parent = dynamic_cast<TWinControl*>(Owner);
APicMove = new TPicture;
APicUp = new TPicture;
APicDown = new TPicture;
AGlyph = new TPicture;
Kludka = new Graphics::TBitmap;

APicMove->Bitmap->LoadFromResourceName((int)HInstance, "1_MOVE");
APicUp->Bitmap->LoadFromResourceName((int)HInstance, "1_UP");
APicDown->Bitmap->LoadFromResourceName((int)HInstance, "1_DOWN");
AGlyph->Bitmap->LoadFromResourceName((int)HInstance, "GLYPH");
Kludka->LoadFromResourceName((int)HInstance, "KLUDKA");

Kludka->Transparent = true;
Kludka->TransparentColor = clLime;

AGlyph->Bitmap->Transparent = true;
AGlyph->Bitmap->TransparentColor = clLime;

OldPicBtn = this->WindowProc;
this->WindowProc = NewPicBtn;

dp = false;
updp = false;

Width = 23;
Height = 23;
Color = clSilver;
ATranspColor = clLime;
AGlyphATC = true;
ABtype = btOrange;
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetAToggle(bool togle)
{
AToggle = togle;
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetAStatus(bool aStat)
{
  AStatus = aStat;
  Paint();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetASound(bool aSound)
{
  ASound = aSound;
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::NewPicBtn(TMessage &Msg)
{
    if(Msg.Msg == CM_MOUSEENTER)
   {
    if(Enabled)
    {
     updp = true;
     DrawPicButtonMove();
     }
    else
    {
     DrawPicButtonUp();
     DrawText();
     DrawKludka();
     }
    }
    else if (Msg.Msg == CM_MOUSELEAVE)
   {
    if(Enabled)
    {
     dp = true;
     updp = false;
     if(AToggle == false)
      DrawPicButtonUp();
     else
      if(AStatus == true)
      DrawPicButtonDown();
      else
      DrawPicButtonUp();
    }
    else
    {
     DrawPicButtonUp();
     DrawText();
     DrawKludka();
     }
    }
    OldPicBtn(Msg);
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetACaption(String c)
{
ACaption = c;
Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetAPicDown(TPicture *pic)
{
  APicDown->Assign(pic);
  ButtonType = btPicture;
  Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetAPicUp(TPicture *pic)
{
  APicUp->Assign(pic);
  ButtonType = btPicture;
  Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetAPicMove(TPicture *pic)
{
  APicMove->Assign(pic);
  ButtonType = btPicture;
  Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetAGlyph(TPicture *glyph)
{
AGlyph->Assign(glyph);
  Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetAGlyphATC(bool atc)
{
AGlyphATC = atc;
  Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetABtype(TPicType FType)
{
ABtype = FType;
switch(ABtype)
{
   case btOrange:
   {
   APicMove->Bitmap->LoadFromResourceName((int)HInstance, "1_MOVE");
   APicUp->Bitmap->LoadFromResourceName((int)HInstance, "1_UP");
   APicDown->Bitmap->LoadFromResourceName((int)HInstance, "1_DOWN");
   break;
   }
   case btSilver:
   {
   APicMove->Bitmap->LoadFromResourceName((int)HInstance, "2_MOVE");
   APicUp->Bitmap->LoadFromResourceName((int)HInstance, "2_UP");
   APicDown->Bitmap->LoadFromResourceName((int)HInstance, "2_DOWN");
   break;
   }
   case btBlue:
   {
   APicMove->Bitmap->LoadFromResourceName((int)HInstance, "3_MOVE");
   APicUp->Bitmap->LoadFromResourceName((int)HInstance, "3_UP");
   APicDown->Bitmap->LoadFromResourceName((int)HInstance, "3_DOWN");
   break;
   }
   case btBlack:
   {
   APicMove->Bitmap->LoadFromResourceName((int)HInstance, "4_MOVE");
   APicUp->Bitmap->LoadFromResourceName((int)HInstance, "4_UP");
   APicDown->Bitmap->LoadFromResourceName((int)HInstance, "4_DOWN");
   break;
   }
}
if(ABtype != btPicture)
{
  ATransp = true;
  ATranspColor = clLime;
}
  Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetATranspColor(TColor tc)
{
ATranspColor = tc;
Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SetATransp(bool at)
{
ATransp = at;
Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::DrawText(void)
{
Canvas->Brush->Style = bsClear;
Canvas->Font->Assign(Font);
__int16 TxtHeight = (Height - Canvas->TextHeight(ACaption)) / 2;
__int16 TxtWidth  = (Width  - Canvas->TextWidth(ACaption)) / 2;
Canvas->TextOut(TxtWidth, TxtHeight, ACaption);
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::DrawGlyph(__int8 c)
{
if(Caption.IsEmpty() && Glyph != NULL && Enabled)
{
  if(ATransp)
  {
   AGlyph->Bitmap->Transparent = ATransp;
   if(AGlyphATC)
   AGlyph->Bitmap->TransparentColor = Glyph->Bitmap->Canvas->Pixels[0][0];
   else
    AGlyph->Bitmap->TransparentColor = ATranspColor;
  }
  else
   AGlyph->Bitmap->Transparent = false;

  __int8 w = (Width  - AGlyph->Bitmap->Width) / 2;
  __int8 h = (Height - AGlyph->Bitmap->Height) / 2;
  Canvas->Draw(w + c, h + c, AGlyph->Bitmap);
}
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::DrawKludka(void)
{
  __int8 w = (Width  - Kludka->Width) / 2;
  __int8 h = (Height - Kludka->Height) / 2;
  Canvas->Draw(w, h, Kludka);
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::DrawPicButtonMove(void)
{
if(ButtonType == btPicture)
{
  if(ATransp)
  {
   APicMove->Bitmap->Transparent      = ATransp;
   APicMove->Bitmap->TransparentColor = ATranspColor;
  }
  else
   APicMove->Bitmap->Transparent      = false;
}
else
{
  APicMove->Bitmap->Transparent      = true;
  APicMove->Bitmap->TransparentColor = clLime;
}

Canvas->StretchDraw(Rect(0, 0, Width, Height), APicMove->Bitmap);
DrawText();
DrawGlyph(0);
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::DrawPicButtonDown(void)
{
if(ButtonType == btPicture)
{
  if(ATransp)
  {
   APicDown->Bitmap->Transparent      = ATransp;
   APicDown->Bitmap->TransparentColor = ATranspColor;
  }
  else
   APicDown->Bitmap->Transparent      = false;
}
else
{
  APicDown->Bitmap->Transparent      = true;
  APicDown->Bitmap->TransparentColor = clLime;
}

Canvas->StretchDraw(Rect(0, 0, Width, Height), APicDown->Bitmap);

DrawText();
DrawGlyph(1);
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::DrawPicButtonUp(void)
{
if(ButtonType == btPicture)
{
  if(ATransp)
  {
   APicUp->Bitmap->Transparent      = ATransp;
   APicUp->Bitmap->TransparentColor = ATranspColor;
  }
  else
   APicUp->Bitmap->Transparent      = false;
}
else
{
  APicUp->Bitmap->Transparent      = true;
  APicUp->Bitmap->TransparentColor = clLime;
}

Canvas->StretchDraw(Rect(0, 0, Width, Height), APicUp->Bitmap);
DrawText();
DrawGlyph(0);
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::SoundClick(void)
{
PlaySound("CLICK", HInstance, SND_ASYNC | SND_RESOURCE);
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::Paint(void)
{
if(Enabled)
{
  if(AToggle == false)
  {
   if(!updp)
   DrawPicButtonUp();
   else
   DrawPicButtonMove();
  }
  else
   if(AStatus == true)
   {
   DrawPicButtonDown();
   }
   else
   {
   DrawPicButtonUp();
   }
  DrawText();
}
else
{
  DrawPicButtonUp();
  DrawText();
  DrawKludka();
}
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::MouseDown(TMouseButton Button,
        TShiftState Shift, int X, int Y)
{
dp = false;
if(!AToggle)                   
  DrawPicButtonDown();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::MouseUp(TMouseButton Button,
        TShiftState Shift, int X, int Y)
{
if(!dp && !AToggle)
  DrawPicButtonMove();
}
//---------------------------------------------------------------------------
void __fastcall TPicbutton::Click(void)
{
if(AToggle == true)
{
  if(Status == true)
  {
   Status = false;
   DrawPicButtonUp();
  }
  else
  {
   Status = true;
   DrawPicButtonDown();
  }
}
if(ASound) SoundClick();
TPaintBox::Click();
}
//---------------------------------------------------------------------------
__fastcall TPicbutton::~TPicbutton(void)
{
delete APicMove, APicDown, APicUp, AGlyph, Kludka;
}
//---------------------------------------------------------------------------
namespace Picbutton
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TPicbutton)};
                 RegisterComponents("Cyfbar", classes, 0);
        }
}
//---------------------------------------------------------------------------



Kod: Zaznacz cały

//---------------------------------------------------------------------------

#ifndef PicbuttonH
#define PicbuttonH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
#include <mmsystem.h>
//---------------------------------------------------------------------------
enum TPicType {btOrange, btSilver, btBlue, btBlack, btPicture};
//enum TPicSound {psNone, psResource, psFile, psAuto};
class PACKAGE TPicbutton : public TPaintBox
{
private:
          TPicture *APicMove;
          void __fastcall SetAPicMove(TPicture *pic);
          TPicture *APicDown;
          void __fastcall SetAPicDown(TPicture *pic);
          TPicture *APicUp;
        void __fastcall SetAPicUp(TPicture *pic);
        TPicture *AGlyph;
        void __fastcall SetAGlyph(TPicture *glyph);

        TPicType ABtype;
        void __fastcall SetABtype(TPicType FType);

          TColor ATranspColor;
          void __fastcall SetATranspColor(TColor tc);
          bool ATransp;
        void __fastcall SetATransp(bool at);

        bool AGlyphATC;
        void __fastcall SetAGlyphATC(bool atc);

          AnsiString ACaption;
          void __fastcall SetACaption(String c);

          bool AToggle;
          void __fastcall SetAToggle(bool togle);
        bool AStatus;
        void __fastcall SetAStatus(bool aStat);

        bool ASound;
        void __fastcall SetASound(bool aSound);

          virtual void __fastcall Paint(void);
          DYNAMIC void __fastcall Click(void);
          DYNAMIC void __fastcall MouseDown(TMouseButton Button, TShiftState Shift, int X, int Y);
          DYNAMIC void __fastcall MouseUp(TMouseButton Button, TShiftState Shift, int X, int Y);
         // DYNAMIC void __fastcall MouseMove(TShiftState Shift, int X, int Y);

          TWndMethod OldPicBtn;
          void __fastcall NewPicBtn(TMessage &Msg);

        void __fastcall DrawText(void);
        void __fastcall DrawGlyph(__int8 c);
        void __fastcall DrawKludka(void);
        void __fastcall SoundClick(void);

        bool dp, updp;
        TColor tmpColor;
        Graphics::TBitmap *Kludka;

protected:

public:
        __fastcall TPicbutton(TComponent* Owner);
        __fastcall ~TPicbutton(void);
        void __fastcall DrawPicButtonMove(void);
        void __fastcall DrawPicButtonDown(void);
      void __fastcall DrawPicButtonUp(void);

__published:
        __property TPicture *PicMove = {read = APicMove, write = SetAPicMove};
        __property TPicture *PicDown = {read = APicDown, write = SetAPicDown};
        __property TPicture *PicUp   = {read = APicUp, write = SetAPicUp};
        __property TColor TransparentColorValue = {read = ATranspColor, write = SetATranspColor};
        __property bool TransparentColor = {read = ATransp, write = SetATransp, default = 1};
        __property AnsiString Caption = {read = ACaption, write = SetACaption};
        __property bool Toggle = {read = AToggle, write = SetAToggle};
      __property bool Status = {read = AStatus, write = SetAStatus};
      __property TPicture *Glyph = {read = AGlyph, write = SetAGlyph};
      __property TPicType ButtonType = {read = ABtype, write = SetABtype};
      __property bool GlyphAutoTransColor = {read = AGlyphATC, write = SetAGlyphATC};
      __property bool Sound = {read = ASound, write = SetASound};

};
//---------------------------------------------------------------------------
#endif


[Cyfrowy Baron]

Komponent PicButton został stworzony przeze mnie. Błąd ma związek z systemem Vista. Środowisko Borland C++ Builder 6 nie jest zgodne z tym systemem, zgodna jest chyba dopiero wersja CodeGear RAD Studio C== Builder 2007.

[link100]

Pozostaje mi nazbierać kasę na nowszą płatną wersję Buildera.
No tak już wszystko wiem.
Dzieki.