HiAsm
HiAsm
Вверх ↑
ФорумыКомпонентыReBar ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 5227
Рейтинг: 587
#1: 2012-04-10 07:54:11 ЛС | профиль | цитата
ReBar с сохранением позиций контролов, под fpc пока не пашет. Кульных вам интерфейсов товарищи
rebarimg.jpg
------------ Дoбавленo в 07.54:
да не забываем пиво наливать
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
16
файлы: 2rebarimg.jpg [89.5KB] [766], rebar_v1.2.zip [6.8KB] [478]
Голосовали:tig-rrr, Леонид, ser_davkin, 1nd1g0, flud, miver, Quest, sаmakacd, sla8a, Assasin, iarspider, Konst, Andrey, MAV, Cosinus, filyaxxxcom
Ответов: 8926
Рейтинг: 823
#2: 2012-04-10 09:14:17 ЛС | профиль | цитата
andrestudio, хотя я и не любитель рюшечек, но должен признать, что получилось красиво
карма: 19

0
Ответов: 3889
Рейтинг: 362
#3: 2012-04-10 09:39:58 ЛС | профиль | цитата
andrestudio, Картинку бы, чтобы ясно было о чём речь.
карма: 1

0
Ответов: 2270
Рейтинг: 677
#4: 2012-04-10 09:53:07 ЛС | профиль | цитата
andrestudio, компонент хорош, но со слоями и выравниванием проблема
Слои: code_27597.txt
Выравнивание: code_27598.txt
карма: 11

0
файлы: 2code_27597.txt [2KB] [397], code_27598.txt [1.9KB] [416]
Ответов: 5227
Рейтинг: 587
#5: 2012-04-10 10:06:38 ЛС | профиль | цитата
sla8a, PHandle
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 2270
Рейтинг: 677
#6: 2012-04-10 20:40:43 ЛС | профиль | цитата
andrestudio, не смогу ответить. Может хоть чтоб высоту выдало при onCreat и если еще и OnResize был и тоже высоту выдавал, то слои бы работали.
Ну вот к примеру заменить вот на это: 
_hi_OnEvent(_event_onCreate, hr);
и может работать: слои: rebar_demo_01.sha
выравнивание: rebar_demo_02.sha
карма: 11

0
файлы: 2rebar_demo_01.sha [2.9KB] [444], rebar_demo_02.sha [2.7KB] [443]
Ответов: 5227
Рейтинг: 587
#7: 2012-04-11 06:38:22 ЛС | профиль | цитата
sla8a, обрати внимание
doCreateReBar=Метод создаст панель ReBar с указателями на контролы верхних точек(PHandle) а не Handle как в старом, первая точка всегда должна содержать указатель на окно в котором проецируется ReBar
посмотри пример к новой версии т.к от старой практически ничего не осталось
------------ Дoбавленo в 06.38:
sla8a, теперь понял проблему, постараюсь поправить
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 704
Рейтинг: 44
#8: 2012-04-11 08:20:13 ЛС | профиль | цитата
Компонент не удалось визуально просмотреть выдает ошибку, компилятор delphi. вот скрин ошибки http://forum.hiasm.com/forum_serv.php?q=56&id=3004



карма: 0

0
Ответов: 5227
Рейтинг: 587
#9: 2012-04-11 11:20:10 ЛС | профиль | цитата
sla8a, добавил событие onResize c выводом высоты, поправил по мелочам rebar_v1.2.zip
------------ Дoбавленo в 11.17:
Kazbek17,а почему у других тогда работает
------------ Дoбавленo в 11.20:
ещё демка на тему и так тоже можно 8-) 
Add(MainForm,2953706,126,98)
{
 Width=376
 Height=407
 Color=-16777216
 SavePosName="main.ini"
 Point(PHandle)
 link(onCreate,12715574:doEvent1,[(173,118)(173,167)])
}
Add(ReBar,7014866,427,161)
{
 Count=7
 ListBandText=#4:demo|4:demo|4:demo|4:demo|4:demo|0:|
 FileName="seting1.ini"
 link(Handle1,14047699:Var3,[(433,153)])
 link(Handle2,6873052:Var1,[])
 link(Handle3,6873052:Var2,[])
 link(Handle4,6873052:Var3,[])
 link(Handle5,6873052:Var4,[])
 link(Handle6,6873052:Var5,[])
 link(Handle7,6873052:Var6,[])
}
Add(ReBar,3267969,427,266)
{
 Align=1
 Count=6
 ListBandText=#0:|0:|
 FileName="seting2.ini"
 link(Handle1,14047699:Var2,[(433,259)(230,259)])
 link(Handle2,4432410:Var1,[])
 link(Handle3,4432410:Var2,[])
 link(Handle4,4432410:Var3,[])
 link(Handle5,4432410:Var4,[])
 link(Handle6,4432410:Var5,[])
}
Add(ChildPanel,4432410,434,210)
{
}
BEGIN_SDK
  Add(EditMulti,10054122,21,21)
  {
   VarCount=5
   Width=475
   link(Var1,2270525:PHandle,[(27,186)(118,186)])
   link(Var2,5552953:PHandle,[(34,186)(181,186)])
   link(Var3,13460937:PHandle,[(41,186)(223,186)])
   link(Var4,293326:PHandle,[(48,186)(286,186)])
   link(Var5,16507127:PHandle,[(55,186)(335,186)])
  }
  Add(Panel,6022796,35,105)
  {
   Left=25
   Top=275
   Width=41
   Height=35
   Visible=1
  }
  Add(ProgressBar,2270525,105,119)
  {
   Left=20
   Top=20
   Width=175
   Point(PHandle)
  }
  Add(DriveBox,5552953,161,119)
  {
   Left=20
   Top=55
   Width=175
   Height=21
   Point(PHandle)
  }
  Add(DatePicker,13460937,217,119)
  {
   Left=20
   Top=85
   Width=175
   Height=21
   Point(PHandle)
  }
  Add(Edit,293326,273,119)
  {
   Left=20
   Top=120
   Width=175
   Point(PHandle)
  }
  Add(TrackBar,16507127,322,119)
  {
   Left=20
   Top=155
   Width=175
   Max=100
   TickCount=5
   Point(PHandle)
   link(onPosition,2270525:doPosition,[(367,125)(367,92)(93,92)(93,125)])
  }
END_SDK
Add(GetDataEx,14047699,224,148)
{
 Angle=3
 link(Data,2953706:PHandle,[(132,153)])
}
Add(Hub,12715574,189,161)
{
 link(onEvent1,7014866:doCreateReBar,[])
 link(onEvent2,3267969:doCreateReBar,[(217,174)(217,272)])
}
Add(Menu,9681684,252,196)
{
 Menu=#4:File|1:(|10:Save Rebar|4:Open|5:Print|1:-|5:Close|1:)|6:Seting|1:(|9:View disk|10:View color|13:View trackBar|1:)|4:Help|1:(|4:Abot|1:)|
 Point(onSelectNum)
 link(onSelectNum,5803222:doCompare,[])
}
Add(Memo,1856798,203,98)
{
 Width=368
 Height=373
 Align=5
 Color=-16777201
}
Add(ChildPanel,6873052,434,105)
{
}
BEGIN_SDK
  Add(EditMulti,13002874,21,21)
  {
   EventCount=1
   VarCount=6
   Width=475
   link(Var1,6985986:PHandle,[(27,186)(118,186)])
   link(Var2,6289271:PHandle,[(34,186)(181,186)])
   link(Var3,15630835:PHandle,[(41,186)(223,186)])
   link(Var4,819558:PHandle,[(48,186)(286,186)])
   link(Var5,1770938:PHandle,[(55,186)(335,186)])
   link(Var6,12451344:PHandle,[(62,186)(391,186)])
  }
  Add(Panel,16193240,35,105)
  {
   Left=25
   Top=275
   Width=41
   Height=35
   Visible=1
  }
  Add(ProgressBar,6985986,105,119)
  {
   Left=20
   Top=20
   Width=175
   Point(PHandle)
  }
  Add(DriveBox,6289271,161,119)
  {
   Left=20
   Top=55
   Width=175
   Height=21
   Point(PHandle)
  }
  Add(DatePicker,15630835,217,119)
  {
   Left=20
   Top=85
   Width=175
   Height=21
   Point(PHandle)
  }
  Add(Edit,819558,273,119)
  {
   Left=20
   Top=120
   Width=175
   Point(PHandle)
  }
  Add(TrackBar,1770938,322,119)
  {
   Left=20
   Top=155
   Width=175
   Max=100
   TickCount=5
   Point(PHandle)
   link(onPosition,6985986:doPosition,[(367,125)(367,92)(93,92)(93,125)])
  }
  Add(Button,12451344,385,119)
  {
   Left=385
   Top=125
   Data=Integer(1)
   Point(PHandle)
  }
END_SDK
Add(Hub,298689,357,203)
{
 link(onEvent1,7014866:doSaveBand,[(399,209)(399,174)])
 link(onEvent2,3267969:doSaveBand,[(399,216)(399,279)])
}
Add(If_else,5803222,308,203)
{
 Op2=Integer(1)
 link(onTrue,298689:doEvent1,[])
}
Add(StyleXP,11933910,252,98)
{
}
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
2
Голосовали:sla8a, tom-it
Разработчик
Ответов: 26158
Рейтинг: 2127
#10: 2012-04-11 11:30:47 ЛС | профиль | цитата
andrestudio, ты на последнем обновлении проверял или на каком-то своем
карма: 22

0
Ответов: 5227
Рейтинг: 587
#11: 2012-04-11 11:52:08 ЛС | профиль | цитата
nesco, а что может не работать , вот у тебя что тоже не работает проверял на 4.04 build 185
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 2270
Рейтинг: 677
#12: 2012-04-11 12:19:14 ЛС | профиль | цитата
andrestudio, обновился, работает хорошо, может стоит убрать ссылку на версию 1.1?
nesco, может проблема у пользователя Kazbek17? Смотря на отзывы (оценки) к компоненту, думается что ошибок не было.
Kazbek17, версия HiAsm, какой компилятор?
карма: 11

0
Ответов: 1058
Рейтинг: 76
#13: 2012-04-11 13:16:14 ЛС | профиль | цитата
Kazbek17 писал(а):
выдает ошибку

И у меня так же, правда другая ошибка.
У Kazbek17
Runtime error 216 at 000025E5

а у меня
Runtime error 204 at 0000528E

Отладка

Command line: dcc32.exe "C:\Program Files\HiAsm\Elements\delphi\code\demo_resize.dpr" "-U C:\Documents and Settings\Администратор\Рабочий стол\rebar_v1.2\Rebar_v1.2\." -Q
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation

C:\Program Files\HiAsm\Elements\delphi\code\WinLayout.pas(159) Warning: Variable 'd' might not have been initialized

C:\Program Files\HiAsm\Elements\delphi\code\WinLayout.pas(176) Warning: Variable 'd' might not have been initialized

C:\Program Files\HiAsm\Elements\delphi\code\WinLayout.pas(40) Hint: Private symbol '_onObjDestroy' declared but never used

C:\Program Files\HiAsm\Elements\delphi\code\hiMenu.pas(13) Hint: Private symbol 'SetMenuString' declared but never used

C:\Program Files\HiAsm\Elements\delphi\code\hiVBoxLayout.pas(10) Hint: Overriding virtual method 'THIVBoxLayout.Sort' has a lower visibility than base class 'TWinLayout'
10804 lines, 0.19 seconds, 87480 bytes code, 3225 bytes data.
Сборка завершена.
Проделать манипуляции описанные 1nd1g0 не удалось, ошибка вылетает после закрытия приложения.

WinXP_SP3 > HiAsm 4.04 build 185 >и на штатном компиляторе и с модифицированным KOL- ситуация одинаковая.
карма: 0

0
Ответов: 5227
Рейтинг: 587
#14: 2012-04-11 13:19:52 ЛС | профиль | цитата
[b]tom-it[/b], в деструкторе закоментируй 
#pas
destructor THIReBar.Destroy;
begin
   FlistCaption.Free;
   FreeData(@FData);
   //CBR.Free;    // вот эту строку и отпишись
   inherited Destroy;
end;
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1058
Рейтинг: 76
#15: 2012-04-11 13:33:24 ЛС | профиль | цитата
andrestudio писал(а):
закоментируй

Теперь работает, ошибка больше не появляется
карма: 0

0
ФорумыКомпонентыReBar ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика