자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 그림판 / 안드로이드 개발 관련 문의
2016.03.03 11:20
본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
안녕하세요
델파이를 이용하여 안드로이드 개발을 하는데 문의가 있어서 글을 남깁니다.
Image1 의 함수를 사용하여 구현하였으나, 에러는 없는데 실제 갤럭시노트에서 화면은 보이지만,
실제 터치를 하였을 때, 펜역할을 인식하지 못합니다.(그려지지가 않습니다.)
Image1의 팔레트를 사용하지 않고 PaintBox를 사용하여 구현하여도 화면에 펜의 역할을 인식하지 못합니다.
혹시 제가 다른 방법으로 해야하나요?
하기 소스는 image를 사용하여 구현했을 때의 소스입니다.
답변부탁드립니다.
감사합니다.
var
Form1: TForm1;
FDownPos: TPointF;
implementation
{$R *.fmx}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
FDownPos := PointF(X, Y);
Memo1.Lines.Insert(0, 'DOWN=' + FloatToStr(X) + ',' + FloatToStr(Y));
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Single);
begin
with Image1.Canvas do
begin
BeginScene;
Stroke.Color := TAlphaColors.Red;
Stroke.Kind := TBrushKind.Solid;
StrokeThickness := 5;
Stroke.Dash:=TStrokeDash.sdDot;
// Stroke.Color := ColorListBox1.ItemIndex;
Canvas.Stroke.Thickness := ListBox1.ItemIndex + 1;
DrawLine(FDownPos, PointF(X, Y), 1);
endScene;
Memo1.Lines.Insert(0, 'MOVE=' + FloatToStr(X) + ',' + FloatToStr(Y));
end;
FDownPos := PointF(X, Y);
end;
end.
Delphi 그림판 / 안드로이드 개발 관련 문의
2016.03.03 11:20
본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
안녕하세요
델파이를 이용하여 안드로이드 개발을 하는데 문의가 있어서 글을 남깁니다.
Image1 의 함수를 사용하여 구현하였으나, 에러는 없는데 실제 갤럭시노트에서 화면은 보이지만,
실제 터치를 하였을 때, 펜역할을 인식하지 못합니다.(그려지지가 않습니다.)
Image1의 팔레트를 사용하지 않고 PaintBox를 사용하여 구현하여도 화면에 펜의 역할을 인식하지 못합니다.
혹시 제가 다른 방법으로 해야하나요?
하기 소스는 image를 사용하여 구현했을 때의 소스입니다.
답변부탁드립니다.
감사합니다.
var
Form1: TForm1;
FDownPos: TPointF;
implementation
{$R *.fmx}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
FDownPos := PointF(X, Y);
Memo1.Lines.Insert(0, 'DOWN=' + FloatToStr(X) + ',' + FloatToStr(Y));
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Single);
begin
with Image1.Canvas do
begin
BeginScene;
Stroke.Color := TAlphaColors.Red;
Stroke.Kind := TBrushKind.Solid;
StrokeThickness := 5;
Stroke.Dash:=TStrokeDash.sdDot;
// Stroke.Color := ColorListBox1.ItemIndex;
Canvas.Stroke.Thickness := ListBox1.ItemIndex + 1;
DrawLine(FDownPos, PointF(X, Y), 1);
endScene;
Memo1.Lines.Insert(0, 'MOVE=' + FloatToStr(X) + ',' + FloatToStr(Y));
end;
FDownPos := PointF(X, Y);
end;
end.
다음 링크를 참고해보세요.
http://bluexmas.tistory.com/409
코드상에서는 비트맵의 크기를 지정하지 않아서 표시되지 않을 것으로 보입니다.
Image1.Bitmap.Width := Round(Self.Width * ScreenScale);Image1.Bitmap.Height := Round(Self.Height * ScreenScale);Image1.Bitmap.Clear(TAlphaColorRec.White);