Znowu mam problem z tym przekletym ownerdraw w TMenuItem [glowa]. Wiem już jak zrobić, żeby nie było ramki wokół menu. Zrobiłem coś takiego (wiem, że brzydkie i że tylko kawałek ramki, ale pośpiech...):

procedure TForm1.ownerdraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
selected:boolean);
var
srect:trect;
scanvas:tcanvas;
begin

scanvas:=tcanvas.Create;

getWindowRect(WindowFromDC(acanvas.Handle), srect);
scanvas.Handle:=GetWindowDC(GetDesktopWindow);

if selected then
acanvas.Brush.Color:=clmaroon
else
acanvas.Brush.Color:=clwhite;

scanvas.Brush.Color:=cllime;
scanvas.Pen.Color:=cllime;
scanvas.Rectangle(srect.Left, srect.Top, srect.Left+2, srect.Bottom);

acanvas.Rectangle(arect);
end;

i to działa, ale jest jeden mały haczyk. Zielona ramka pojawia się dopiero wtedy, gdy przejadę po kilku itemach menu, a nie jak tylko menu zostanie pokazane. A przecież powinno być od razu, bo procedura ownerdraw jest wykonywana przy rysowaniu każdego itema :(---------------------------
Delphi 6

Pozdrówka