Советы по Delphi. Версия 1.4.3 от 1.1.2001

 Canvas.Brush.Color := clbtnface;
 Canvas.Draw(0,0,Ic);
 end;
 { /** Создаем окончательное изображение, куда мы помещаем иконку и текст **/ }
 MnuItm:=TBitmap.Create;
 with MnuItm do begin
 Width :=18;
 Height:=18;
 with Canvas do begin
 Brush.Color:=clbtnface;
 Pen.Color:=clbtnface;
 CopyMode:=cmSrcAnd;
 StretchDraw(Rect(0,0,16,16), Icn);
 end;
 end;
end;

procedure TForm1.FormShow(Sender: TObject);
var
 ItemInfo: TMenuItemInfo;
 hBmp1 : THandle;
begin
 HBmp1:=MnuItm.Handle;
 with ItemInfo do begin
 cbSize := SizeOf(ItemInfo);
 fMask := MIIM_CHECKMARKS;
 fType := MFT_BITMAP;
hBmpunChecked := HBmp1; { Неотмеченное (Unchecked) состояние }
 hBmpChecked := HBmp1; { Отмеченное (Checked) состояние }
 end;
 { /** Заменяем MenuItem Open1 законченным изображением **/ }
 SetMenuItemInfo(GetSubMenu(MainMenu1.Handle, File1.MenuIndex), Open1.MenuIndex, true, ItemInfo);
end;
end.

ProgressBar

ProgressBar — невидимка

Письмо читателя 

Здравствуйте Валентин!

Заказчик моего проекта обратился с просьбой — "Сделать прогресс индикатор как в приложениях Нортона. Чтоб был в статус строке и НИКАКИХ рамок". ProgressBar в StatusBar — нет проблем, но как быть с рамкой от ProgressBar? ProgressBar всегда вычерчивает рамку и не имеет методов ее управления. Однако появилась интересная идея, воплотившаяся в компонент с новым свойством ShowFrame. Решение оказалось на удивление простым.

unit SProgress;

interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls;

type TVSProgressBar = class(TProgressBar)
 procedure WMNCPAINT(var Msg: TMessage); message WM_NCPAINT;
private
 { Private declarations }
 FShowFrame: boolean;
 procedure SetShowFrame(Value: boolean);
protected
 { Protected declarations }
public
 { Public declarations }
 constructor Create(AOwner: TComponent); override;
published
 { Published declarations }
 property Align;
 property Anchors;
 property BorderWidth;
 property DragCursor;
 property DragKind;
 property DragMode;
 property Enabled;
 property Hint;
 property Constraints;
 property Min;
 property Max;
 property Orientation;
 property ParentShowHint;
 property PopupMenu;
 property Position;
 property ShowFrame: boolean read FShowFrame write SetShowFrame;
 property ShowHint;
 property Smooth;
 property Step;
 property TabOrder;
 property TabStop;
 property Visible;
 property OnContextPopup;
 property OnDragDrop;
 property OnDragOver;
 property OnEndDock;
 property OnEndDrag;
 property OnEnter;
 property OnExit;
 property OnMouseDown;
 property OnMouseMove;
 property OnMouseUp;
 property OnStartDock;
 property OnStartDrag;
end;