可以移動的欄位文字

calvinhorng

純粹好玩

1. //Button Text
   
2. #include <ControlPanelInclude-003c.afl>
   
3. SetChartOptions(0, chartShowDates,chartGridMiddle,0,0,0);
   
4. SetChartBkColor(colorBlack);
   
5. SetChartBkGradientFill(colorBlue,colorBlack);
   
6. _SECTION_BEGIN("K Bar");
   
7. 
   
8. pxW=Status("pxchartwidth");
   
9. pxH=Status("pxchartheight");
   
10. 
    
11. a=SelectedValue(BarIndex());
    
12. 
    
13. 
    
14. 
    
15. YesTH=TimeFrameGetPrice("H",inDaily,-1);
    
16. YesTL=TimeFrameGetPrice("L",inDaily,-1);
    
17. TodayH=TimeFrameGetPrice("H",inDaily,0);
    
18. TodayL=TimeFrameGetPrice("L",inDaily,0);
    
19. TodayO=TimeFrameGetPrice("O",inDaily,0);
    
20. 
    
21. Ticker = ParamStr("Symbol","TSEIDX");
    
22. TIckerO = Foreign(Ticker, "O");
    
23. TIckerH = Foreign(Ticker, "H");
    
24. TIckerL = Foreign(Ticker, "L");
    
25. TIckerC = Foreign(Ticker, "C");
    
26. 
    
27. TYesTH =TimeFrameGetPrice("TickerH",inDaily,-1);
    
28. TYesTL =TimeFrameGetPrice("TickerL",inDaily,-1);
    
29. TTodayH=TimeFrameGetPrice("TickerH",inDaily,0);
    
30. TTodayL=TimeFrameGetPrice("TickerL",inDaily,0);
    
31. TTodayO=TimeFrameGetPrice("TickerO",inDaily,0);
    
32. 
    
33. 
    
34. if (StaticVarGet("TXON"))
    
35. {
    
36. SetBarFillColor(IIf(C>O,colorRed,IIf(C<O,colorGreen,colorBlue)));
    
37. Plot(C,"Price",IIf(C>O,colorGold,colorTeal),styleCandle|styleNoTitle,0,0,0,0);
    
38. }
    
39. 
    
40. if (StaticVarGet("TIckerON"))
    
41. {
    
42. //TIcker = "TIckerIDX";PlotForeign( TIcker, "加權指數", colorGold, GetPriceStyle() );
    
43. SetBarFillColor(IIf(TIckerC>TIckerO,colorPink,IIf(TIckerC<TIckerO,colorPaleGreen,colorLightGrey)));
    
44. PlotOHLC(TIckerO,TIckerH,TIckerL,TIckerC,Ticker,IIf(TIckerC>TIckerO,colorRed,colorGreen),styleCandle|styleNoTitle,Null,Null,0,0);
    
45. }
    
46. 
    
47. 
    
48. 
    
49. 
    
50. 
    
51. _SECTION_END(); // End of Cell TEXT
    
52. 
    
53. 
    
54. //RequestTimedRefresh(1);
    
55. _SECTION_BEGIN("C1");
    
56. if (StaticVarGetText("TXON_Text")=="")
    
57. {
    
58. StaticVarSetText("TXON_Text",Name()+" K關 ");
    
59. }
    
60. 
    
61. 
    
62. if (StaticVarGetText("TIckerON_Text")=="")
    
63. {
    
64. StaticVarSetText("TIckerON_Text",Ticker+" K關 ") ;
    
65. }
    
66. 
    
67. ButtonHeight1 = Param("C1 Button Height",20,5,200,1);
    
68. ButtonWidth1 = Param("C1 Button Width",120,5,200,1);
    
69. FontRatio1 = Param("C1 Font: ButtonHeight ratio",2,0.5,5,0.1);
    
70. // Column Position Setting
    
71. PanelXoffset =pxW-20;
    
72. PanelYoffset =5;
    
73. PositionStr="@ "+NumToStr(GetCursorXPosition(1),1.0,False)+","+NumToStr(GetCursorYPosition(1),1.0,False);
    
74. ON_color=StaticVarGet("ON_color");
    
75. if (StaticVarGet("XON"))
    
76. {
    
77. Say( "C 1 Position");
    
78. 
    
79. if (ON_color == colorPaleGreen)
    
80. {
    
81. ON_color= colorPink;
    
82. }
    
83. else
    
84. {
    
85. ON_color= colorPaleGreen;
    
86. }
    
87. 
    
88. XLButtonDown = GetCursorMouseButtons() == 9;
    
89. //PositionStr="@ "+NumToStr(GetCursorXPosition(1),1.0,False)+","+NumToStr(GetCursorYPosition(1),1.0,False);
    
90. if( XLButtonDown )
    
91. {
    
92. StaticVarSet("C1_X", pxW-GetCursorXPosition(1));
    
93. StaticVarSet("C1_Y", pxH-GetCursorYPosition(1));
    
94. StaticVarSet("XON", 0);
    
95. Say( "C 1 Position Set");
    
96. ON_color= colorWhite;
    
97. 
    
98. //PositionStr="@ "+NumToStr(GetCursorXPosition(1),1.0,False)+","+NumToStr(GetCursorYPosition(1),1.0,False);
    
99. }
    
100. StaticVarSet("ON_color", ON_color);
     
101. }
     
102. 
     
103. if (IsNull(StaticVarGet("C1_X")))
     
104. {
     
105. PanelXoffset =5;
     
106. StaticVarSet("ON_color", colorGrey50);
     
107. }
     
108. else
     
109. {
     
110. PanelXoffset =pxW-StaticVarGet("C1_X");
     
111. if (PanelXoffset <10)
     
112. {
     
113. PanelXoffset =10;
     
114. }
     
115. }
     
116. 
     
117. if (IsNull(StaticVarGet("C1_Y")))
     
118. {
     
119. PanelYoffset =5;// Param("Button Row Offset (px)",60,0,600,1);
     
120. StaticVarSet("ON_color", colorGrey50);
     
121. }
     
122. else
     
123. {
     
124. PanelYoffset =pxH-StaticVarGet("C1_Y");
     
125. if (PanelYoffset<5)
     
126. {
     
127. PanelYoffset =5;
     
128. }
     
129. }
     
130. 
     
131. 
     
132. ButtonHeight=ButtonHeight1;
     
133. ButtonWidth=ButtonWidth1;
     
134. FontRatio=FontRatio1;
     
135. 
     
136. If(C[a]>O[a])
     
137. {
     
138. colorTX_B=colorGold;
     
139. colorTX_T=colorDarkRed;
     
140. }
     
141. else
     
142. {
     
143. colorTX_B=colorTeal;
     
144. colorTX_T=colorDarkGreen;
     
145. }
     
146. 
     
147. If(TIckerC[a]>TIckerO[a])
     
148. {
     
149. colorTicker_B=colorPink;
     
150. colorTicker_T=colorDarkRed;
     
151. }
     
152. else
     
153. {
     
154. colorTicker_B=colorPaleGreen;
     
155. colorTicker_T=colorDarkGreen;
     
156. }
     
157. If(C[a]-TIckerC[a]>0)
     
158. {
     
159. colorD=colorDarkRed;
     
160. }
     
161. else
     
162. {
     
163. colorD=colorDarkGreen;
     
164. }
     
165. 
     
166. ButtonColumnBegin("1", "微軟正黑體", FontRatio, ButtonHeight) ;
     
167. ButtonHeader( "游標價格", colorDarkGreen, colorBrown,colorYellow);
     
168. C102=ButtonTrigger("@ "+NumToStr(PanelXoffset,1.0,False)+","+NumToStr(PanelYoffset,1.0,False),ON_color, colorWhite , colorBlue);
     
169. TXONSwitch=ButtonTrigger(StaticVarGetText("TXON_Text"), colorTX_B,colorSkyblue ,colorTX_T);
     
170. TIckerONSwitch = ButtonTrigger( StaticVarGetText("TIckerON_Text"), colorTicker_B, colorSkyblue, colorTicker_T);
     
171. ButtonText( "價差="+NumToStr(C[a]-TIckerC[a],1.0,False), colorLightYellow,colorD);
     
172. ButtonColumnEnd(ButtonWidth1);
     
173. 
     
174. ClickCoordinates = Nz(StaticVarGet("ClickCoordinates"));
     
175. switch( ClickCoordinates )
     
176. {
     
177. case 101:
     
178. Say( "Price at cursor");
     
179. 
     
180. //StaticVarSet("C2_X", pxW-(PanelXoffset+ButtonWidth1*2));
     
181. //StaticVarSet("C2_Y", pxH-PanelYoffset);
     
182. //
     
183. //StaticVarSet("C3_X", pxW-(PanelXoffset+ButtonWidth1*3));
     
184. //StaticVarSet("C3_Y", pxH-PanelYoffset);
     
185. 
     
186. break;
     
187. case 102:
     
188. if (C102)
     
189. {
     
190. if (StaticVarGet("XON"))
     
191. {
     
192. StaticVarSet("XON", 0);
     
193. Say( "C 1 Position Set");
     
194. }
     
195. else
     
196. {
     
197. StaticVarSet("XON", 1);
     
198. }
     
199. }
     
200. break;
     
201. case 103:
     
202. if (TXONSwitch && StaticVarGet("TXON"))
     
203. {
     
204. StaticVarSet("TXON", 0);
     
205. StaticVarSetText("TXON_Text",Name()+" K關 ") ;
     
206. }
     
207. else
     
208. {
     
209. StaticVarSet("TXON", 1);
     
210. StaticVarSetText("TXON_Text",Name()+"="+NumToStr(C[a],1.0,False));
     
211. }
     
212. Say(NumTostr(C,1.0,False));
     
213. break;
     
214. case 104:
     
215. if (TIckerONSwitch && StaticVarGet("TIckerON"))
     
216. {
     
217. StaticVarSet("TIckerON", 0);
     
218. StaticVarSetText("TIckerON_Text",Ticker+" K關 ") ;
     
219. }
     
220. else
     
221. {
     
222. StaticVarSet("TIckerON", 1);
     
223. StaticVarSetText("TIckerON_Text",Ticker+"="+NumToStr(TIckerC[a],1.1,false));
     
224. }
     
225. Say(NumTostr(TIckerC,1.0,False));
     
226. break;
     
227. 
     
228. }
     
229. 
     
230. _SECTION_END(); // End of C1
     
231. 
     
232. _SECTION_BEGIN("C2");
     
233. 
     
234. ButtonHeight2 = Param("C2 Button Height",20,5,200,1);
     
235. ButtonWidth2 = Param("C2 Button Width",120,5,200,1);
     
236. FontRatio2 = Param("C2 Font: ButtonHeight ratio",2,0.5,5,0.1);
     
237. // Column Position Setting
     
238. PanelXoffset =pxW-15;
     
239. PanelYoffset =5;
     
240. 
     
241. ON2_color=StaticVarGet("ON2_color");
     
242. if (StaticVarGet("XON2"))
     
243. {
     
244. Say( "C 2 Position");
     
245. 
     
246. if (ON2_color == colorPaleGreen)
     
247. {
     
248. ON2_color= colorPink;
     
249. }
     
250. else
     
251. {
     
252. ON2_color= colorPaleGreen;
     
253. }
     
254. 
     
255. XL2ButtonDown = GetCursorMouseButtons() == 9;
     
256. if( XL2ButtonDown )
     
257. {
     
258. StaticVarSet("C2_X", pxW-GetCursorXPosition(1));
     
259. StaticVarSet("C2_Y", pxH-GetCursorYPosition(1));
     
260. StaticVarSet("XON2", 0);
     
261. Say( "C 2 Position Set");
     
262. ON2_color= colorWhite;
     
263. //PositionStr="@ "+NumToStr(GetCursorXPosition(1),1.0,False)+","+NumToStr(GetCursorYPosition(1),1.0,False);
     
264. }
     
265. StaticVarSet("ON2_color", ON2_color);
     
266. }
     
267. 
     
268. if (IsNull(StaticVarGet("C2_X")))
     
269. {
     
270. PanelXoffset =ButtonWidth1;
     
271. StaticVarSet("ON2_color", colorGrey50);
     
272. }
     
273. else
     
274. {
     
275. PanelXoffset =pxW-StaticVarGet("C2_X")-ButtonWidth2;
     
276. if (PanelXoffset <10)
     
277. {
     
278. PanelXoffset =10;
     
279. }
     
280. }
     
281. 
     
282. if (IsNull(StaticVarGet("C2_Y")))
     
283. {
     
284. PanelYoffset =ButtonHeight1;// Param("Button Row Offset (px)",60,0,600,1);
     
285. StaticVarSet("ON2_color", colorGrey50);
     
286. }
     
287. else
     
288. {
     
289. PanelYoffset =pxH-StaticVarGet("C2_Y");
     
290. if (PanelYoffset<5)
     
291. {
     
292. PanelYoffset =5;
     
293. }
     
294. }
     
295. ButtonHeight=ButtonHeight2;
     
296. ButtonWidth=ButtonWidth2;
     
297. FontRatio=FontRatio2;
     
298. 
     
299. ButtonColumnBegin("2", "微軟正黑體", FontRatio, ButtonHeight) ;
     
300. ButtonHeader(Name()+" 高低價格", colorDarkGreen, colorBrown,colorYellow);
     
301. C202=ButtonTrigger("@ "+NumToStr(PanelXoffset+ButtonWidth2,1.0,False)+","+NumToStr(PanelYoffset,1.0,False),ON2_color, colorWhite , colorBlue);
     
302. ButtonText( "昨高 "+NumToStr(YesTH[BarCount-1],1.0,False), colorPink, colorDarkRed);
     
303. ButtonText( "昨低 "+NumToStr(YesTL[BarCount-1],1.0,False), colorPaleGreen, colorDarkGreen);
     
304. ButtonText( "今高 "+NumToStr(TodayH[BarCount-1],1.0,False), colorPink, colorDarkRed);
     
305. ButtonText( "今低 "+NumToStr(TodayL[BarCount-1],1.0,False), colorPaleGreen, colorDarkGreen);
     
306. 
     
307. ButtonColumnEnd(ButtonWidth2);
     
308. 
     
309. ClickCoordinates = Nz(StaticVarGet("ClickCoordinates"));
     
310. switch( ClickCoordinates )
     
311. {
     
312. case 201:
     
313. Say( "NAME");
     
314. break;
     
315. case 202:
     
316. if (C202)
     
317. {
     
318. if (StaticVarGet("XON2"))
     
319. {
     
320. StaticVarSet("XON2", 0);
     
321. Say( "C 2 Position Set");
     
322. }
     
323. else
     
324. {
     
325. StaticVarSet("XON2", 1);
     
326. }
     
327. }
     
328. break;
     
329. 
     
330. }
     
331. 
     
332. 
     
333. _SECTION_END(); // End of C2
     
334. 
     
335. 
     
336. 
     
337. _SECTION_BEGIN("C3");
     
338. ButtonHeight3 = Param("C3 Button Height",20,5,200,1);
     
339. ButtonWidth3 = Param("C3 Button Width",120,5,200,1);
     
340. FontRatio3 = Param("C3 Font: ButtonHeight ratio",2,0.5,5,0.1);
     
341. // Column Position Setting
     
342. PanelXoffset =pxW-10;
     
343. PanelYoffset =5;
     
344. 
     
345. ON3_color=StaticVarGet("ON3_color");
     
346. if (StaticVarGet("XON3"))
     
347. {
     
348. Say( "C 3 Position");
     
349. 
     
350. if (ON3_color == colorPaleGreen)
     
351. {
     
352. ON3_color= colorPink;
     
353. }
     
354. else
     
355. {
     
356. ON3_color= colorPaleGreen;
     
357. }
     
358. 
     
359. XL3ButtonDown = GetCursorMouseButtons() == 9;
     
360. if( XL3ButtonDown )
     
361. {
     
362. StaticVarSet("C3_X", pxW-GetCursorXPosition(1));
     
363. StaticVarSet("C3_Y", pxH-GetCursorYPosition(1));
     
364. StaticVarSet("XON3", 0);
     
365. Say( "C 3 Position Set");
     
366. ON3_color= colorWhite;
     
367. }
     
368. StaticVarSet("ON3_color", ON3_color);
     
369. }
     
370. 
     
371. if (IsNull(StaticVarGet("C3_X")))
     
372. {
     
373. PanelXoffset =ButtonWidth1+ButtonWidth2;
     
374. StaticVarSet("ON3_color", colorGrey50);
     
375. }
     
376. else
     
377. {
     
378. PanelXoffset =pxW-StaticVarGet("C3_X")-ButtonWidth3*2;
     
379. if (PanelXoffset <10)
     
380. {
     
381. PanelXoffset =10;
     
382. }
     
383. }
     
384. 
     
385. if (IsNull(StaticVarGet("C3_Y")))
     
386. {
     
387. PanelYoffset =ButtonHeight1+ButtonHeight2;// Param("Button Row Offset (px)",60,0,600,1);
     
388. StaticVarSet("ON3_color", colorGrey50);
     
389. }
     
390. else
     
391. {
     
392. PanelYoffset =pxH-StaticVarGet("C3_Y");
     
393. if (PanelYoffset<5)
     
394. {
     
395. PanelYoffset =5;
     
396. }
     
397. }
     
398. ButtonHeight=ButtonHeight3;
     
399. ButtonWidth=ButtonWidth3;
     
400. FontRatio=FontRatio3;
     
401. 
     
402. ButtonColumnBegin("3", "微軟正黑體", FontRatio, ButtonHeight) ;
     
403. ButtonHeader(Ticker+" 高低價格", colorDarkGreen, colorBrown,colorYellow);
     
404. C302=ButtonTrigger("@ "+NumToStr(PanelXoffset+ButtonWidth3*2,1.0,False)+","+NumToStr(PanelYoffset,1.0,False),ON3_color, colorWhite , colorBlue);
     
405. ButtonText( "昨高 "+NumToStr(TYesTH[BarCount-1],1.0,False), colorPink, colorDarkRed);
     
406. ButtonText( "昨低 "+NumToStr(TYesTL[BarCount-1],1.0,False), colorPaleGreen, colorDarkGreen);
     
407. ButtonText( "今高 "+NumToStr(TTodayH[BarCount-1],1.0,False), colorPink, colorDarkRed);
     
408. ButtonText( "今低 "+NumToStr(TTodayL[BarCount-1],1.0,False), colorPaleGreen, colorDarkGreen);
     
409. ButtonColumnEnd(ButtonWidth3);
     
410. 
     
411. ClickCoordinates = Nz(StaticVarGet("ClickCoordinates"));
     
412. switch(ClickCoordinates)
     
413. {
     
414. case 301:
     
415. Say( "Ticker");
     
416. 
     
417. break;
     
418. case 302:
     
419. if (C302)
     
420. {
     
421. if (StaticVarGet("XON3"))
     
422. {
     
423. StaticVarSet("XON3", 0);
     
424. Say( "C 3 Position Set");
     
425. }
     
426. else
     
427. {
     
428. StaticVarSet("XON3", 1);
     
429. }
     
430. }
     
431. break;
     
432. 
     
433. }
     
434. 
     
435. 
     
436. _SECTION_END(); // End of C3
     
437. 
     
438. //title=PositionStr;
     

複製代碼

ControlPanelInclude-003c.afl 要放置於  \Formulas\Include 下

1. // ControlPanelInclude-003c.afl
   
2. procedure kStaticVarSet(SName,SValue)
   
3. {
   
4. ChartID = GetChartID();
   
5. InIndicator = Status("Action") == 1;
   
6. if( InIndicator ) StaticVarSet(Sname+ChartID, Svalue);
   
7. }
   
8. 
   
9. function kStaticVarGet(SName)
   
10. {
    
11. ChartID = GetChartID();
    
12. Var = StaticVarGet(Sname+ChartID);
    
13. return Var;
    
14. }
    
15. 
    
16. procedure kStaticVarSetText(SName,SValue)
    
17. {
    
18. ChartID = GetChartID();
    
19. InIndicator = Status("Action") == 1;
    
20. if( InIndicator ) StaticVarSetText(Sname+ChartID, Svalue);
    
21. }
    
22. 
    
23. function kStaticVarGetText(SName)
    
24. {
    
25. ChartID = GetChartID();
    
26. return StaticVarGetText(Sname+ChartID);
    
27. }
    
28. 
    
29. function NewColumn()
    
30. {
    
31. VarSet("ColNumber", 0);
    
32. }
    
33. 
    
34. function GetMouseClick(ColNumber, RowNumber)
    
35. {
    
36. global PanelYoffset, PanelXoffset, ButtonHeight, ButtonWidth;
    
37. LButtonDown = GetCursorMouseButtons() == 9;
    
38. Click = 0;
    
39. if( LButtonDown )
    
40. {
    
41. TotalW=0;
    
42. for(Col=0;Col<ColNumber;col++)
    
43. {
    
44. TotalW= Nz(kStaticVarGet("W"+Col))+TotalW;
    
45. }
    
46. W=Nz(kStaticVarGet("W"+ColNumber));
    
47. ULButtonX = PanelXoffset + TotalW;
    
48. LRButtonX = ULButtonX + W;
    
49. //ULButtonX = PanelXoffset + (ColNumber-1) * ButtonWidth;
    
50. //LRButtonX = ULButtonX + ButtonWidth;
    
51. ULButtonY = (RowNumber -1) * ButtonHeight + PanelYoffset;
    
52. LRButtonY = ULButtonY + ButtonHeight;
    
53. MouseCoord = Nz(StaticVarGet("ClickCoordinates"));
    
54. if( MouseCoord == 0 AND LButtonDown )
    
55. {
    
56. MousePx = GetCursorXPosition( 1 );
    
57. MousePy = GetCursorYPosition( 1 );
    
58. if( MousePx > ULButtonX AND MousePx < LRButtonX AND MousePy > ULButtonY AND MousePy < LRButtonY )
    
59. {
    
60. StaticVarSet("ClickCoordinates",ColNumber*100+RowNumber);
    
61. Click = 1;
    
62. }
    
63. }
    
64. }
    
65. return Click;
    
66. }
    
67. 
    
68. function ButtonColumnBegin(ColName, FoneType, FontRatio, ButtonHeight)
    
69. {
    
70. //global ;
    
71. global ColNumber,ColName;
    
72. ColNumber = VarGet("ColNumber");
    
73. if( IsEmpty(ColNumber) )
    
74. {
    
75. VarSet("ColNumber",1);
    
76. StaticVarSet("ClickCoordinates",0);
    
77. }
    
78. else VarSet("ColNumber", ++ColNumber);
    
79. ColName = ColName+GetChartID();
    
80. kStaticVarSet("RowNumber"+ColName, 0);
    
81. VarSetText("ColName",ColName);
    
82. 
    
83. GfxSetOverlayMode( 0 );
    
84. //GfxSelectFont( "Tahoma", ButtonHeight/FontRatio, 800 );
    
85. GfxSelectFont( FoneType, ButtonHeight/FontRatio,700 );
    
86. GfxSelectPen( colorBlack );
    
87. GfxSetBkMode( 1 );
    
88. }
    
89. 
    
90. function ButtonText( TextButton, backColor, TextColor)
    
91. {
    
92. global ColNumber, RowNumber, Colname;
    
93. ColExpanded = Nz(kStaticVarGet(ColName+"ColExpanded"));
    
94. if( ColExpanded )
    
95. {
    
96. ColName = VarGetText("ColName");
    
97. RowNumber = Nz(kStaticVarGet("RowNumber"+ColName))+1;
    
98. kStaticVarSet("RowNumber"+ColName, RowNumber);
    
99. kStaticVarSetText("TextButton"+ColName+RowNumber, TextButton);
    
100. kStaticVarSet("TextColor"+ColName+RowNumber, TextColor);
     
101. kStaticVarSet("BackColor"+ColName+RowNumber, backColor);
     
102. }
     
103. }
     
104. 
     
105. function ButtonHeader( Label, backColor1, BackColor2, TextColor)
     
106. {
     
107. global ColNumber, RowNumber, ColExpanded, Colname;
     
108. RowNumber = Nz(kStaticVarGet("RowNumber"+ColName))+1;
     
109. kStaticVarSet("RowNumber"+ColName, RowNumber);
     
110. Trigger = GetMouseClick( ColNumber, RowNumber );
     
111. if( Trigger )
     
112. {
     
113. ColExpanded = Nz(kStaticVarGet(ColName+"ColExpanded"));
     
114. if(ColExpanded)
     
115. {
     
116. BackColor = backColor2;
     
117. kStaticVarSet(ColName+"ColExpanded", False);
     
118. }
     
119. else
     
120. {
     
121. BackColor = backColor1;
     
122. kStaticVarSet(ColName+"ColExpanded", True);
     
123. }
     
124. }
     
125. else
     
126. {
     
127. if(Nz(kStaticVarGet(ColName+"ColExpanded")))
     
128. {
     
129. BackColor = backColor2;
     
130. }
     
131. else
     
132. {
     
133. BackColor = backColor1;
     
134. }
     
135. }
     
136. ColExpanded = Nz(kStaticVarGet(ColName+"ColExpanded"));
     
137. kStaticVarSetText("TextButton"+ColName+RowNumber, Label);
     
138. kStaticVarSet("TextColor"+ColName+RowNumber, TextColor);
     
139. kStaticVarSet("BackColor"+ColName+RowNumber, backColor);
     
140. }
     
141. 
     
142. function ButtonTrigger(Label, backColor1, BackColor2, TextColor)
     
143. {
     
144. global ColNumber, RowNumber, ColName;
     
145. ColExpanded = Nz(kStaticVarGet(ColName+"ColExpanded"));
     
146. if( ColExpanded )
     
147. {
     
148. ColName = VarGetText("ColName");
     
149. RowNumber = Nz(kStaticVarGet("RowNumber"+ColName))+1;
     
150. kStaticVarSet("RowNumber"+ColName, RowNumber);
     
151. Trigger = GetMouseClick( ColNumber, RowNumber );
     
152. if( Trigger )
     
153. {
     
154. BackColor = backColor2;
     
155. }
     
156. else
     
157. {
     
158. BackColor = backColor1;
     
159. }
     
160. kStaticVarSetText("TextButton"+ColName+RowNumber, Label);
     
161. kStaticVarSet("TextColor"+ColName+RowNumber, TextColor);
     
162. kStaticVarSet("BackColor"+ColName+RowNumber, backColor);
     
163. }
     
164. else Trigger = 0;
     
165. return Trigger;
     
166. }
     
167. 
     
168. // Final drawing of the column
     
169. function ButtonColumnEnd(W)
     
170. {
     
171. global ButtonHeight, PanelYoffset, PanelXoffset, ColNumber, RowNumber, ColName;//, ButtonWidth
     
172. ChartIDStr = NumToStr(GetChartID(),1.0,False);
     
173. 
     
174. TotalW=0;
     
175. for(Col=0;Col<ColNumber;col++)
     
176. {
     
177. TotalW= Nz(kStaticVarGet("W"+Col))+TotalW;
     
178. }
     
179. 
     
180. ULButtonX = PanelXoffset + TotalW;
     
181. kStaticVarSet("W"+ColNumber, W);
     
182. LRButtonX = ULButtonX + W;
     
183. 
     
184. //ULButtonX = PanelXoffset + (ColNumber-1) * ButtonWidth;
     
185. //LRButtonX = ULButtonX + ButtonWidth;
     
186. for( Row = 1; Row <= RowNumber; Row++ )
     
187. {
     
188. ULButtonY = (Row-1) * ButtonHeight + PanelYoffset;
     
189. LRButtonY = ULButtonY + ButtonHeight;
     
190. Label = kStaticVarGetText("TextButton"+ColName+Row);
     
191. TextColor = Nz(kStaticVarGet("TextColor"+ColName+Row));
     
192. BackColor = Nz(kStaticVarGet("BackColor"+ColName+Row));
     
193. //GfxSelectSolidBrush( BackColor);
     
194. //GfxRectangle(ULButtonX, ULButtonY, LRButtonX, LRButtonY );
     
195. //GfxSetBkColor( BackColor);
     
196. GfxGradientRect(ULButtonX, ULButtonY, LRButtonX, LRButtonY,colorBlend(BackColor, colorWhite,0.1), colorBlend(BackColor, colorBlack,0.3));
     
197. GfxSetTextColor( TextColor );
     
198. //GfxSelectFont( "微軟正黑體", abs(ULButtonY-LRButtonY)/FontRatio,700 );
     
199. GfxDrawText( Label, ULButtonX, ULButtonY, LRButtonX, LRButtonY, 32 | 1 | 4);
     
200. }
     
201. 
     
202. }
     
203. 
     
204. 
     

複製代碼

欄位移動 要先按 @x,y 列
之後按要移動的位置

hitrader

謝謝分享

請問要怎麼弄才不會亂碼?

kilroy

大大寫 AFL 的功力真的是很讚~

有機會再多跟您請教一下

joshsmi

CalvinHornG

there is one error in your code

Replace

1. Ticker = ParamStr("Symbol","TSEIDX");
   
2. TIckerO = Foreign(Ticker, "O");
   
3. TIckerH = Foreign(Ticker, "H");
   
4. TIckerL = Foreign(Ticker, "L");
   
5. TIckerC = Foreign(Ticker, "C");
   
6. 
   
7. TYesTH =TimeFrameGetPrice("TickerH",inDaily,-1);
   
8. TYesTL =TimeFrameGetPrice("TickerL",inDaily,-1);
   
9. TTodayH=TimeFrameGetPrice("TickerH",inDaily,0);
   
10. TTodayL=TimeFrameGetPrice("TickerL",inDaily,0);
    
11. TTodayO=TimeFrameGetPrice("TickerO",inDaily,0);

複製代碼

with

1. Ticker = ParamStr( "Symbol", "TSEIDX" );
   
2. SetForeign(Ticker);
   
3. TIckerO = O;
   
4. TIckerH = H;
   
5. TIckerL = L;
   
6. TIckerC = C;
   
7. 
   
8. TYesTH = TimeFrameGetPrice( "H", inDaily, -1 );
   
9. TYesTL = TimeFrameGetPrice( "L", inDaily, -1 );
   
10. TTodayH = TimeFrameGetPrice( "H", inDaily, 0 );
    
11. TTodayL = TimeFrameGetPrice( "L", inDaily, 0 );
    
12. TTodayO = TimeFrameGetPrice( "O", inDaily, 0 );
    
13. RestorePriceArrays();

複製代碼

calvinhorng

joshsmi 發表於 13-3-23 04:59
CalvinHornG

there is one error in your code

THANK YOU VERY MUCH
YES YOU ARE RIGHT
I JUST FOCUS ON THE TEXT

shan0948

非常不錯的程式,很實用,可以用來學習及看盤,版大的程式功力很強,以後要多向大版請益!!

f29825604

感謝分享
盡力學習中

kingwang

感謝版主的分享，謝謝