Платные хостинги     Раскрутка сайта     Книги по программированию

линия в пиксель между caption формы и рабочей обла, как убрать, закрасить

- у меня на форме есть TImage align = altop, мне нужно чтобы имедж этот сливался с кэпшеном, но появляетя линия в 1 пиксел цвета формы. + сложность в том что я не могу перехваить NCPaint и другие - сообщения, т.к. используется скиновый компонент(типа красивая форма) перехватывает чутли не все сообщения начальной прорисовки и позиционирования рабочей области). Может можно както просто закрасить эту область(цвет известен)? буду благодарен лубым советам.

- В OnPaint формы рисуй на Canvas - е формы эту линию.

- пытался, y = 0 это не эта линия, все равно промежуток остается

- Что-то у меня нету никакой линии. Могет это потому что у меня в XP стили не отключены...Если уж ты рисуешь скиновую форму, то зачем тебе стандартный заголовок? Рамку формы в ноне и рисуй свой верх.Еще идеи: Поменять тип рамки формы на другой, а имадж лежит не на панели? А отключить свойство Ctl3D... Я бы подсказал бы еще что-нить, но НЕТУ у меня никакой линии...

- Попробуй поставить в OnPaint:Код procedure TForm1.FormPaint(Sender: TObject);var  WindowCanvas: TCanvas;  CaptionHeight: integer;begin  WindowCanvas := TCanvas.Create;  try    CaptionHeight := GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFIXEDFRAME);    WindowCanvas.Handle := GetWindowDC(Handle);    WindowCanvas.MoveTo(0, CaptionHeight);    WindowCanvas.LineTo(Width, CaptionHeight);  finally    FreeAndNil(WindowCanvas);  end;end;highlightSyntax('delphiU3Yjkw','delphi');

- Только что бы все правильно работало, этот код нужно еще дописать в WM_NCHITTEST, иначе при наступлении этого события происходит затирание линии.

- сейчас так и сделано, но учитывая что форм в проекте штук 50 и при изменении скина ее тоже надо-будет менять Цитата Еще идеи: Поменять тип рамки формы на другой, а имадж лежит не на панели? А отключить свойство Ctl3D... да все я пробовал...это походу скины такие надо их править Добавлено @ 16:24 <Spawn>попробую, спс

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD