PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » EditorGadget и бордюр

EditorGadget и бордюр

Страница: 1

Сообщений 1 страница 5 из 5

1

  • Автор: Andruk
  • Активный участник
  • Зарегистрирован: 27.01.2025
  • Приглашений: 0
  • Сообщений: 48
  • Уважение: [+1/-0]
  • Позитив: [+6/-0]
  • Провел на форуме:
    1 день 12 часов
  • Последний визит:
    Сегодня 01:17:44

Вопрос: как избавиться от бордюра (поребрика) в EditorGadget?

А вот - нашел:

Код:
  SetWindowTheme_(GadgetID(0), @"", @"")
  SetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE, 0)
  SetWindowPos_(GadgetID(0), 0, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE | #SWP_FRAMECHANGED)

Вроде как работает...

Отредактировано Andruk (20.02.2025 19:52:31)

0

2

  • Автор: Lin
  • Активный участник
  • Зарегистрирован: 18.11.2020
  • Приглашений: 2
  • Сообщений: 101
  • Уважение: [+7/-0]
  • Позитив: [+4/-0]
  • Провел на форуме:
    5 дней 20 часов
  • Последний визит:
    Вчера 02:30:40

или

Код:
Procedure EditorGadgetNoBorder(iID.i,iX.i,iY.i,iW.i,iH.i)
  If ContainerGadget(#PB_Any,iX,iY,iW,iH)
    result.i = EditorGadget(iID,-2,-2,iW+4,iH+4)
    CloseGadgetList()
  Else
    result.i = 0
  EndIf
  ProcedureReturn result
EndProcedure

If OpenWindow(0, 0, 0, 322, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadgetNoBorder(0, 8, 8, 306, 133)
  For a = 0 To 5
    AddGadgetItem(0, a, "Line "+Str(a))
  Next
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Отредактировано Lin (20.02.2025 19:57:48)

+1

3

  • Автор: Andruk
  • Активный участник
  • Зарегистрирован: 27.01.2025
  • Приглашений: 0
  • Сообщений: 48
  • Уважение: [+1/-0]
  • Позитив: [+6/-0]
  • Провел на форуме:
    1 день 12 часов
  • Последний визит:
    Сегодня 01:17:44
Lin написал(а):

или

Нормально! Спасибо.

Отредактировано Andruk (20.02.2025 21:01:46)

0

4

  • Автор: newJS
  • Активный участник
  • Зарегистрирован: 28.12.2015
  • Приглашений: 0
  • Сообщений: 268
  • Уважение: [+2/-0]
  • Позитив: [+8/-0]
  • Пол: Мужской
  • Провел на форуме:
    3 дня 3 часа
  • Последний визит:
    Вчера 12:16:47

взял и удалил ВСЕ расширенные стили, а если были стили кроме бордюра?
сомнительное упрощение

Код:
SetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE, 0)

наверно сначала надо прочесть все константы, удалить конкретную, добавить что то новое
удаляем бордюр

Код:
SetWindowLongPtr_(hwnd, #GWL_EXSTYLE, GetWindowLongPtr_(hwnd, #GWL_EXSTYLE) ! #WS_EX_CLIENTEDGE)

добавляем другой бордюр

Код:
SetWindowLongPtr_(hwnd, #GWL_STYLE, GetWindowLongPtr_(hwnd, #GWL_STYLE) | #WS_BORDER)

и не забываем что есть #GWL_EXSTYLE и #GWL_STYLE

0

5

  • Автор: AZJIO
  • Активный участник
  • Зарегистрирован: 07.08.2020
  • Приглашений: 0
  • Сообщений: 1242
  • Уважение: [+17/-0]
  • Позитив: [+15/-0]
  • Провел на форуме:
    25 дней 17 часов
  • Последний визит:
    Сегодня 06:38:59

без неё работает

Код:
SetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE, 0)

Знак "!" здесь не подходит, нужно &~ (читать тут)

Код:
SetWindowLongPtr_(hwnd, #GWL_EXSTYLE, GetWindowLongPtr_(hwnd, #GWL_EXSTYLE) ! #WS_EX_CLIENTEDGE)

Ну а вообще я пробовал сразу же, это просто не работает, причину не выяснил, не работает и всё. Пробовал все обычные стили с разными границами и расширенные стили с разными границами.

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » EditorGadget и бордюр