HiAsm
HiAsm
Вверх ↑
ФорумыДелаем компонентыAll_Img_Draw ← Ctrl123Ctrl →
Этот топик читают: Гость
Разработчик
Ответов: 26163
Рейтинг: 2127
#16: 2008-03-12 21:41:16 ЛС | профиль | цитата
Леонид писал(а):
а под FPC нет
Работает, еше как работает.
Вот скриншот программы All_Img_Draw, скомпиленной в FPC, узнать можно по характерныи рамкам


карма: 22

0
файлы: 1all_img_darw.jpg [28.7KB] [350]
Ответов: 8928
Рейтинг: 823
#17: 2008-03-13 15:57:28 ЛС | профиль | цитата
nesco, да я не менял ни Share, ни Screen, может поэтому , а на FPC и не работаю никогда.
------------ Дoбавленo:

nesco, вопрос в догонку: 

Add(ChildScrollBox,6760295,238,112)
{
 link(onEvent1,9396111:doText,[])
}
BEGIN_SDK
  Add(EditMulti,3978996,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=314
   Height=368
   link(doWork1,10754446:doEvent1,[(46,27)(46,48)])
  }
  Add(ScrollBox,10924359,56,105)
  {
   Left=65
   Top=15
   Width=320
   Height=240
  }
  Add(Image,5274948,231,63)
  {
   ViewStyle=4
   Point(doWidth)
   Point(doHeight)
   Point(ImageWidth)
   Point(ImageHeight)
   Point(onMouseUp)
   Point(MouseX)
   Point(Handle)
   Point(doRefresh)
   Point(onPaint)
   link(onMouseUp,4468701:doValue,[(293,76)(293,130)(240,130)(240,146)])
  }
  Add(Hub,10754446,56,42)
  {
   OutCount=4
   link(onEvent1,5274948:doLoad,[(121,48)(121,69)])
   link(onEvent2,950310:doData,[(111,55)(111,125)])
   link(onEvent3,13900580:doData,[(104,62)(104,160)])
  }
  Add(DoData,950310,154,119)
  {
   link(onEventData,5274948:doWidth,[(198,125)(198,83)])
   link(Data,5274948:ImageWidth,[(160,110)(244,110)])
  }
  Add(DoData,13900580,126,154)
  {
   link(onEventData,5274948:doHeight,[(208,160)(208,90)])
   link(Data,48388:Var1,[(132,114)])
  }
  Add(Memory,4468701,252,140)
  {
   Default=Integer(0)
   Point(Data)
   link(onData,14673293:doEvent1,[(296,146)(296,190)(116,190)(116,244)])
   link(Data,5274948:MouseX,[])
  }
  Add(Img_Line,10122244,245,245)
  {
   DrawSource=1
   Color=255
   Point(Point1)
   Point(Point2)
   link(Bitmap,5274948:Handle,[(251,124)(265,124)])
   link(Point1,10941271:Var2,[])
   link(Point2,11703348:Point,[(265,237)(272,237)])
  }
  Add(PointXY,11703348,266,196)
  {
   link(X,10941271:Var3,[(272,184)])
   link(Y,48388:Var3,[(279,114)])
  }
  Add(GetDataEx,48388,238,105)
  {
   link(Data,5274948:ImageHeight,[])
  }
  Add(GetDataEx,10941271,245,175)
  {
   link(Data,4468701:Value,[])
  }
  Add(Timer,10768491,175,259)
  {
   Interval=32
   Enable=1
   link(onTimer,8994884:doWork3,[(228,265)])
  }
  Add(HubEx,8994884,224,238)
  {
   link(onEvent,10122244:doDraw,[])
  }
  Add(Hub,14673293,126,238)
  {
   OutCount=4
   link(onEvent1,5274948:doRefresh,[(222,244)(222,97)])
   link(onEvent2,8994884:doWork2,[])
   link(onEvent3,3978996:onEvent1,[(217,258)(217,27)])
   link(onEvent4,10768491:doTimer,[])
  }
END_SDK
Add(ODialog,8946635,154,112)
{
 link(onExecute,11585814:doLoad,[])
}
Add(PictureStream,11585814,196,112)
{
 link(onLoad,6760295:doWork1,[])
}
Add(Button,8407419,112,112)
{
 Top=20
 Width=65
 Color=-16777211
 Ctl3D=0
 Caption="Открыть"
 link(onClick,8946635:doExecute,[])
}
Add(Edit,9396111,280,112)
{
 Left=5
 Top=75
}

В этой схеме картинка много больше (4000х3000), чем место для неё, на ней надо по клику мышки нарисовать вертикальную линию, но что бы она (линия) не пропадала при прокрутке или загораживании её чем либо, при последующих щелчках мышки линия должна нарисоваться на новом месте, исчезнув со старого.
Мне пришлось использовать Таймер, а хотелось бы onPaint, но эта точка не работает, компилятор говорит
Error: Undeclared identifier: '_event_onPaint'

Ничего не подскажете?
карма: 19

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#18: 2008-03-13 16:18:59 ЛС | профиль | цитата
Леонид писал(а):
_event_onPaint
Эта точка работает только у формы.
карма: 22

0
Ответов: 8928
Рейтинг: 823
#19: 2008-03-13 16:23:55 ЛС | профиль | цитата
nesco, а откуда же она появилась в свойствах картинки?
карма: 19

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#20: 2008-03-13 16:52:48 ЛС | профиль | цитата
Леонид, с введением новшества -- наследники WinControl

На вот тебе схему без таймера, нафиг он там не нужен. И откуда ты взял, что у нас есть только компонент Image 



Add(MainForm,2060841,245,182)
{
 Left=20
 Top=105
}
Add(ODialog,8946635,287,231)
{
 link(onExecute,11585814:doLoad,[])
}
Add(PictureStream,11585814,329,231)
{
 link(onLoad,6760295:doWork1,[])
}
Add(Button,8407419,245,231)
{
 Top=20
 Width=65
 Color=-16777211
 Ctl3D=0
 Caption="Открыть"
 link(onClick,8946635:doExecute,[])
}
Add(Edit,9396111,413,231)
{
 Left=5
 Top=75
}
Add(ChildScrollBox,6760295,371,231)
{
 link(onEvent1,9396111:doText,[])
}
BEGIN_SDK
  Add(EditMulti,3978996,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=405
   Height=424
   link(doWork1,10754446:doEvent1,[(46,27)(46,167)])
  }
  Add(LineBreakEx,14136722,182,91)
  {
   Caption="Refresh"
   Type=1
   link(OnEvent,4428139:doRefresh,[])
  }
  Add(ScrollBox,10924359,84,91)
  {
   Left=65
   Top=15
   Width=320
   Height=240
  }
  Add(Hub,10754446,84,161)
  {
   OutCount=4
   link(onEvent1,652811:doLoad,[(128,167)(128,97)])
   link(onEvent2,950310:doData,[])
   link(onEvent3,8473961:doValue,[])
   link(onEvent4,12804213:doDraw,[])
  }
  Add(DoData,950310,147,168)
  {
   link(onEventData,4428139:doWidth,[(229,174)(229,111)])
   link(Data,652811:Width,[])
  }
  Add(Memory,8473961,154,175)
  {
   Point(Data)
   link(onData,4428139:doHeight,[(238,181)(238,118)])
   link(Data,652811:Height,[])
  }
  Add(Memory,4468701,259,280)
  {
   Default=Integer(0)
   Point(Data)
   link(onData,3868176:doWork2,[])
   link(Data,4428139:MouseX,[])
  }
  Add(Img_Line,10122244,252,385)
  {
   DrawSource=1
   Color=255
   Point(Point1)
   Point(Point2)
   link(onDraw,3978996:onEvent1,[(385,391)(385,27)])
   link(Bitmap,5359063:getVar,[(258,367)(216,367)])
   link(Point1,10941271:Var2,[])
   link(Point2,11703348:Point,[(272,377)(279,377)])
  }
  Add(PointXY,11703348,273,336)
  {
   link(X,10941271:Var3,[(279,324)])
   link(Y,8473961:Value,[(286,319)(160,319)])
  }
  Add(Img_Bmp,12804213,252,182)
  {
   link(onDraw,3704837:doWork,[])
   link(Bitmap,4428139:Bitmap,[])
   link(SourceBitmap,652811:Bitmap,[(265,152)(146,152)])
  }
  Add(GetDataEx,10941271,252,315)
  {
   link(Data,4468701:Value,[])
  }
  Add(LineBreakEx,3704837,301,182)
  {
   Caption="Refresh"
  }
  Add(LineBreakEx,15267186,259,217)
  {
   Caption="Refresh"
  }
  Add(Application,760079,273,238)
  {
  }
  Add(PaintBox,4428139,252,91)
  {
   Point(onMouseUp)
   Point(doWidth)
   Point(doHeight)
   Point(MouseX)
   Point(MouseY)
   Point(Handle)
   Point(onMouseDown)
   link(onBeforeDraw,3868176:doWork1,[(368,97)])
   link(onMouseUp,14620550:doEvent1,[(297,104)(297,67)(194,67)(194,237)])
  }
  Add(Bitmap,652811,140,91)
  {
   Point(Width)
   Point(Height)
  }
  Add(HubEx,3868176,364,273)
  {
   Angle=1
   link(onEvent,10122244:doDraw,[(368,433)(237,433)(237,391)])
  }
  Add(LineBreakEx,5359063,210,336)
  {
   Caption="Handle"
   Type=2
  }
  Add(LineBreakEx,412494,273,140)
  {
   Caption="Handle"
   Type=3
   link(_Data,4428139:Handle,[])
  }
  Add(Hub,14620550,203,231)
  {
   OutCount=3
   link(onEvent1,15267186:doWork,[(247,237)(247,223)])
   link(onEvent2,760079:doProcessMessages,[])
   link(onEvent3,4468701:doValue,[(247,251)(247,286)])
  }
END_SDK
карма: 22

0
Ответов: 8928
Рейтинг: 823
#21: 2008-03-13 17:42:43 ЛС | профиль | цитата
nesco, а памяти кушает почти в 2,5 раза больше (при 4000х3000: 86 Мб против 38 Мб), а в программе будет до 4 таких блоков, отсюда вопрос - если часть памяти будет на диске, сильно-ли пострадает быстродействие?
карма: 19

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#22: 2008-03-13 18:00:04 ЛС | профиль | цитата
Леонид, тогда для хранения и загрузки картинок используй ImageLoader, он использует системные ресурсы.
карма: 22

0
Ответов: 8928
Рейтинг: 823
#23: 2008-03-13 18:27:13 ЛС | профиль | цитата
nesco, спасибо! (дошло только сейчас: быстродействие мне и не нужно, вычислений мало, по кликам мышки, ну не более 2 раза в секунду - а сколько раз можно осмысленно щёлкнуть мышкой )
карма: 19

0
Ответов: 5227
Рейтинг: 587
#24: 2008-03-14 20:27:55 ЛС | профиль | цитата
Я тут сегодня скачал 4 версию RealDraw и первым делом нарисовал медаль для nesco, но так как я бесправный то залил на http://slil.ru/25581762, пользователи и советники вручите медаль nesco (вытащите её на форум) художник из меня не ахти но я старался
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 8928
Рейтинг: 823
#25: 2008-03-14 22:08:47 ЛС | профиль | цитата
nesco, думаю, что все присоединятся
карма: 19

0
файлы: 1medal.png [57KB] [345]
Ответов: 16884
Рейтинг: 1239
#26: 2008-03-14 22:57:07 ЛС | профиль | цитата
Леонид, а че не вынул ее на свет божий ?

nesco, мои поздравления с наградой !
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#27: 2008-03-15 00:07:16 ЛС | профиль | цитата
Ну... вы меня тут в краску вогнали, я даже, не знаю что и ответить...
карма: 22

0
Ответов: 3655
Рейтинг: 69
#28: 2008-03-15 00:23:01 ЛС | профиль | цитата
andrestudio писал(а):
нарисовал медаль для nesco,

А dilma за создание HiAsma надо героя росии.
И galkov_y без него тут и половины бы небыло.
И вообще медали надо вывесить на главной странице сайта.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#29: 2008-03-15 10:12:53 ЛС | профиль | цитата
nesco писал(а):
Ну... вы меня тут в краску вогнали, я даже, не знаю что и ответить...
Сделай ее (медаль) своей аватарой.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 5227
Рейтинг: 587
#30: 2008-03-15 10:16:36 ЛС | профиль | цитата
nesco не сочти за подхалимаж, просто хотелось хоть как то тебя отблагодарить ведь ты это явно заслужил, и я надеюсь многие с этим солидарны. Ну а магистрам уж точно надо по ордену присвоить , но боюсь моих художественных возможностей может не хватить (опасаюсь маху дать)слишком серьёзное это дело...
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
ФорумыДелаем компонентыAll_Img_Draw ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика