PureBasic - форум

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

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

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Вопросы новичка (продолжение…)

Вопросы новичка (продолжение…)

Страница:   1 … 23 24 25 26 27 … 33  
Тема закрыта

Сообщений 721 страница 750 из 990

721

  • Автор: Тигрёнок
  • Активный участник
  • Откуда: Днепропетровск
  • Зарегистрирован: 31.07.2011
  • Приглашений: 0
  • Сообщений: 61
  • Уважение: [+1/-0]
  • Позитив: [+8/-1]
  • Пол: Мужской
  • Возраст: 32 [1992-11-09]
  • Провел на форуме:
    1 день 15 часов
  • Последний визит:
    14.12.2018 08:33:33

Спасибо

0

722

  • Автор: ldir
  • Новичок
  • Зарегистрирован: 02.07.2012
  • Приглашений: 0
  • Сообщений: 8
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 часа 52 минуты
  • Последний визит:
    25.02.2013 17:33:49

Здравствуйте! Есть код

Код:
Enumeration
  #Window_0
EndEnumeration

Enumeration
  #ListIcon_0
EndEnumeration

Declare TestProcedure()

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 393, 81, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    ListIconGadget(#ListIcon_0, 15, 10, 565, 275, "Column0", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
    For a = 0 To 50
      AddGadgetItem(#ListIcon_0,-1,Str(a))
    Next a
  EndIf
EndProcedure

Procedure TestProcedure()
  Debug EventwParam()
EndProcedure

Open_Window_0()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  GadgetID = EventGadget() ; Is it a gadget event?
  EventType = EventType() ; The event type
  
  Select Event 
    Case #PB_Event_Gadget
      Select GadgetID
        Case #ListIcon_0
          If EventType = #PB_EventType_LeftClick
            Loop:
            TestProcedure()
          EndIf
      EndSelect
    Case #WM_KEYDOWN
      If GetActiveGadget() = #ListIcon_0 And (EventwParam() = #PB_Shortcut_Down Or EventwParam() = #PB_Shortcut_Up)
        Goto Loop
      EndIf
  EndSelect
  
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;

Если ткнуть на ListIcon и понажимать клавиши вверх/вниз, то через несколько нажатий программа вылетает и вроде как на EndSelecte. Возможно ли что проблема связана с неверным возвратом из Select?
Если нет то в чем ошибка? Заранее благодарю.

0

723

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
ldir написал(а):

Возможно ли что проблема связана с неверным возвратом из Select?

Ага. Стек не очищается.
http://purebasic.info/phpBB2/viewtopic.php?p=3532#3532
http://purebasic.info/phpBB2/viewtopic.php?p=4333#4333

Альтернативные пути решения проблемы.

Почему не вызвать TestProcedure() в место перехода на метку?

Код:
Enumeration
  #Window_0
EndEnumeration

Enumeration
  #ListIcon_0
EndEnumeration

Declare TestProcedure()

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 393, 81, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    ListIconGadget(#ListIcon_0, 15, 10, 565, 275, "Column0", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
    For a = 0 To 50
      AddGadgetItem(#ListIcon_0,-1,Str(a))
    Next a
  EndIf
EndProcedure

Procedure TestProcedure()
  Debug EventwParam()
EndProcedure

Open_Window_0()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  GadgetID = EventGadget() ; Is it a gadget event?
  EventType = EventType() ; The event type
  
  Select Event 
    Case #PB_Event_Gadget
      Select GadgetID
        Case #ListIcon_0
          If EventType = #PB_EventType_LeftClick
            TestProcedure()
          EndIf
      EndSelect
    Case #WM_KEYDOWN
      If GetActiveGadget() = #ListIcon_0 And (EventwParam() = #PB_Shortcut_Down Or EventwParam() = #PB_Shortcut_Up)
        TestProcedure()
      EndIf
  EndSelect
  
Until Event = #PB_Event_CloseWindow ; End of the event loop

End

Если уж так хочется оставить как есть, то нужно поместить в стек что-нибудь.

Код:
Enumeration
  #Window_0
EndEnumeration

Enumeration
  #ListIcon_0
EndEnumeration

Declare TestProcedure()

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 393, 81, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    ListIconGadget(#ListIcon_0, 15, 10, 565, 275, "Column0", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
    For a = 0 To 50
      AddGadgetItem(#ListIcon_0,-1,Str(a))
    Next a
  EndIf
EndProcedure

Procedure TestProcedure()
  Debug EventwParam()
EndProcedure

Open_Window_0()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  GadgetID = EventGadget() ; Is it a gadget event?
  EventType = EventType() ; The event type
  
  Select Event 
    Case #PB_Event_Gadget
      Select GadgetID
        Case #ListIcon_0
          If EventType = #PB_EventType_LeftClick
            Loop:
            TestProcedure()
          EndIf
      EndSelect
    Case #WM_KEYDOWN
      If GetActiveGadget() = #ListIcon_0 And (EventwParam() = #PB_Shortcut_Down Or EventwParam() = #PB_Shortcut_Up)
        !push eax
        Goto Loop
      EndIf
  EndSelect
  
Until Event = #PB_Event_CloseWindow ; End of the event loop

End

Но правильнее сделать так:

Код:
Enumeration
  #Window_0
EndEnumeration

Enumeration
  #ListIcon_0
EndEnumeration

Declare TestProcedure()

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 393, 81, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    ListIconGadget(#ListIcon_0, 15, 10, 565, 275, "Column0", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
    For a = 0 To 50
      AddGadgetItem(#ListIcon_0,-1,Str(a))
    Next a
  EndIf
EndProcedure

Procedure TestProcedure()
  Debug GetGadgetState(#ListIcon_0)
EndProcedure

Open_Window_0()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  GadgetID = EventGadget() ; Is it a gadget event?
  EventType = EventType() ; The event type
  
  Select Event 
    Case #PB_Event_Gadget
      Select GadgetID
        Case #ListIcon_0
          If EventType = #PB_EventType_LeftClick Or EventType = #PB_EventType_Change
            TestProcedure()           
          EndIf
      EndSelect
  EndSelect
  
Until Event = #PB_Event_CloseWindow ; End of the event loop

End

0

724

  • Автор: ldir
  • Новичок
  • Зарегистрирован: 02.07.2012
  • Приглашений: 0
  • Сообщений: 8
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 часа 52 минуты
  • Последний визит:
    25.02.2013 17:33:49

Просто не хотелось писать еще раз все действия события LeftClick. Потому и искал пути решения. Последний вариант понравился больше всего, его и буду использовать. Про #PB_EventType_Change я вообще не был в курсе. Теперь буду знать.  Большое человеческое спасибо.

0

725

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
ldir написал(а):

Про #PB_EventType_Change я вообще не был в курсе

Об этот типе события упомянуто в описании функции ListIconGadget() и в описании функции EventType().

0

726

  • Автор: Niikita
  • Новичок
  • Зарегистрирован: 14.08.2012
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    34 минуты
  • Последний визит:
    25.01.2013 12:44:04

Здравствуйте, начинаю изучение основ программирования и столкнулся с проблемой.
Не могу использовать спрайты 2D. Я в начале программы, как положено, пишу InitSprite(), далее после openscreen(), и еще пары команд, пишу LoadSprite(0,"kugel.bmp") и когда я его хочу вывести на экран DisplaySprite(0,k_x,k_y), при компиляции выдается ошибка "The specified 2D #Sprite isn't initialized". И так, где бы я его не использовал. Как будто команды LoadSprite() и не было вовсе.
Сначала проблема решилась, когда я вписал в настройках компилятора "подсистему" DirectX7, но это не решение проблемы, так как, когда я хочу использовать 3D Sprite команды, мне нужно очистить поле "подсистемы" в настройках компилятора, чтобы он использовал DirectX9. Справка бэйсика выдает мне информацию, что 3D спрайты не работают с DirectX7 на 64-х битных версиях Windows, которая как раз у меня стоит.
Кто может помочь разъяснить в чем дело и помочь? Буду очень благодарен!

0

727

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
Niikita написал(а):

3D Sprite

Код:
InitSprite()
InitSprite3D()
InitKeyboard()
UsePNGImageDecoder()

OpenScreen(1024, 768, 32, "")
LoadSprite(0, "Роза.png", #PB_Sprite_AlphaBlending|#PB_Sprite_Texture)
CreateSprite3D(0, 0)
Repeat
  FlipBuffers()
  
  ClearScreen(RGB(128,128,128))
  
  
  Start3D()
  DisplaySprite3D(0, 100, 100, 255)
  Stop3D()
  
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)

Исходник и картинка. http://pure-basic.narod.ru/forum/3DSprite.zip

0

728

  • Автор: ldir
  • Новичок
  • Зарегистрирован: 02.07.2012
  • Приглашений: 0
  • Сообщений: 8
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 часа 52 минуты
  • Последний визит:
    25.02.2013 17:33:49
Пётр написал(а):

Об этот типе события упомянуто в описании функции ListIconGadget() и в описании функции EventType().

Видимо я не внимательно читал

0

729

  • Автор: Niikita
  • Новичок
  • Зарегистрирован: 14.08.2012
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    34 минуты
  • Последний визит:
    25.01.2013 12:44:04

Петр, я в курсе как работать с 3D спрайтами, у меня проблема с 2D спрайтами! Я все делаю правильно (100%, так как этот же код, работал отлично перед тем, как я переустановил винду), но они не загружаются, и при попытке использовать спрайт, который я предварительно LoadSprite() мне выдает ошибку отладчик "the specified #sprite is not initialized"... Причем если использовать DirectX7, то все нормально вроде, но проблема в том, что мне нужно использовать не DirectX7, а DirectX9 для работы с 3D спрайтами на 64-х битной системе. Вот в чем проблема.

0

730

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
Niikita написал(а):

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

Niikita написал(а):

Причем если использовать DirectX7, то все нормально вроде, но проблема в том, что мне нужно использовать не DirectX7, а DirectX9

DirectX9 точно установлен?

0

731

  • Автор: Niikita
  • Новичок
  • Зарегистрирован: 14.08.2012
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    34 минуты
  • Последний визит:
    25.01.2013 12:44:04

Петр, я проверял с командой dxdiag и показывало, что "версия DirectX: DirectX11".

0

732

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
Niikita написал(а):

проверял с командой dxdiag и показывало, что "версия DirectX: DirectX11

Это ни о чем не говорит.
Были случаи что при установленном DX11 не работали примеры, основанные на DX9.
Нужно установить спец. пакет от MS.
Если ничего не путаю, то нужно установить этот пакет. http://www.microsoft.com/en-us/download … aspx?id=35

0

733

  • Автор: Niikita
  • Новичок
  • Зарегистрирован: 14.08.2012
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    34 минуты
  • Последний визит:
    25.01.2013 12:44:04

Петр, Ну он мне пишет, что установлена более новая версия и обновление не требуется, при запуске экзешника скачанного.
И я еще забыл сказать, у меня есть архив примеров программ, так вот там есть программы использующие 2D спрайты и работающие, при том, что в настройках компилятроа не указана никакая подсистема, то есть использует DirectX9 по умолчанию. Вот например программа tetris little, используются картинки засунутые в папку с кодом. и используются они как спрайты и все при этом работает, хотя отличий в инициализировании в моем коде и в тетрисе я не нашел. Вот часть моего кода. Ошибку выдает, когда доходит дело до использования спрайта, например в DisplaySprite()

Код:
xscreen = 1366
yscreen = 768

k_x.f = xscreen/2 
k_y.f = yscreen/2
k_winkel.f = 360
k_radius = 15
k_speed.f = 4
health = 100

s_sx = 20
s_sy = 20

geschossen.f

bulletsSMGALL = 90
bulletsRifleALL = 20
bulletsShotgunALL = 32

bulletsSMG = 30
bulletsRifle = 10
bulletsShotgun = 8

ugol.f
A.f
B.f
C.f
P.f
S.f
sinA.f
AsinA.f

ugolg.f
Ag.f
Bg.f
Cg.f
Pg.f
Sg.f
sinAg.f
AsinAg.f

volume = 0
reloading.f

Structure krug 
  x.f 
  y.f 
  winkel.f 
  speed.f 
EndStructure 

Structure spawner
  sx.f
  sy.f
  sspeed.f
  sradius.f
  swinkel.f
  shealth.f
EndStructure

Structure grenade
  gx.f
  gy.f
  gspeed.f
  gwinkel.f
  gtime.f
EndStructure

Structure grbul
  x.f 
  y.f 
  winkel.f 
  speed.f 
EndStructure

Global NewList bullet.krug()
Global NewList enemy.spawner()
Global NewList grenade.grenade()
Global NewList grbul.grbul()

If InitSprite() = 0
    MessageRequester("Error","Sprite() = 0",0)
    End
  EndIf  
  
If InitKeyboard() = 0
    MessageRequester("Error","InitKeyboard() = 0",0)
    End
  EndIf
  
If InitMouse() = 0
    MessageRequester("Error","InitMouse() = 0",0)
    End
  EndIf
  
If InitSound() = 0
    MessageRequester("Error","InitSound() = 0",0)
    End
  EndIf

UseOGGSoundDecoder()

LoadSound(1,"psh.ogg")
LoadSound(2,"krug.wav")
LoadSound(3,"psh3.ogg")
LoadSound(4,"semishoot.wav")
LoadSound(5,"shotgunreload.wav")
LoadSound(6,"smgshoot.wav")
LoadSound(7,"shotgunshoot.wav")
LoadSound(8,"cock.wav")
LoadSound(9,"semireload.wav")
LoadSound(10,"smgreload.wav")
LoadSound(11,"empty.wav")
LoadSound(12,"pin.wav")
LoadSound(13,"explode.wav")

Procedure.f Dist(X1.f,Y1.f,X2.f,Y2.f);Определяет расстояние между двумя точками!
  ProcedureReturn Sqr(Pow(X1-X2,2)+Pow(Y1-Y2,2))
EndProcedure

Procedure.f AddBullet(x.f,y.f,winkel.f,radius.f,speed.f)
      AddElement(bullet()) 
      bullet()\x = radius * Cos(winkel *(2*3.1415/360)) + x 
      bullet()\y = radius * Sin(winkel *(2*3.1415/360)) + y 
      bullet()\winkel = winkel
      bullet()\speed = speed
    EndProcedure
    
Procedure.f Addgrbul(gx.f,gy.f,gwinkel.f,gradius.f,gspeed.f)
      AddElement(grbul()) 
      grbul()\x = gradius * Cos(gwinkel *(2*3.1415/360)) + gx 
      grbul()\y = gradius * Sin(gwinkel *(2*3.1415/360)) + gy 
      grbul()\winkel = gwinkel
      grbul()\speed = gspeed
    EndProcedure
;}--------------------------------------------------------------------------------------------------- Переменные

If OpenScreen(xscreen,yscreen,16,"mass attack") 
  
  LoadSprite(0,"bullet1.bmp")
  LoadSprite(1,"enemy.bmp")
  LoadSprite(2,"screen.bmp")
  LoadSprite(3,"kugel.bmp")
  LoadSprite(4,"musicon.bmp")
  LoadSprite(5,"musicoff.bmp")
  LoadSprite(6,"grenade.bmp")
  LoadSprite(7,"grenadebullet1.bmp")
  
  Repeat 
    ExamineKeyboard()
    ExamineMouse()

      DisplaySprite(2,0,0)

0

734

  • Автор: ВиниПур
  • Активный участник
  • Зарегистрирован: 11.11.2010
  • Приглашений: 0
  • Сообщений: 271
  • Уважение: [+8/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    12.03.2022 21:07:46
Niikita написал(а):

Ошибку выдает, когда доходит дело до использования спрайта, например в DisplaySprite()

Иногда так бывает, когда экран  Depth=16 и используются BMP изображения для спрайтов( какова их битность?). Поэкспериментируй с 24 или 32. Посмотри, какая "родная" глубина цвета в системе установлена - был у меня косяк однажды с отображением из за этого. Ди и вообще, спрайты лучше грузить с #PB_Sprite_Texture - из тогда легко переделать в 3D. И юзать PNG  с декодером, меньше проблем с битностью.

0

735

  • Автор: Niikita
  • Новичок
  • Зарегистрирован: 14.08.2012
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    34 минуты
  • Последний визит:
    25.01.2013 12:44:04
ВиниПур написал(а):

Поэкспериментируй с 24 или 32

Я поставил 32 и о чудо! Просто я не знаком толком с программированием и на примере PureBasic-а я хотел ознакомиться с самим процессом и понять, что это вообще значит, поэтому я еще не в курсе, как и что работает.
Спасибо большое, а то бы я загнулся на этом моменте!

0

736

  • Автор: radan
  • Участник
  • Зарегистрирован: 10.10.2011
  • Приглашений: 0
  • Сообщений: 15
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    5 часов 48 минут
  • Последний визит:
    25.12.2012 16:49:40

Есть ли возможность программно менять значок приложения?

0

737

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54

В смысле значок исполняемого файла или значок в заголовке окна?
Пример замены значка в исполняемом файле. http://purebasic.ucoz.ru/publ/uchebnye_ … le/4-1-0-6

0

738

  • Автор: radan
  • Участник
  • Зарегистрирован: 10.10.2011
  • Приглашений: 0
  • Сообщений: 15
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    5 часов 48 минут
  • Последний визит:
    25.12.2012 16:49:40

Значок в заголовке окна.

0

739

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
Код:
SendMessage_(WindowID(#Window), #WM_SETICON, #False, ImageID(#Image))

#Window - идентификатор окна.
#Image   - идентификатор значка.

0

740

  • Автор: radan
  • Участник
  • Зарегистрирован: 10.10.2011
  • Приглашений: 0
  • Сообщений: 15
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    5 часов 48 минут
  • Последний визит:
    25.12.2012 16:49:40

Спасибо, работает.
Только в Taskbar-е (на панели задач Windows) иконка не меняется...
Хотя при щелчке по заголовку окна программы происходит смена и в Taskbar-е.
Понимаю, что нужно при смене иконки в заголовке окна обновлять и иконку в Taskbar-е, но ума не приложу, как это сделать.
Можно ли как-то это победить?

0

741

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54

Значок меняется при создании окна или во время работы?
Просто можно создать невидимое окно, сменить иконку и отобразить окно.

0

742

  • Автор: radan
  • Участник
  • Зарегистрирован: 10.10.2011
  • Приглашений: 0
  • Сообщений: 15
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    5 часов 48 минут
  • Последний визит:
    25.12.2012 16:49:40

Значок постоянно меняется во время работы программы.
Не совсем понял по поводу невидимого окна.
Сначала вызываем невидимое окно, потом меняем значок, потом закрываем невидимое окно?

0

743

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54

Можно еще попробовать менять заголовок окна при смене значка.
При этом перерисуется кнопка на панели задач и по идее, должен так же сменится значок.

0

744

  • Автор: radan
  • Участник
  • Зарегистрирован: 10.10.2011
  • Приглашений: 0
  • Сообщений: 15
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    5 часов 48 минут
  • Последний визит:
    25.12.2012 16:49:40

Как изменить размеры окна нашёл, а как изменить заголовок - нет  :dontknow:

0

745

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
radan написал(а):

как изменить заголовок - нет

SetWindowTitle() http://purebasic.ru/manual.php?id=1362&lng=rus

0

746

  • Автор: ldir
  • Новичок
  • Зарегистрирован: 02.07.2012
  • Приглашений: 0
  • Сообщений: 8
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 часа 52 минуты
  • Последний визит:
    25.02.2013 17:33:49

Здравствуйте, возник вопрос по ListIcon. Вот пример кода:

Код:
Enumeration
  #Window_0
EndEnumeration
;{ Gadgets
Enumeration
  #ListIcon_0
  #ListIcon_1
  #Button_2
  #Button_3
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 97, 5, 1304, 398, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    ListIconGadget(#ListIcon_0, 0, 0, 640, 350, "Gadget_0", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
    AddGadgetColumn(#ListIcon_0, 1, "Column #2", 100)
    AddGadgetColumn(#ListIcon_0, 2, "Column #3", 100)
    AddGadgetColumn(#ListIcon_0, 3, "Column #4", 100)
    AddGadgetColumn(#ListIcon_0, 4, "Column #5", 100)
    AddGadgetColumn(#ListIcon_0, 5, "Column #6", 100)
    AddGadgetColumn(#ListIcon_0, 6, "Column #7", 100)
    AddGadgetColumn(#ListIcon_0, 7, "Column #8", 100)
    AddGadgetColumn(#ListIcon_0, 8, "Column #9", 100)
    AddGadgetColumn(#ListIcon_0, 9, "Column #10", 100)
    ListIconGadget(#ListIcon_1, 645, 0, 650, 350, "Gadget_1", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
    AddGadgetColumn(#ListIcon_1, 1, "Column #2", 100)
    AddGadgetColumn(#ListIcon_1, 2, "Column #3", 100)
    AddGadgetColumn(#ListIcon_1, 3, "Column #4", 100)
    AddGadgetColumn(#ListIcon_1, 4, "Column #5", 100)
    AddGadgetColumn(#ListIcon_1, 5, "Column #6", 100)
    AddGadgetColumn(#ListIcon_1, 6, "Column #7", 100)
    AddGadgetColumn(#ListIcon_1, 7, "Column #8", 100)
    AddGadgetColumn(#ListIcon_1, 8, "Column #9", 100)
    AddGadgetColumn(#ListIcon_1, 9, "Column #10", 100)
    ButtonGadget(#Button_2, 30, 360, 120, 20, "Копировать")
    ButtonGadget(#Button_3, 650, 360, 130, 20, "Gadget_3")
HideGadget(#ListIcon_0,1)
For x.i = 0 To 1000
  a.s = Str(x)
  AddGadgetItem(#ListIcon_0,-1,a+"1"+Chr(10)+a+"2"+Chr(10)+a+"3"+Chr(10)+a+"4"+Chr(10)+a+"5"+Chr(10)+a+"6"+Chr(10)+a+"7"+Chr(10)+a+"8"+Chr(10))
Next x
HideGadget(#ListIcon_0,0)
EndIf
EndProcedure

OpenWindow_Window_0()
   
Procedure CopyItem()
  *ItemBuf.l = AllocateMemory(10)
  plvitem.LVITEM
  plvitem\pszText = *ItemBuf
  plvitem\cchTextMax = 10
  ListIcon1.l = GadgetID(#ListIcon_0)
  ListIcon2.l = GadgetID(#ListIcon_1)
  HideGadget(#ListIcon_1,1)
  LastRow.i = CountGadgetItems(#ListIcon_0)-1
  plvitem\iItem = 0
  For m.i = 0 To  LastRow
    AddGadgetItem(#ListIcon_1,-1,"dfsfs")
    Text.s = ""
    For col.i = 0 To 7
      plvitem\iSubItem = col
      SendMessage_(ListIcon1,#LVM_GETITEMTEXT,m,@plvitem)
      result.l = SendMessage_(ListIcon2,#LVM_SETITEMTEXT,m,@plvitem)
    Next col
  Next m
  HideGadget(#ListIcon_1,0)
EndProcedure

Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
     EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #ListIcon_0
      ElseIf EventGadget = #ListIcon_1
      ElseIf EventGadget = #Button_2
        CopyItem()
      ElseIf EventGadget = #Button_3
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver

При нажатии на кнопку "копировать" происходит копирование с левой таблицы в правую.
Если закомментировать строку AddGadgetItem(#ListIcon_1,-1,"dfsfs") то данные в правую таблицу не добавляются. Почему?

0

747

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
ldir написал(а):

Если закомментировать строку AddGadgetItem(#ListIcon_1,-1,"dfsfs") то данные в правую таблицу не добавляются. Почему?

Потому что эта строка добавляет пункт в таблицу, после чего копируются колонки.

Зачем скрывать, а затем отображать ListIconGadget при копировании?

0

748

  • Автор: ldir
  • Новичок
  • Зарегистрирован: 02.07.2012
  • Приглашений: 0
  • Сообщений: 8
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 часа 52 минуты
  • Последний визит:
    25.02.2013 17:33:49
Пётр написал(а):

Потому что эта строка добавляет пункт в таблицу, после чего копируются колонки.

Это я знаю, но есть строка SendMessage_(ListIcon2,#LVM_SETITEMTEXT,m,@plvitem) она добавляет значение в таблицу, или я не прав?

Пётр написал(а):

Зачем скрывать, а затем отображать ListIconGadget при копировании?

Путем экспериментов выяснил что скорость выполнения больше когда ListIcon скрыт. Знаю что это глупо, потому и ищу пути увеличения скорости загрузки данных в таблицу. Может есть еще какой-то очень быстрый способ?

0

749

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2997
  • Уважение: [+97/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 18:39:54
ldir написал(а):

Путем экспериментов выяснил что скорость выполнения больше когда ListIcon скрыт.

Для достижения того же результата, можно временно отключив прорисовку гаджета.

Код:
Enumeration
  #Window_0
EndEnumeration
;{ Gadgets
Enumeration
  #ListIcon_0
  #ListIcon_1
  #Button_2
  #Button_3
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 97, 5, 1304, 398, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    ListIconGadget(#ListIcon_0, 0, 0, 640, 350, "Gadget_0", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
    AddGadgetColumn(#ListIcon_0, 1, "Column #2", 100)
    AddGadgetColumn(#ListIcon_0, 2, "Column #3", 100)
    AddGadgetColumn(#ListIcon_0, 3, "Column #4", 100)
    AddGadgetColumn(#ListIcon_0, 4, "Column #5", 100)
    AddGadgetColumn(#ListIcon_0, 5, "Column #6", 100)
    AddGadgetColumn(#ListIcon_0, 6, "Column #7", 100)
    AddGadgetColumn(#ListIcon_0, 7, "Column #8", 100)
    AddGadgetColumn(#ListIcon_0, 8, "Column #9", 100)
    AddGadgetColumn(#ListIcon_0, 9, "Column #10", 100)
    ListIconGadget(#ListIcon_1, 645, 0, 650, 350, "Gadget_1", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
    AddGadgetColumn(#ListIcon_1, 1, "Column #2", 100)
    AddGadgetColumn(#ListIcon_1, 2, "Column #3", 100)
    AddGadgetColumn(#ListIcon_1, 3, "Column #4", 100)
    AddGadgetColumn(#ListIcon_1, 4, "Column #5", 100)
    AddGadgetColumn(#ListIcon_1, 5, "Column #6", 100)
    AddGadgetColumn(#ListIcon_1, 6, "Column #7", 100)
    AddGadgetColumn(#ListIcon_1, 7, "Column #8", 100)
    AddGadgetColumn(#ListIcon_1, 8, "Column #9", 100)
    AddGadgetColumn(#ListIcon_1, 9, "Column #10", 100)
    ButtonGadget(#Button_2, 30, 360, 120, 20, "Копировать")
    ButtonGadget(#Button_3, 650, 360, 130, 20, "Gadget_3")
HideGadget(#ListIcon_0,1)
For x.i = 0 To 1000
  a.s = Str(x)
  AddGadgetItem(#ListIcon_0,-1,a+"1"+Chr(10)+a+"2"+Chr(10)+a+"3"+Chr(10)+a+"4"+Chr(10)+a+"5"+Chr(10)+a+"6"+Chr(10)+a+"7"+Chr(10)+a+"8"+Chr(10))
Next x
HideGadget(#ListIcon_0,0)
EndIf
EndProcedure

OpenWindow_Window_0()
   
Procedure CopyItem()
  ListIcon1.l = GadgetID(#ListIcon_0)
  ListIcon2.l = GadgetID(#ListIcon_1)
  SendMessage_(ListIcon2, #WM_SETREDRAW, #False, 0)
  LastRow.i = CountGadgetItems(#ListIcon_0)-1
  For m.i = 0 To  LastRow
    AddGadgetItem(#ListIcon_1,m,"")
    Text.s = ""
    For col.i = 0 To 7
      SetGadgetItemText(#ListIcon_1, m, GetGadgetItemText(#ListIcon_0, m, col), col)
    Next col
  Next m
  SendMessage_(ListIcon2, #WM_SETREDRAW, #True, 0)
  RedrawWindow_(ListIcon2, 0, 0, #RDW_ALLCHILDREN|#RDW_UPDATENOW)
EndProcedure

Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
     EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #ListIcon_0
      ElseIf EventGadget = #ListIcon_1
      ElseIf EventGadget = #Button_2
        CopyItem()
      ElseIf EventGadget = #Button_3
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
ldir написал(а):

Может есть еще какой-то очень быстрый способ?

Есть.
Виртуальный режим работы ListIconGadget.
http://purebasic.info/phpBB2/viewtopic. … 0806#30806

ldir написал(а):

Это я знаю, но есть строка SendMessage_(ListIcon2,#LVM_SETITEMTEXT,m,@plvitem) она добавляет значение в таблицу, или я не прав?

Эта команда только изменяет текст в строке, а не добавляет строку. http://msdn.microsoft.com/en-us/library … p/bb761198(v=vs.85).aspx
Для добавления строки используется команда #LVM_INSERTITEM http://msdn.microsoft.com/en-us/library … p/bb761107(v=vs.85).aspx

0

750

  • Автор: radan
  • Участник
  • Зарегистрирован: 10.10.2011
  • Приглашений: 0
  • Сообщений: 15
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    5 часов 48 минут
  • Последний визит:
    25.12.2012 16:49:40
Пётр написал(а):

Можно еще попробовать менять заголовок окна при смене значка.
При этом перерисуется кнопка на панели задач и по идее, должен так же сменится значок.

Это не помогло. Наверное вопрос из разряда невыполнимых хотелок...

0

Тема закрыта
Страница:   1 … 23 24 25 26 27 … 33  

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Вопросы новичка (продолжение…)