AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Neue TImage Komponente entwickeln

Ein Thema von pmc · begonnen am 12. Sep 2003 · letzter Beitrag vom 13. Sep 2003
 
Ronny Grabo

Registriert seit: 16. Mai 2003
41 Beiträge
 
#6

Re: Neue TImage Komponente entwickeln

  Alt 13. Sep 2003, 12:49
Hallo,

Zitat:
Ich müsste eigentlich nur wissen wie ich der property "Picture" von
TImage eine Bitmap zuweisen kann(Inerhalb einer procedure der Komponente, als nicht im späteren programm)
Hier mal ein bischen Code :
Delphi-Quellcode:
    TBBox = class(timage)
    private
// FBBoxState : TBBoxState;
    FBitmapNormal : String;
    FBitmapOver : String;
    FBitmapClick : String;
    MyPicture:TPicture;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Private declarations }
  protected
    procedure SetzeBild(Bild: TPicture);
    procedure MouseMove(shift: TShiftState; x,y:Integer); override;
    { Protected declarations }
  public
// property BBoxState : TBBoxState read FBBoxState write FBBoxState;
    { Public declarations }
  published
    property Width;
    property BmpNormal : String read FBitmapNormal write FBitmapNormal;
    property BmpOver : String read FBitmapOver write FBitmapOver;
    property BmpClick : String read FBitmapClick write FBitmapClick;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TBBox]);
end;

constructor TBBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
MyPicture:=TPicture.Create;
end;

destructor TBBox.Destroy;
begin
MyPicture.Free;
inherited Destroy;
end;
procedure TBBox.SetzeBild(Bild: TPicture);
begin
MyPicture:=Bild;
Self.picture:=Bild;
end;

procedure TBBox.MouseMove(shift: TShiftState; x,y:Integer);
begin
MyPicture.LoadFromFile(FBitmapOver); //aber das funzt jetzt
SetzeBild(MyPicture);
inherited MouseMove(shift,x,y);
end;
Gruß Ronny.
---
Meine Internetseite : http://www.ronny-grabo.de
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz