Q&A
- 캔버스에서 화살표 그리기.
이미지 캔버스에서 화살표를 그릴려고 하는데요..
LineTO 메서드를 통해 직선을 그려지지만..
화살표는 그려지지가 않네요..
캔버스에서 제공하는 여러 메서드를 찾아봐도..방법이 안나와서요.
혹시. 이미지 캔버스에서 화살표를 그리는 방법..아시는 분 있으세요??
직선을 그리고. 직선을 그린 상태에서 꼭지점을 다시 직선을 통해 그려서.화살표로 표현을 할려고도..
했지만. 여러 경우(선이 그려지는 방향)에 따라 모양이 이상하게 변하네요.
조언을 부탁드립니다.
감사합니다.
LineTO 메서드를 통해 직선을 그려지지만..
화살표는 그려지지가 않네요..
캔버스에서 제공하는 여러 메서드를 찾아봐도..방법이 안나와서요.
혹시. 이미지 캔버스에서 화살표를 그리는 방법..아시는 분 있으세요??
직선을 그리고. 직선을 그린 상태에서 꼭지점을 다시 직선을 통해 그려서.화살표로 표현을 할려고도..
했지만. 여러 경우(선이 그려지는 방향)에 따라 모양이 이상하게 변하네요.
조언을 부탁드립니다.
감사합니다.
3
COMMENTS
-
-
<!--CodeS-->
//------------------------------------------------------------------------------//
// 직선의 기울기가 Atan 함수의 특성으로 x=0 경계로
// 기울기 값이 대칭 되므로
// 180도 변환값을 넣어 주어야 함 x>0
// 1번 기본 변환 ,기본 변환 +180 이동 변환 x<0;
// 좌우로 이동한 값을 구하여 3점으로 삼각형을 그림
// Use 절에 Math 추가.. 하세요
//------------------------------------------------------------------------------//
procedure TForm1.PanitLine;
var
ArrowPoint:TPoint;
ArrowIntercept:Double;
i,j,k:Integer;
Par:integer;
Slope:Double;
begin
Slope:=0.0;
with Canvas do
begin
//라인 그리기
MoveTo(StartPt.X,StartPt.Y);
Lineto(endPt.X,EndPt.Y);
Par:=(Pen.Width*2+1)*2;
//기울기 구하기
if (endPt.X- StartPt.X)<>0 then
Slope:=arcTan((StartPt.Y-EndPt.Y)/(StartPt.X-endPt.X))
else Slope:=0;
//화살표 그리기
if (LineArrowType=ltStartArrow)or(LineArrowType=ltBothArrow)then
begin
// X <0
if ((StartPt.X-endPt.X)<0) then
begin
MoveTo(StartPt.X,StartPt.Y);
Lineto( StartPt.X +trunc(Par*cos(Slope)-( Par/2.0*sin(Slope))),
StartPt.Y +trunc(Par*sin(Slope)+( Par/2.0*cos(Slope))));
Lineto( StartPt.X +trunc(Par*cos(Slope)+ (Par/2.0*sin(Slope))),
StartPt.Y -trunc(Par/2.0*cos(Slope)-( Par*sin(Slope))));
Lineto(StartPt.X,StartPt.Y);
end
//X>0
else if((StartPt.X-endPt.X)>0) then
begin
MoveTo(StartPt.X,StartPt.Y);
Lineto(StartPt.X +trunc(-Par*cos(Slope)-( Par/2.0*sin(Slope))),
StartPt.Y +trunc(-Par*sin(Slope)+( Par/2.0*cos(Slope))));
Lineto(StartPt.X +trunc(-Par*cos(Slope)+ (Par/2.0*sin(Slope))),
StartPt.Y -trunc(Par/2.0*cos(Slope)+( Par*sin(Slope))));
Lineto(StartPt.X,StartPt.Y);
end;
end ;
if (LineArrowType=ltEndArrow) or (LineArrowType=ltBothArrow) then
begin
//
if ((StartPt.X-endPt.X)<0) then
begin
MoveTo(endPt.X,endPt.Y);
Lineto(endPt.X +trunc(-Par*cos(Slope)-( Par/2.0*sin(Slope))),
endPt.Y +trunc(-Par*sin(Slope)+( Par/2.0*cos(Slope))));
Lineto(endPt.X +trunc(-Par*cos(Slope)+ (Par/2.0*sin(Slope))),
endPt.Y -trunc(Par/2.0*cos(Slope)+( Par*sin(Slope))));
Lineto(endPt.X,endPt.Y);
end
else if((StartPt.X-endPt.X)>0) then
begin
MoveTo(endPt.X,endPt.Y);
Lineto( endPt.X +trunc(Par*cos(Slope)-( Par/2.0*sin(Slope))),
endPt.Y +trunc(Par*sin(Slope)+( Par/2.0*cos(Slope))));
Lineto( endPt.X +trunc(Par*cos(Slope)+ (Par/2.0*sin(Slope))),
endPt.Y -trunc(Par/2.0*cos(Slope)-( Par*sin(Slope))));
Lineto(endPt.X,endPt.Y);
end;
end ;
end;
end;
<!--CodeE-->
-
감사합니다..^^
(NOTICE) You must be logged in to comment on this post.
-
- 좋지안아
- •
- 2006.04.21 00:15
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2006.04.21 02:31안녕하세요. 최용일입니다. 다 같은 boolean 형입니다. Boolean은 1바이트, BOOL은 LongBool로 4바이...
-
- 이재영
- •
- 2006.04.20 23:38
- 2 COMMENTS
- /
- 0 LIKES
-
박홍재•2006.04.24 15:56ESC Command 를 찾아 보세요. 여기에 나오는데요. 일단 Windows에서 설치를 하셨고 병렬포트로 연결하는 ...
-
박홍재•2006.04.21 10:45일단 프린터가 어떻게 연결이 되어 있는지 모르겠지만 RS-232c 로 연결이 되어 있다면 제시하신 명령이 맞...
-
- 이봉구
- 2006.04.20 23:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 정희돈
- 2010.06.29 21:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 박영훈
- 2006.04.20 21:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 박원기
- •
- 2006.04.20 21:16
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2006.04.20 21:30안녕하세요. 최용일입니다. 뭔가 상당히 복잡하게 되어 있네요. Query2로 조회하고 datasource2로 루프...
-
- 김범진
- •
- 2006.04.20 19:23
- •
- 2 COMMENTS
- /
- 0 LIKES
-
채팅•2006.04.20 21:23아마 상대편에서 icmp패킷처리를 방화벽으로 막아 놓았을 겁니다. 전에 보니 borland.com이나 naver.com...
-
김범진•2006.04.20 21:40안녕하세요? 올려주신 글은 잘 읽었읍니다. 제가 이해를 못했읍니다. '상대방'이라 함은 제가 핑 요청을...
-
- 정민경
- •
- 2006.04.20 03:40
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2006.04.20 03:49안녕하세요. 최용일입니다. 그냥 ShellExecute로 URL적어서 IE띄우시면 됩니다. 검색하는 방법은 사...
-
- 좋지안아
- •
- 2006.04.19 23:40
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2006.04.20 02:38델마당 게임제작 게시판에 잘 설명된 게시물이 있어 링크를 첨부합니다. http://www.delmadang.com/cw...
-
- 김길남
- 2006.04.19 20:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 모영철
- •
- 2006.04.19 20:35
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2006.04.20 03:44안녕하세요. 최용일입니다. 그쪽 프로그램문제가 아닐수도 있을듯한데요... IME충돌로 인터넷익스플...
-
모영철•2006.04.20 23:22ㅁㅁ
-
- 홍성호
- •
- 2006.04.19 10:43
- 3 COMMENTS
- /
- 0 LIKES
이미지 캔버스에서 화살표를 그릴려고 하는데요.. LineTO 메서드를 통해 직선을 그려지지만.. 화살표는 그려지지가 않네요.. 캔버스에서 제공하는 여러 메서드를 찾아봐도..방법이 안나와서요. 혹시. 이미지 캔버스에서 화살표를 그리는 ...-
우소•2006.04.19 21:22전에 해본건데.. 사인그래프 그리기 원그리기 화살표 그려 마우즈 위치에 따라 화살표 방향 바꿔서 ...
-
박상윤•2006.04.19 17:06<!--CodeS--> //------------------------------------------------------------------------------...
-
홍성호•2006.04.19 22:01감사합니다..^^
-
- thinkbox
- 2006.04.19 01:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종화
- •
- 2006.04.19 00:13
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2006.04.20 03:39안녕하세요. 최용일입니다. 아래와 같이 하시면 될겁니다. <!--CodeS--> If not m_pCurrentLa...
-
- 신철우
- •
- 2006.04.18 22:20
- 1 COMMENTS
- /
- 0 LIKES
-
신철우•2006.04.18 22:31MediaPlayer1.FileName := 'http://irumihometraining.co.kr/cs/voice/BT01.mp3'; &nbs...
-
- 최진환
- 2006.04.18 20:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 민준기
- 2006.04.18 20:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 철푸덕
- •
- 2006.04.18 19:13
- 2 COMMENTS
- /
- 0 LIKES
-
장덕곤•2006.04.18 19:17쿼리에서 파라미터를 직접던지는방법이있습니다. 예) exec 프로시져명 파라미터,파라미터, ..... 즐거운...
-
철푸덕•2006.04.18 19:50에공.. 제가 질문을 정확히 못했네요 MS-SQL Server의 StoredProcedure기능을 배우고 있습니다. 따라서 P...
-
-
- 김용훈
- 2006.04.18 09:52
- 0 COMMENTS
- /
- 0 LIKES
사인그래프 그리기
원그리기
화살표 그려 마우즈 위치에 따라 화살표 방향 바꿔서 그립니다.