1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

выбор цвета

Тема в разделе "Lotus - Программирование", создана пользователем nadezdaMP, 29 янв 2010.

  1. nadezdaMP

    nadezdaMP Гость

    Репутация:
    0
    Приветствую! =)
    кто нибудь сталкивался, как программно можно вывсети пользователю диалог выбора цвета?
    спасибо за ответы. =)
     
  2. Omh

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Так есть же такой тип поля - Color
     

    Вложения:

    • выбор цвета
      Color.jpg
      Размер файла:
      46,3 КБ
      Просмотров:
      87
  3. nvyush

    nvyush Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
  4. amigolinx

    amigolinx Гость

    Репутация:
    0
    Я правильно понимаю, что нужно вызвать типа системный диалог выбора цвета, с любого места вне зависимости от контекста?
    Если так, то юзаем айпишные ф-ии.
    Тестировал по кнопке в почтовой базе
    Код:
    Type ChooseColor
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As String
    flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
    End Type 
    
    Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (Byval lpClassName As String, Byval lpWindowName As String) As Long 
    
    '---------
    Function ShowColor() As Long
    Dim ChooseColorStructure As ChooseColor
    Dim Custcolor(16) As Long
    Static CustomColors As String * 70
    Dim lReturn As Long
    Dim Break_Mode As Long
    
    ChooseColorStructure.lStructSize = Len(ChooseColorStructure)
    ChooseColorStructure.hwndOwner = FindWindow("NOTES", "New Memo - IBM Lotus Notes")
    ChooseColorStructure.hInstance = 0
    ChooseColorStructure.lpCustColors = CustomColors
    ChooseColorStructure.flags = 0
    
    If ChooseColor(ChooseColorStructure) <> 0 Then
    ShowColor = ChooseColorStructure.rgbResult
    CustomColors = ChooseColorStructure.lpCustColors
    Else
    
    ShowColor = -1
    End If
    If ShowColor > &HFFFFFF Or ShowColor < -1 Then ShowColor = -1
    End Function 
    
    '---------
    Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    
    Set uidoc = workspace.CurrentDocument
    
    If uidoc.EditMode = True Then
    Call uidoc.FieldAppendText("Subject", Cstr(showcolor))
    Else
    Msgbox "You must be in edit mode before you can set the colour"
    End If
    
    End Sub
     
  5. nadezdaMP

    nadezdaMP Гость

    Репутация:
    0
    да, именно оно, спасибо!!))
     
Загрузка...

Поделиться этой страницей