Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26271
Рейтинг: 2142
#91: 2008-10-11 03:35:12 ЛС | профиль | цитата
Tad писал(а):
Так и я могу


А я и вот так могу покрасить




Add(MainForm,1871497,378,259)
{
Point(Handle)
Point(onPaint)
link(onPaint,9450264:doDraw,[])
}
Add(Img_Text,9450264,441,280)
{
X=10
Y=10
DrawSource=1
Font=[MS Sans Serif,14,1,0,1]
Text="Привет"
link(onDraw,15696349:doWork1,[])
}
Add(ChildPanel,15696349,504,280)
{
}
BEGIN_SDK
Add(EditMulti,14958136,21,21)
{
WorkCount=1
link(doWork1,2521416:doVisible,[(67,27)(67,76)])
}
Add(Panel,2521416,112,63)
{
Left=110
Top=55
Width=170
Height=140
Visible=1
BorderStyle=1
BevelOuter=2
Point(onPaint)
Point(Handle)
Point(doVisible)
Point(Width)
Point(Height)
link(onPaint,4436958:doDraw,[(156,76)(156,46)(92,46)(92,188)])
}
Add(Img_Text,9450264,175,182)
{
X=10
Y=10
DrawSource=1
Font=[MS Sans Serif,14,1,0,1]
Text="Привет"
link(Bitmap,2534213:Var3,[(181,163)])
}
Add(Img_Rectangle,4436958,112,182)
{
DrawSource=1
Color=32896
BgColor=32896
Style=1
Point(Point1)
Point(Point2)
link(onDraw,9450264:doDraw,[])
link(Bitmap,2534213:Var2,[])
link(Point1,5310016:Value,[])
link(Point2,6645325:Point,[(139,170)(174,170)])
}
Add(Memory,5310016,126,119)
{
}
Add(PointXY,6645325,168,119)
{
link(X,2521416:Width,[(174,110)(125,110)])
link(Y,2521416:Height,[(181,110)(132,110)])
}
Add(GetDataEx,2534213,105,154)
{
link(Data,2521416:Handle,[])
}
END_SDK


------------ Дoбавленo:

Короче, Tad, ищи бардак у себя
карма: 22

0
файлы: 1draw_dc_002.png [3.1KB] [596]
Ответов: 16884
Рейтинг: 1239
#92: 2008-10-11 03:41:14 ЛС | профиль | цитата
ОК !
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3514
Рейтинг: 184
#93: 2008-10-11 08:25:01 ЛС | профиль | цитата
У меня работает - рисует.
карма: 0
0
Ответов: 1397
Рейтинг: 50
#94: 2008-10-11 09:27:21 ЛС | профиль | цитата
171 - все рисует.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26271
Рейтинг: 2142
#95: 2008-10-11 10:03:50 ЛС | профиль | цитата
Валерий писал(а):
171 - все рисует

Нужна именно 172
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#96: 2008-10-11 10:10:47 ЛС | профиль | цитата
Валерий писал(а):
171 - все рисует.
у меня тоже 171-я рисует. Речь шла о 172-й
nesco писал(а):
ищи бардак у себя
Проблема решилась переустановкой HiAsm-а.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26271
Рейтинг: 2142
#97: 2008-10-11 10:11:29 ЛС | профиль | цитата
Tad писал(а):
Проблема решилась переустановкой HiAsm-а

Хи, Хи, Хи

карма: 22

0
Ответов: 16884
Рейтинг: 1239
#98: 2008-10-11 10:25:54 ЛС | профиль | цитата
Я сам смеялся.
А что-бы ты не смеялся, то на загадку


Add(MainForm,13911722,140,98)
{
Point(Handle)
Point(onPaint)
link(onPaint,9450264:doDraw,[])
}
Add(Img_Text,9450264,203,119)
{
X=10
Y=10
DrawSource=1
Font=[MS Sans Serif,14,1,0,1]
Text="Привет"
link(onDraw,15696349:doWork1,[])
}
Add(ChildPanel,15696349,266,119)
{
}
BEGIN_SDK
Add(EditMulti,14958136,21,21)
{
WorkCount=1
link(doWork1,2521416:doVisible,[(67,27)(67,76)])
}
Add(Panel,2521416,112,63)
{
Left=110
Top=55
Width=170
Height=140
Color=65280
Visible=1
BorderStyle=1
BevelOuter=2
Point(onPaint)
Point(Handle)
Point(doVisible)
link(onPaint,9450264:doDraw,[])
}
Add(Img_Text,9450264,175,70)
{
X=10
Y=10
DrawSource=1
Font=[MS Sans Serif,14,1,0,1]
Text="Второй"
Point(doFont)
}
END_SDK

Пример твой.
Почему пропадает цвет панели если к ней подключить Img_Text
------------ Дoбавленo:

Да. Еще забыл. Вернее все панели окрашиваются в цвет MainForm
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26271
Рейтинг: 2142
#99: 2008-10-11 10:47:38 ЛС | профиль | цитата
Tad писал(а):
Почему пропадает цвет панели если к ней подключить Img_Text

И не только Img_Text, а что угодно. Да черт его знает, разбираться надо
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#100: 2008-10-11 15:33:12 ЛС | профиль | цитата
Вот тебе и Хи, Хи, Хи


------------ Дoбавленo:

(с) Чем дальше в лес - тем толще партизаны.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26271
Рейтинг: 2142
#101: 2008-10-11 15:44:50 ЛС | профиль | цитата
Tad, ну а чем тебе не нравится отрисовка на Bitmap'e
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#102: 2008-10-11 21:29:44 ЛС | профиль | цитата
nesco, мне все нравится , но со всем как
nesco писал(а):
разбираться надо



Вот вроде Календарь

Add(MainForm,2953706,98,147)
{
Width=731
Height=596
Color=16777215
BorderStyle=1
Position=1
Point(onPaint)
Point(Handle)
link(onCreate,5036761:doWork1,[])
}
Add(MultiElementEx,13955934,266,189)
{
link(onEvent5,10461321:FirstDay,[(338,195)(338,62)])
link(onEvent6,16023199:doFor,[(394,202)(394,153)])
link(onEvent7,705410:doCompare,[])
link(Bitmap,5018142:getVar,[])
}
BEGIN_SDK
Add(EditMultiEx,14557913,21,21)
{
WorkCount=#5:doFor|
EventCount=#8:onEvent5|8:onEvent6|8:onEvent7|
VarCount=#8:Position|4:Var3|
DataCount=#6:Bitmap|
link(doFor,13189283:doFor,[(63,27)(63,209)])
link(Position,13189283:Position,[(27,209)(69,209)(69,247)(111,247)])
link(Var3,12573771:Var3,[(34,209)(275,209)(275,261)])
}
Add(StrList,15854652,210,49)
{
@Hint=#16:Названия месяцев|
Strings=#6:Январь|7:Февраль|4:Март|6:Апрель|3:Май|4:Июнь|4:Июль|6:Август|8:Сентябрь|7:Октябрь|6:Ноябрь|7:Декабрь|
}
Add(GlobalVar,4075127,315,182)
{
Name="MonthDX"
Data=Integer(150)
}
Add(GlobalVar,1683346,259,161)
{
Name="MonthDY"
Data=Integer(135)
}
Add(For,13189283,105,203)
{
IncludeEnd=1
link(onEvent,12816700:doEvent1,[])
link(End,15854652:Count,[(118,149)(223,149)])
}
Add(MathParse,10250770,308,210)
{
@Hint=#12:Вычисление Х|
MathStr="%1 mod 3 * %2 + 40"
link(X2,4075127:Var,[])
}
Add(ArrayRW,9989440,224,126)
{
link(Array,15854652:Array,[])
}
Add(Hub,12816700,175,203)
{
OutCount=7
link(onEvent1,9989440:doRead,[(215,209)(215,132)])
link(onEvent2,10250770:doCalc,[])
link(onEvent3,13695372:doCalc,[])
link(onEvent4,4462864:doDraw,[(219,230)(219,262)(37,262)(37,293)])
link(onEvent5,14557913:onEvent5,[(264,237)(264,27)])
link(onEvent6,14557913:onEvent6,[(264,244)(264,34)])
link(onEvent7,14557913:onEvent7,[(264,251)(264,41)])
}
Add(MathParse,13695372,252,217)
{
@Hint=#12:Вычисление Y|
MathStr="%1 div 3 * %2"
link(X2,1683346:Var,[])
}
Add(Img_Text,4462864,49,287)
{
DrawSource=1
Font=[MS Sans Serif,12,1,255,1]
Text="Привет"
Point(Y)
Point(X)
link(Bitmap,14557913:Bitmap,[(55,154)(27,154)])
link(Text,9989440:Item,[(62,182)(230,182)])
link(Y,12573771:Var2,[(69,272)(258,272)])
link(X,10250770:Result,[(76,281)(314,281)])
}
Add(GetDataEx,12573771,245,252)
{
link(Data,13695372:Result,[])
}
END_SDK
Add(MultiElementEx,16023199,406,147)
{
@Hint=#20:Печать названий дней|
link(X3,13955934:Var3,[(412,135)(346,135)(346,233)(279,233)])
link(Bitmap,12382035:getVar,[])
link(X1,10154595:getVar,[])
}
BEGIN_SDK
Add(EditMultiEx,960457,21,21)
{
WorkCount=#5:doFor|
VarCount=#8:Position|
DataCount=#2:X3|6:Bitmap|2:X1|
link(doFor,5613410:doFor,[(35,27)(35,125)])
link(Position,5613410:Position,[(27,186)(55,186)])
}
Add(StrList,11365246,175,49)
{
@Hint=#28:Список названий дней недели |
Strings=#2:Пн|2:Вт|2:Ср|2:Чт|2:Пт|2:Сб|2:Вс|
}
Add(GlobalVar,15848507,259,84)
{
Name="DayDY"
Data=Integer(15)
}
Add(GlobalVar,9429041,273,105)
{
Name="MonthH"
Data=Integer(20)
}
Add(For,5613410,49,119)
{
IncludeEnd=1
link(onEvent,4052954:doEvent1,[])
link(End,11365246:Count,[(62,107)(188,107)])
}
Add(MathParse,3987141,252,147)
{
DataCount=4
MathStr="%1 mod 7 * %2 + %3 + %4"
link(X2,15848507:Var,[])
link(X3,960457:X3,[(272,84)(27,84)])
link(X4,9429041:Var,[])
}
Add(Img_Text,12399398,161,231)
{
DrawSource=1
Font=[MS Sans Serif,8,0,16711680,1]
Point(Y)
Point(X)
Point(doFont)
link(Bitmap,960457:Bitmap,[(167,126)(34,126)])
link(Text,11402806:Item,[(174,191)(195,191)])
link(Y,3987141:Result,[(181,205)(258,205)])
link(X,13367576:Result,[(188,212)(349,212)])
}
Add(ArrayRW,11402806,189,119)
{
link(Array,11365246:Array,[])
}
Add(Hub,4052954,112,119)
{
OutCount=4
link(onEvent1,11402806:doRead,[])
link(onEvent2,13367576:doCalc,[])
link(onEvent3,3987141:doCalc,[(159,139)(159,153)])
link(onEvent4,12399398:doDraw,[(152,146)(152,237)])
}
Add(GlobalVar,11260849,350,91)
{
Name="MonthDX"
Data=Integer(150)
}
Add(MathParse,13367576,343,126)
{
@Hint=#12:Вычисление Х|
MathStr="%1 mod 3 * %2 + 5"
link(X1,960457:X1,[(349,74)(41,74)])
link(X2,11260849:Var,[])
}
END_SDK
Add(FormatStr,5479317,21,147)
{
Mask="Календарь на %1 год."
link(onFString,2953706:doCaption,[])
link(Str1,7170063:getVar,[])
}
Add(LineBreakEx,7170063,21,112)
{
Caption="W_Year"
Type=2
}
Add(MultiElementEx,705410,490,203)
{
@Hint=#19:Печать чисел месяца|
link(Bitmap,9444561:getVar,[])
link(Data,12178162:getVar,[])
}
BEGIN_SDK
Add(EditMultiEx,1390549,21,21)
{
WorkCount=#9:doCompare|
DataCount=#6:Bitmap|4:Data|
Width=559
Height=424
link(doCompare,14635507:doCompare,[(35,27)(35,258)])
}
Add(GlobalVar,16450382,483,70)
{
Name="DayDX"
Data=Integer(20)
}
Add(StrList,5790042,252,189)
{
@Hint=#16:Названия месяцев|
Strings=#2:31|2:28|2:31|2:30|2:31|2:30|2:31|2:31|2:30|2:31|2:30|2:31|2:29|
}
Add(For,1651522,259,308)
{
Start=1
link(onEvent,5212169:doEvent1,[])
link(End,8740689:Item,[])
}
Add(ArrayRW,8740689,266,259)
{
link(onRead,1651522:doFor,[(310,265)(310,289)(247,289)(247,314)])
link(Array,5790042:Array,[])
}
Add(If_else,7724961,119,238)
{
Op2=Integer(1)
link(onTrue,15422474:doData,[])
link(onFalse,11541037:doWork3,[(162,251)(162,279)(221,279)])
link(Op1,9554240:Var,[])
}
Add(DoData,15422474,182,238)
{
Data=Integer(12)
link(onEventData,11541037:doWork1,[(221,244)])
}
Add(HubEx,11541037,217,252)
{
link(onEvent,8740689:doRead,[])
}
Add(GlobalVar,9554240,119,175)
{
Name="LeapYear"
}
Add(Img_Text,10031858,385,371)
{
DrawSource=1
Point(Y)
Point(X)
Point(doFont)
link(onDraw,3143886:doOperation,[])
link(Bitmap,1390549:Bitmap,[(391,196)(27,196)])
link(Text,1651522:Position,[(398,355)(265,355)])
link(Y,8048449:Result,[(405,321)(370,321)])
link(X,10629540:Result,[(412,254)(482,254)])
}
Add(MathParse,10629540,476,140)
{
DataCount=5
MathStr="(%1 div 7 * %2) + (%3 mod 3 * %4) + %5 +10"
link(X1,10358289:Var2,[])
link(X2,16450382:Var,[])
link(X3,3015870:Var3,[(496,93)])
link(X4,4531473:Var,[])
link(X5,12447479:Var,[])
}
Add(MathParse,8048449,364,238)
{
DataCount=5
MathStr="( %1 mod 7 ) * %2 + (%3 div 3 )* %4 + %5"
link(X1,10358289:Var1,[(370,107)])
link(X2,10891721:Var,[])
link(X3,3015870:Var2,[])
link(X4,11110742:Var,[])
link(X5,4733996:Var,[])
}
Add(Hub,5212169,315,308)
{
InCount=2
OutCount=4
link(onEvent1,10629540:doCalc,[(351,314)(351,146)])
link(onEvent2,8048449:doCalc,[(358,321)(358,244)])
link(onEvent3,10031858:doDraw,[(366,328)(366,377)])
}
Add(GlobalVar,4531473,497,91)
{
Name="MonthDX"
Data=Integer(150)
}
Add(GlobalVar,12447479,504,112)
{
Name="DayDX"
Data=Integer(20)
}
Add(GlobalVar,11365643,476,49)
{
Name="FirstDay"
}
Add(GlobalVar,10344769,364,147)
{
Name="FirstDay"
}
Add(GlobalVar,10891721,371,161)
{
Name="DayDY"
Data=Integer(15)
}
Add(GlobalVar,11110742,385,182)
{
Name="MonthDY"
Data=Integer(135)
}
Add(GlobalVar,4733996,392,196)
{
Name="MonthH"
Data=Integer(20)
}
Add(Math,3143886,441,371)
{
Op2=1
ResultType=0
link(onResult,14789831:doValue,[(485,377)(485,363)(429,363)(429,349)])
link(Op1,14789831:Var,[])
}
Add(GlobalVar,14789831,441,343)
{
Name="FirstDay"
}
Add(GetDataEx,10358289,469,98)
{
link(Data,11365643:Var,[])
}
Add(GetDataEx,3015870,371,84)
{
link(Data,1390549:Data,[(384,54)(34,54)])
}
Add(If_else,14635507,49,252)
{
Op2=Integer(1)
link(onTrue,7724961:doCompare,[(89,258)(89,244)])
link(onFalse,11541037:doWork2,[])
link(Op1,3015870:Var1,[(55,93)])
}
END_SDK
Add(LineBreakEx,12178162,497,161)
{
Caption="W_Month"
Type=2
}
Add(Hub,10611969,196,161)
{
OutCount=5
link(onEvent1,2953706:doMinimize,[(236,167)(236,133)(79,133)(79,167)])
link(onEvent2,2953706:doRestore,[(243,174)(243,126)(89,126)(89,160)])
link(onEvent3,5479317:doString,[(253,181)(253,100)(15,100)(15,153)])
link(onEvent4,10461321:LeapYear,[(261,188)(261,69)])
link(onEvent5,13955934:doFor,[])
}
Add(LineBreakEx,11383682,147,203)
{
Caption="W_Year"
Type=3
link(_Data,5036761:Var1,[])
}
Add(ChildGroupBox,5036761,147,161)
{
link(onEvent1,10611969:doEvent1,[])
}
BEGIN_SDK
Add(EditMulti,14916205,21,21)
{
EventCount=1
WorkCount=1
VarCount=1
Width=230
Height=256
link(doWork1,13875363:doFor,[(67,27)(67,62)])
link(Var1,13984710:EditText,[(27,130)(181,130)])
}
Add(GroupBox,1812660,35,105)
{
Left=610
Top=20
Width=94
Height=120
Color=-16777197
Caption="Выбор года"
}
Add(ComboBox,13984710,161,56)
{
Left=10
Top=30
Width=75
Height=21
Text="2008"
DataType=1
Point(EditText)
}
Add(For,13875363,112,56)
{
Start=1950
End=2050
link(onEvent,13984710:doAdd,[])
}
Add(Button,11132882,119,161)
{
Left=10
Top=75
Width=75
Caption="Календарь"
link(onClick,14916205:onEvent1,[(201,167)(201,27)])
}
END_SDK
Add(LineBreakEx,15867331,413,7)
{
Caption="W_Year"
Type=2
}
Add(InlineCode,10461321,413,56)
{
@Hint=#12:Определение:|19:1. Высокосного года|35:2. Дня недели для 1-го числа месяца|
WorkPoints=#8:FirstDay|8:LeapYear|
EventPoints=#3:ev1|3:ev2|
DataPoints=#5:rYear|6:rMonth|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|19: rYear:THI_Event;|20: rMonth:THI_Event;|21: ev1,ev2:THI_event;|51: procedure FirstDay(var _Data:TData; Index:Word);|51: procedure LeapYear(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|31:procedure THiAsmClass.firstDay;|3:var|29: mYear,mday,mmonth,d:integer;|14: ss:TDateTime;|5:begin|36: mYear := ReadInteger(_Data,rYear);|40: mmonth := ReadInteger(_Data,rMonth); |34: EncodeDate(mYear,mmonth+1,1,ss);|22: d:=DayOfWeek(ss)-1; |26: if d < 0 then inc(d, 7);|21: _hi_OnEvent(ev1,d);|0:|4:end;|0:|31:procedure THiAsmClass.LeapYear;|20:var mYear,N:integer;|5:begin|36: mYear := ReadInteger(_Data,rYear);|29: N:= ord(IsLeapYear(myear));|21: _hi_OnEvent(ev2,N); |6:end; |4:end.|
link(rYear,15867331:getVar,[])
link(rMonth,2391732:getVar,[])
link(ev1,12506770:doValue,[(461,62)(461,55)])
link(ev2,16012046:doValue,[(460,69)(460,76)])
}
Add(LineBreakEx,7005018,406,189)
{
Caption="W_Day"
Type=3
link(_Data,16023199:Position,[])
}
Add(GlobalVar,12506770,476,49)
{
Name="FirstDay"
Data=Integer(1)
}
Add(LineBreakEx,9444561,490,140)
{
Caption="obHandle"
Type=2
}
Add(LineBreakEx,12382035,413,98)
{
Caption="obHandle"
Type=2
}
Add(LineBreakEx,2391732,420,28)
{
Caption="W_Month"
Type=2
}
Add(LineBreakEx,5018142,266,154)
{
Caption="obHandle"
Type=2
}
Add(GlobalVar,16012046,476,70)
{
Name="LeapYear"
}
Add(LineBreakEx,10154595,420,119)
{
Caption="W_Month"
Type=2
}
Add(LineBreakEx,273268,98,224)
{
Caption="obHandle"
Type=3
link(_Data,2953706:Handle,[])
}
Add(LineBreakEx,1618988,266,238)
{
Caption="W_Month"
Type=3
link(_Data,13955934:Position,[])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26271
Рейтинг: 2142
#103: 2008-10-11 22:28:05 ЛС | профиль | цитата
Tad, прикольно, только -- накой черт ты его сварачиваешь перед выводом
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#104: 2008-10-12 00:35:15 ЛС | профиль | цитата
Самый простой метод очистки окна Лень было пустышками забивать даты.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26271
Рейтинг: 2142
#105: 2008-10-12 00:47:00 ЛС | профиль | цитата
Tad писал(а):
Лень было пустышками забивать даты

Тю!
А че, вот так разве нельзя сделать

code_10261.txt
карма: 22

0
файлы: 1code_10261.txt [11.8KB] [457]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)