daiomik написал(а):
Как избавиться от мерцания панели при передвижении сплиттера
Вот такая вот панелька, котрая мерцает при изменении её разров.
Понятия не имею что с ней делать.
Вопросы новичка
Сообщений 601 страница 630 из 1000
Поделиться60123.08.2010 14:03:45
Поделиться60223.08.2010 14:15:28
А как можно программно добавить гаджет в заранее созданную вкладку панели? То есть есть такая вкладка:
AddGadgetItem (#Panel_0, -1, "")
как мне программно добавить туда кнопку? (ButtonGadget())
Поделиться60323.08.2010 14:32:55
daiomik написал(а):
А как можно программно добавить гаджет в заранее созданную вкладку панели
Для этого нужно использовать функцию OpenGadgetList.
Код:
If OpenWindow(0, 0, 0, 322, 270, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PanelGadget (0, 8, 8, 306, 203)
AddGadgetItem (0, -1, "Panel 1")
PanelGadget (1, 5, 5, 290, 166)
AddGadgetItem(1, -1, "Sub-Panel 1")
AddGadgetItem(1, -1, "Sub-Panel 2")
AddGadgetItem(1, -1, "Sub-Panel 3")
CloseGadgetList()
AddGadgetItem (0, -1,"Panel 2")
ButtonGadget(2, 10, 15, 80, 24,"Button 1")
ButtonGadget(3, 95, 15, 80, 24,"Button 2")
CloseGadgetList()
ButtonGadget(10,10,230,180,30,"Добавить кнопку на Sub-Panel 1")
ButtonGadget(11,200,230,110,30,"Добавить вкладку")
Repeat
Event=WaitWindowEvent()
If Event = #PB_Event_Gadget
If EventGadget() = 10
OpenGadgetList(1, 0)
ButtonGadget(20,10,10,80,24,"Новая кнопка")
CloseGadgetList()
ElseIf EventGadget() = 11
OpenGadgetList(1)
AddGadgetItem(1,1,"Новая")
CloseGadgetList()
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIfПоделиться60423.08.2010 14:40:47
Спасибо!
Поделиться60523.08.2010 17:49:02
Каким действие меняется курсор мыши при наведение на гаджет?
Поделиться60623.08.2010 18:28:35
Отслеживаем что курсор на гаджете
Код:
Procedure IsMouseOver(wnd) Shared TekPosGadgetX, TekPosGadgetY GetWindowRect_(wnd,re.RECT) GetCursorPos_(pt.POINT) Result = PtInRect_(re,pt\x,pt\y) ProcedureReturn Result EndProcedure
и меняем курсор
Код:
SetCursor_(LoadCursor_(0, 32649))
Поделиться60723.08.2010 18:38:11
ммм..ругается на этой строчке
Код:
Result = PtInRect_(re,pt\x,pt\y)
разве нет способа чеоез eventtype() как то.. То есть IF type=нужная константа, то SetCursor_(LoadCursor_(0, 32649))??
Поделиться60823.08.2010 19:06:18
Вот нашел код, но не очень пойму его содержание:
Код:
handle=LoadCursor_(0,#IDC_CROSS )
CreateImage(1,80,80)
StartDrawing(ImageOutput(1))
FrontColor(RGB(255,0,0))
Circle(40,40,40)
StopDrawing()
If OpenWindow(1,100,200,210,210,"Cursor дndern",#PB_Window_SystemMenu)
CreateGadgetList(WindowID(1))
ImageGadget(1,10,10,80,80,ImageID(1))
ImageGadget(2,120,10,80,80,ImageID(1))
ImageGadget(3,120,120,80,80,ImageID(1))
ImageGadget(4,10,120,80,80,ImageID(1))
normhandle=GetWindowLong_(GadgetID(1),#GCL_HCURSOR)
SetClassLong_(GadgetID(1),#GCL_HCURSOR,handle)
Repeat
event=WaitWindowEvent()
Until event=#WM_CLOSE
SetClassLong_(GadgetID(1),#GCL_HCURSOR,normhandle)
CloseWindow(1)
EndIf
EndПоделиться60923.08.2010 19:32:13
Эти строки
Код:
normhandle=GetWindowLong_(GadgetID(1),#GCL_HCURSOR) SetClassLong_(GadgetID(1),#GCL_HCURSOR,handle)
изменяют тип курсора для всех гаджетов программы, типа ImageGadget.
Поделиться61023.08.2010 19:46:39
С наведением разобрался.. Теперь такой вопрос.. Как отслеживать событие когда пользователь нажал ЛКМ и двигает мышкой.. То есть при таких событиях должны происходить определенные действия.
Поделиться61123.08.2010 19:55:54
Попробуй так
Код:
If event = #WM_MOUSEMOVE
If GetAsyncKeyState_(#VK_LBUTTON)
; Тут нужные действия
EndIf
EndIfПоделиться61223.08.2010 20:11:15
Хорошо, а как теперь сделать данное событие над определенным гаджетом?
Поделиться61323.08.2010 20:20:12
Код:
Procedure IsMouseOver(wnd)
Shared TekPosGadgetX, TekPosGadgetY
GetWindowRect_(wnd,re.RECT)
GetCursorPos_(pt.POINT)
Result = PtInRect_(re,pt\x,pt\y)
ProcedureReturn Result
EndProcedure
If event = #WM_MOUSEMOVE
If GetAsyncKeyState_(#VK_LBUTTON)
If IsMouseOver(GadgetID(Gadget))
; Тут нужные действия
EndIf
EndIf
EndIfПоделиться61423.08.2010 20:26:31
Спасибо!
Поделиться61523.08.2010 20:32:29
Я вот не пойму как узнать константы всех курсоров мыши.. Открываю окно констант, а там не все есть курсоры (они такого плана: #IDC_NO).. Мне нужны стрелочки различного направления и др
Поделиться61623.08.2010 20:43:48
Вот
Код:
#IDC_APPSTARTING Standard arrow and small hourglass #IDC_ARROW Standard arrow #IDC_CROSS Crosshair #IDC_IBEAM Text I-beam #IDC_ICON Windows NT only: Empty icon #IDC_NO Slashed circle #IDC_SIZE Windows NT only: Four-pointed arrow #IDC_SIZEALL Same as IDC_SIZE #IDC_SIZENESW Double-pointed arrow pointing northeast and southwest #IDC_SIZENS Double-pointed arrow pointing north and south #IDC_SIZENWSE Double-pointed arrow pointing northwest and southeast #IDC_SIZEWE Double-pointed arrow pointing west and east #IDC_UPARROW Vertical arrow #IDC_WAIT Hourglass
Поделиться61723.08.2010 23:10:22
Можно ли у кнопки создать картинку слева? Делал так, но в данном случае только одна картинка, а текст вставить невозможно:
Код:
ButtonImageGadget(#Button_4, 220, 15, 95, 20,ImageID(1))
Код:
Поделиться61823.08.2010 23:55:06
daiomik написал(а):
Можно ли у кнопки создать картинку слева?
Посмотри как это реализовано в этой проге http://pure-basic.narod.ru/project/CountTraffic.html
Поделиться61923.08.2010 23:59:21
Поянтно..API. Не так сложно кстати)
Поделиться62024.08.2010 09:57:02
почему при добавлении элемента в список появляются ошибки..уже что только не пробовал со стрин и с long.. Вот основа думаю поймете:
Код:
Structure mywindow x.l y.l innerwidth.l innerheight.l title.s flags.s EndStructure Global MyWindow.mywindow Global NewList MyCode(); Procedure Created() AddElement(MyCode()) MyCode()="OpenWindow(#PB_Any,"+Str(MyWindow\x)+Str(MyWindow\y)+Str(MyWindow\innerwidth)+Str(MyWindow\innerheight)+MyWindow\title+MyWindow\flags+")" AddElement(MyCode()) MyCode()="Repeat" AddElement(MyCode()) MyCode()="Until WaitWindowEvent()=#PB_Event_CloseWindow" EndProcedure
ошибку пишет в этой строке
Код:
MyCode()="OpenWindow(#PB_Any,"+Str(MyWindow\x)+Str(MyWindow\y)+Str(MyWindow\innerwidth)+Str(MyWindow\innerheight)+MyWindow\title+MyWindow\flags+")"
и еще..Если писать так:
Код:
Procedure Created(MyWindow\x,MyWindow\y,MyWindow\innerwidth,MyWindow\innerheight,MyWindow\title,MyWindow\flags) AddElement(MyCode()) MyCode()="OpenWindow(#PB_Any,"+Str(MyWindow\x)+Str(MyWindow\y)+Str(MyWindow\innerwidth)+Str(MyWindow\innerheight)+MyWindow\title+MyWindow\flags+")" AddElement(MyCode()) MyCode()="Repeat" AddElement(MyCode()) MyCode()="Until WaitWindowEvent()=#PB_Event_CloseWindow" EndProcedure
то ошибка вообще в первой строке.. Разве нельзя передавать параметры из структуры?
Отредактировано daiomik (24.08.2010 09:57:53)
Поделиться62124.08.2010 11:01:39
daiomik написал(а):
ошибку пишет в этой строке
Список должен быть стринговый, ведь в него записываются строки текста.
Код:
Structure mywindow x.l y.l innerwidth.l innerheight.l title.s flags.s EndStructure Global MyWindow.mywindow Global NewList MyCode.s(); Procedure Created() AddElement(MyCode()) MyCode()="OpenWindow(#PB_Any,"+Str(MyWindow\x)+Str(MyWindow\y)+Str(MyWindow\innerwidth)+Str(MyWindow\innerheight)+MyWindow\title+MyWindow\flags+")" AddElement(MyCode()) MyCode()="Repeat" AddElement(MyCode()) MyCode()="Until WaitWindowEvent()=#PB_Event_CloseWindow" EndProcedure Created()
daiomik написал(а):
Разве нельзя передавать параметры из структуры
Это делается немного по другому.
Или через обычные переменные, являющиеся аргументами процедуры.
Код:
Structure mywindow x.l y.l innerwidth.l innerheight.l title.s flags.s EndStructure MyWindow.mywindow Global NewList MyCode.s(); Procedure Created(x,y,innerwidth,innerheight,title.s,flags.s) AddElement(MyCode()) MyCode()="OpenWindow(#PB_Any,"+Str(x)+Str(y)+Str(innerwidth)+Str(innerheight)+title+flags+")" AddElement(MyCode()) MyCode()="Repeat" AddElement(MyCode()) MyCode()="Until WaitWindowEvent()=#PB_Event_CloseWindow" EndProcedure Created(MyWindow\x,MyWindow\y,MyWindow\innerwidth,MyWindow\innerheight,MyWindow\title,MyWindow\flags)
или передачей указателя на струкутуру
Код:
Structure mywindow x.l y.l innerwidth.l innerheight.l title.s flags.s EndStructure MyWindow.mywindow Global NewList MyCode.s(); Procedure Created(*MyWindow.mywindow) AddElement(MyCode()) MyCode()="OpenWindow(#PB_Any,"+Str(*MyWindow\x)+Str(*MyWindow\y)+Str(*MyWindow\innerwidth)+Str(*MyWindow\innerheight)+*MyWindow\title+*MyWindow\flags+")" AddElement(MyCode()) MyCode()="Repeat" AddElement(MyCode()) MyCode()="Until WaitWindowEvent()=#PB_Event_CloseWindow" EndProcedure Created(@MyWindow)
Поделиться62224.08.2010 11:09:21
Пётр написал(а):
Список должен быть стринговый, ведь в него записываются строки текста.
Дурья моя голова))
Пётр написал(а):
Или через обычные переменные, являющиеся аргументами процедуры.
то что нужно!
Поделиться62324.08.2010 11:34:25
есть ли команда стринг, которая бы возводила текст в кавычки..а то в ручную долго прописывать?
Поделиться62424.08.2010 11:36:53
Используй Chr(34)
Если это долго, то можешь попробовать использовать одинарные кавычки ' потом заменяя их на двойные с помощью ReplaceString.
Поделиться62524.08.2010 11:38:32
аа.забыл совсем)
Поделиться62624.08.2010 13:11:54
Можно ли сделать программу для склейки exe файлов или других форматов. И как это можно реализовать.Заранее спасибо.
Поделиться62724.08.2010 13:29:30
Всё зависит от того, нужно ли это производить на этапе компиляции программы или файлы нужно "приклеивать" к уже скомпилированой программе.
В первом случае, нжно использовать оператор IncludeBinary или ресурсы исполняемого файла.
Во втором случае, или ресурсы, или создание подобия самораспаковывающегося архива с файлами.
Поделиться62824.08.2010 13:33:30
есть 2 работающих файла exe и надо что бы в программе я смог выбрать из\х и на выходе у меня получился 1 файл, что бы открывались сразу 2 файла и что бы они работали вместе.
Поделиться62924.08.2010 13:40:44
Зачем изобретать колесо.
Есть же программа AlgPak.
Поделиться63024.08.2010 13:57:57
Просто в ней надо выбрать какой файл главный а мне надо что бы 2 файла были важными и главными
Похожие темы
| Вопросы новичка (продолжение…) | Вопросы по PureBasic | 26.02.2024 |
| Скорее, это теоретический вопрос о правах в директории. | OffTop | 16.09.2022 |
| Вопрос по отладке | Вопросы по PureBasic | 26.01.2017 |
| Три вопроса по созданию браузера. | Вопросы по PureBasic | 01.11.2010 |
| вопрос о точности типов данных | Вопросы по PureBasic | 20.05.2021 |