Results 1 to 5 of 5

Thread: Componenten schrijven

  1. #1

    Componenten schrijven

    Stel ik maak een component;
    Code:
    unit Test;
    
    interface
    
    uses
      Windows, SysUtils, Classes, Graphics, Common Controls;
    
    type class(TComponent);
      private
        {private declarations}
        procedure WriteBitmap(Value: TBitmap);
        function ReadBitmap: TBitmap;
      protected
        {protected declarations} 
      public
        {public declarations} 
      publish
        {published declarations}
        property Bitmap: TBitmap read ReadBitmap
                        write WriteBitmap;
      end;
    
    var
      Bmp: TBitmap;
    
    implementation
    
    procedure WriteBitmap(Value: TBitmap);
    begin
      Bmp := Value;
    end;
    
    function ReadBitmap: TBitmap;
    begin
      Result := Bmp;
    end;
    
    end.
    De procedure register is even weggelaten maar als die erbij zou zitten en ik installeer het component dat krijg ik een component wat eigenlijk helemaal aan mijn wensen voldoet maar ik wil alleen weten hoe ik die afbeelding op het component kan veranderen, weet iemand dat mischien?

    Thnx,
    Lynx

  2. #2
    Beste Lynx,

    Om het icoon van een componenten pallete te wijzigen moet je de volgende stappen ondernemen:

    1: Maak mbv. de image editor een nieuwe component resource file aan (*.dcr)
    2: Geef deze dezelfde naam als de .pas file maar dan met de extensie .dcr, plaats deze file ook in dezelfde folder.
    3: Plaats in deze resource file een 24x24 pixels grote bitmap.
    4: Geef deze bitmap de naam van je component in hoofdletters. Dus 'TXComponent' wordt 'TXCOMPONENT'.

    Als je het component in een package stopt zal deze als het goed is automatisch de DCR meenemen.

    Een andere mogelijkheid is {$R *.DCR} op te nemen in de pas file. Als het goed is moet na het opnieuw registreren van je component de default bitmap zijn gewijzigd.

    Marcel Vroone

  3. #3
    Thnx! Het is gelukt! Maar bij stap 4, je moet niet de naam van het component hebben maar de type van het component.

    Thnx,
    Lynx
    Lynx,
    www.animals.nl

  4. #4
    Bij registratie van een component, in dit geval een klasse kun je zowiezo nooit een naam (name property) gebruiken en met naam bedoelde ik iig het type maar goed kleinigheidje

    Marcel Vroone

  5. #5
    Ach, maakt niet uit, 't is me toch allang gelukt.
    Lynx,
    www.animals.nl

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. RaveReport Runtime, componenten doorlopen.
    By Dees in forum Algemeen
    Replies: 6
    Last Post: 20-Jul-04, 19:32
  2. Replies: 7
    Last Post: 04-May-04, 15:44
  3. Zelf Componenten schrijven....
    By Anton Sr. in forum Koffiehoek
    Replies: 6
    Last Post: 31-Mar-04, 12:26
  4. Turbopower componenten gratis
    By GolezTrol in forum Tools
    Replies: 0
    Last Post: 27-Mar-04, 19:24

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •