Delphi 7 - how to create a component with Text on the center of Image -


i have problem creating component. want have image , simple label on center of image. have component because create dynamically form code. how this? don't know how merge 2 components one.

if want implement own component fastest way might inherit timage, offer properties needed images , override paint method, accessing canvas of ancestor, not make chances on bitmap. short example not dealing stretch, have implement on own.

unit captionimage;  interface  uses windows, classes, controls, extctrls, graphics, pngimage, jpeg;  type   // maybe want more action on canvas without manipulation bitmap   tonafterpaintevent = procedure(sender: tobject; canvas: tcanvas) of object;    tgraphiccontrol = class(controls.tgraphiccontrol) // make canvas accessable   public     property canvas;   end;    tcaptionimage = class(extctrls.timage)   private     icanvas: tcanvas;     fonafterpaint: tonafterpaintevent;     function getfont: tfont;   published   public     procedure paint; override;   published     property onafterpaint: tonafterpaintevent read fonafterpaint write fonafterpaint;     property caption;     property font: tfont read getfont;   end;  implementation  function tcaptionimage.getfont: tfont; begin   result := tgraphiccontrol(self).canvas.font; end;  procedure tcaptionimage.paint; var   s: string;   r: trect; begin   inherited;   r := clientrect;   s := caption;   icanvas := tgraphiccontrol(self).canvas;   icanvas.brush.style := bsclear;   icanvas.textrect(r, s, [tfverticalcenter, tfcenter, tfsingleline]);   if assigned(fonafterpaint)     fonafterpaint(self, icanvas); end;  end.

an example usage be:

procedure tform5.button1click(sender: tobject); begin    tcaptionimage.create(self)     begin       parent := self;       autosize := true;       font.color := clblue;       font.size := 20;       picture.loadfromfile('c:\temp\bild 1.png');       caption := 'test';     end; end;

Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

javascript - jQuery show full size image on click -

pretty self explanatory not workking . i want display full image when user click on image... yes know there tons of plugins but i want keep simple. any idea ? css : .full { display: none; width: 500px; height: 500px; margin-left: 100px; margin-top: -300px; position: fixed; background-color: #f00; z-index: 6; } .thumbnail { width: 50px; height: 50px; } html: <img class="thumbnail" src="http://4.bp.blogspot.com/-uhbdp2esxng/txneptvi92i/aaaaaaaaaky/upfqis7zto0/s1600/rihanna-wallpaper.jpg"> jquery: $(document).ready(function() { $('.thumbnail').on('click', function() { var img = $('<img />',{src:this.src,'class':'full'}); $('.full').html(img).show(); console.log('done!'); }); }); try looking how jquery works. $(document).ready(function() { $('.thumbnail').on('click', function(...
Read more