Кнопки в загаловке формы

[$T@LKER]

Можешь поставить и глянуть TMS Component Pack v5.8.4.0 там просто нереальное количество компонентов может че то и найдешь.

[dmitriegorovih]

Это же брэйнфак... По-моему пост #2 дал самое легкое и верное решение твоей задачи...

Может и быть, но самое не красивое решение.

Google chrome ведь как-то это делает же. Или у Делфи 7 есть порог через который не как нельзя перепрыгнуть и нужна более старшая версия?

[$T@LKER]

Думаю для вашей затеи у Дэлфи 7 сильонок маловато)!

[dmitriegorovih]

Думаю для вашей затеи у Дэлфи 7 сильонок маловато)!

Вот это больше всего и вероятно, хотя может все таки по извращаться и сделать? я так понял это нужно получать canvas целой формы и рисовать на нём кнопку, хотя вот смотря на google crhome у него другие совсем фокусы

[$T@LKER]

Гугл Хром, думаю все понимают, что он уж точно не написан на дэлфи 7))))!

[MyLastHit]

Хром написан на Go скорее всего, ну или на python. Но в гугле работают такие программисты, что 1 гуглер = 10 майкрософтцев = 100 программистов = 1000 любителей типа нас

Если для тебя целью является дизайн твоей программы, то зря ты Делфи выбрал...

[ArtGrek]

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

[Johnson]

Что вы флуд открываете? Какая связь между декоративным исполнением и версией RAD?
Я же Вам советовал - найдите ломаную Alpha Controls и не мучайтесь.
А насчет хрома (впрочем, и оперы тоже) - окно у них отрисовывает сама программа, стандартных кепшнов нет.

[ArtGrek]

не смог доконца разобраца, выложу что есть

procedure TForm1.DrawBtn;{Код прорисовки кнопки}
var
  WDc: HDc;
  Cx, Cy: Integer;
  XFrame, Yframe: Integer;
begin
  {Получаем контекст нашего окна, снимаем мерки с оконных размеров, 
  вычисляем положение нашей кнопки и прорисовываем её в зависимости 
  от того нажата ли кнопка мыши над ней}
  WDc := GetWindowDc(Handle);
  Cx := GetSystemMetrics(SM_CXSize);
  Cy := GetSystemMetrics(SM_CYSize);
  xFrame := GetSystemMetrics(SM_CXFrame);
  yFrame := GetSystemMetrics(SM_CYFrame);
  R := Bounds(Width - xFrame - 4*Cx + 2 - 300, yFrame + 2, Cx - 2 + 300, Cy - 4);
  if Press then
    DrawFrameControl(WDc,R,DFC_BUTTON,DFCS_ButtonPUSH or DFCS_PUSHED)
  else
    DrawFrameControl(WDc,R, DFC_BUTTON,DFCS_ButtonPUSH);
  ReleaseDc(Handle,WDC);
end;

DrawFrameControl - рисует тот компонент что описан во второи переменои DFC_BUTTON
если использовать

BOOL PolyDraw(
  __in  HDC hdc,
  __in  const POINT *lppt,
  __in  const BYTE *lpbTypes,
  __in  int cCount
);

то можно задать не стандартныи вид трапеции, как у хрома
остальнои код во вложении

еще нашел компонент(во вложении) самодельныи которыи добавляет кнопку в рамку с возможностью изменять иконку

P.S. ArtGrek иконка тока не вставляется, а так норм, не подскажите как туды втулить картинку?

 DrawIconEX(MyCanvas.Handle, Rec.Left + 4, Rec.Top + 3, Application.Icon.Handle, 8, 8, 0, 0, DI_NORMAL);

[dmitriegorovih]

captionbutton.zip (3.4 Кб, 1 просмотров)

вообще не работает

Unit1.txt (3.6 Кб, 2 просмотров)

помойму это не то оно делает окно ка Windows 3.11

больше нет не каких вариантов?