Советы по Delphi

         

Вы можете немного сшельмовать


Delphi 1

Использование иконок в SpeedButton Вы можете немного сшельмовать и сделать наложение (copyrect) иконки поверх Bitmap кнопки:

    var
imgIcon: TIcon; imgRect: TRect; begin
imgIcon := TIcon.Create; imgIcon.Handle := ExtractIcon( 'EXEFILENAME' );
with SpeedButton1.Glyph do begin Width := imgIcon.Width; Height := imgIcon.Height; imgRect := Rect( 0, 0, Width, Height ); Canvas.CopyRect( imgRect, imgIcon.Canvas, imgRect ); end;
[001952]


Содержание раздела