Default graphic type to JPEG when creating TppDBImage

rbuser

Hi,

How would I ensure a TppDBImage is of graphic type JPEG when a user creates
a new TppDBImage? Our database will always be looking for Jpeg so I don't
want the user to have to change it from bitmap everytime they create it.

Regards

Alex

digitalmetaphors

Hi Alex,

Hook into the TppDesigner.OnCreateComponent event. There you can check the
classtype of the new component, typecast it and set the image type to JPEG
from Bitmap. Be sure ppJPEG is in your uses clause.


Cheers,

Jim Bennett
Digital Metaphors

rbuser

Is there an example on how to do this?

I am using RB 9.01 Enterprise in Delphi 7.

nicocizik

uses
ppJPEG, ppCtrls;

procedure TForm1.ppDesigner1CreateComponent(Sender: TObject; Component:
TComponent);
begin
if Component is TppDBImage then
TppDBImage(Component).GraphicType := 'JPEG';
end;

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com