[Oep]

کدهای Drawing


طول صفحه نمایش را به پیکسل برمیگرداند.

کد:

function getHeight: integer;

عرض صفحه نمایش را به پیکسل برمیگرداند.

کد:

function getWidth: integer;

برای تنظیم رنگ است که قل از اعمال ترسیم می بایست توسط این دستور رنگ موردنظرمان را تنظیم نماییم:
هرکدام از ورودی ها عددی بین 0-255 می گیرد ورودی (255,255,255) رنگ سفید را مشخص مینماید.

کد:

procedure setColor(red, green, blue:integer);

این تابع برای رسم یک قوس و کمان است. 'startAngle شروع و arcAngle درجه را مشخص می کند 0درجه در مکان عدد سه ساعت است و 90درجه در مکان عدد 12 ساعت است .مثال :

کد:

procedure drawArc(x, y, width, height, startAngle, arcAngle: integer);

example:
  begin
    drawArc(0, 0, getWidth, getHeight, 0, 90);
    repaint;
    delay(1000);
  end.

برای ترسیم یک بیضی درون صفحه نمایش.مثال :

کد:

procedure drawEllipse(x, y, width, height: integer);

example:
  begin
    drawEllipse(0, 0, getWidth, getHeight);
    repaint;
    delay(1000);
  end.

برای ترسیم یک عکس که از مختصات x,y ترسیم شروع میشود:

کد:

procedure drawImage(img: image; x, y: integer);

example:
  begin
    drawImage(loadImage('/logo.png'), 0, 0);
    repaint;
    delay(1000);
  end.

برای کشیدن یک خط بین دو نقطه ('x1', 'y1')و ('x2', 'y2').

کد:

procedure drawLine(x1, y1, x2, y2: integer);

example:
  begin
    drawLine(10, 15, 25, 35);
    repaint;
    delay(1000);
  end.

برای ترسیم خط بیرونی یک مستطیل .مانند:

کد:

procedure drawRect(x, y, width, height: integer);

example:
  begin
    drawRect(5, 5, 20, 20);
    repaint;
    delay(1000);
  end.

ترسیم مستطیل با گوشه های گرد.

کد:

procedure drawRoundRect(x, y, width, height, arcWidth, arcHeight: integer);

example
  begin
    drawRoundRect(5, 5, 20, 20, 2, 2);
    repaint;
    delay(1000);
  end.

متن درون بافر text را برروی صفحه نمایش نشان میدهد

کد:

procedure drawText(text: string, xPos, yPos: integer);

example:
  begin
    setColor(255, 0, 0);
    drawText('Hello world', 0, 0);
    repaint;
    delay(1000);
  end.

ترسیم بیضی توپر.

کد:

procedure fillEllipse(x, y, width, height: integer);

  begin
    fillEllipse(0, 0, getWidth, getHeight);
    repaint;
    delay(1000);
  end.

ترسیم یک مستطیل توپر.

کد:

procedure fillRect(x, y, width, height: integer);

example:
  begin
    fillRect(5, 5, 20, 20);
    repaint;
    delay(1000);
  end.

ترسیم مستطیل توپر با گوشه های گرد.

کد:

procedure fillRoundRect(x, y, width, height, arcWidth, arcHeight: integer);

example:
  begin
    fillRoundRect(5, 5, 20, 20, 2, 2);
    repaint;
    delay(1000);
  end.

;
گرفتن هرکدام از رنگهای قرمز و آبی و سبز از رنگ RGB که برای آخرین بار ست شده است.توسط تابع Setcolor رنگ های ست میشوند برای رنگ متن ها،پرکردن اشکال هندسی و...

کد:

function getColorRed: integer;

function getColorBlue: integer;

function getColorGreen: integer


example:
  begin
    setColor(127, 0, 0);
    if getColorRed <> 127 then
    begin
      drawText('This should never happen', 0, 0);
      repaint;
    end;
    delay(1000);
  end.

طول یک عکس به پیکسل برمیگرداند.

کد:

function getImageHeight(img: image): integer;

عرض یک عکس را به پیکسل برمیگرداند.

کد:

function getImageWidth(img: image): integer;

طول و عرض متن نمایش داده شده به فونت جاری را به پیکسل بر میگرداند.

کد:

function getStringHeight(text: string): integer;
function getStringWidth(text: string): integer;

example:
  var text: string;
    height: integer;
  begin
    text   := 'Text to display';
    height := getStringHeight(text);
    drawText(text, 0, (getHeight - height)/2);
    repaint;
    delay(1000);
  end.

ایجاد یک عکس با مختصات تعیین شده از بوم رنگ شده تان.

کد:

function ImageFromCanvas(x: integer; y: integer; width: integer; height: integer ): image;

ایجاد یک عکس با مختصات تعیین شده از عکسی دیگر که برای برش عکس ها جالب است.

کد:

function ImageFromImage(sourceImg: image; x: integer; y: integer; width: integer; height: integer ): image;

اگر دستگاه قادر به نمایش رنگ موردنظرمان باشد مقدار true بر میگرداند.

کد:

function isColorDisplay:boolean;

برای نمایش عکس از ریسورس.مثال :

کد:

function loadImage(resource: string): image

example:
  begin
    drawImage(loadImage('/icon.png'), 0, 0);
    repaint;
    delay(1000); { wait 1 second before the MIDlet terminates }
  end.

تغییر رنگ یک پیکسل از صفحه نمایش:

کد:

procedure plot(x, y:integer);

example:
  begin
    setColor(255, 0, 0);
    plot(5, 10);
    repaint;
    delay(1000);
  end.

تمام دستورات ترسیم مانند drawLine, drawText, fillRect و ... بطور مستقیم برروی صفحه نمایش اعمال نمیشوند که off-screen buffer برروی صفحه نمایش نشان داده میشوند.این دستور بطوری صفحه نمایش را بروز کرده تا تغییرات اعمال شده را نمایش دهد.

کد:

procedure repaint;

اعمال فونت پیش فرض که اگر کاربر فونتی را تعیین کرده باشد به حالت پیش فرض برخواهد گشت.

کد:

procedure setDefaultFont;

برای تعیین فونت صفحه بکاربرده میشود.

کد:

procedure setFont(fontFace, fontStyle, fontSize);

پارامتر fontFace میتواند مقادیر زیر را بگیرد :

• FONT_FACE_SYSTEM
• FONT_FACE_MONOSPACE
• FONT_FACE_PROPORTIONAL


پارامتر fontStyle هم مقادیرزیر را میتواند بگیر:
• FONT_STYLE_PLAIN
• FONT_STYLE_BOLD
• FONT_STYLE_ITALIC
• FONT_STYLE_UNDERLINED
برای استفاده چندتای این گزینه بدین صورت عمل میکنیم.مثلا میخواهیم فونت مان ضخیم و زیر خط دار باشد: (FONT_STYLE_BOLD or FONT_STYLE_UNDERLINE)


و پارامتر fontSize نیز دارای مقدارهای زیر می باشد:
• FONT_SIZE_SMALL
• FONT_SIZE_MEDIUM
• FONT_SIZE_LARGE

مثال :

کد:

begin
    setFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD or FONT_STYLE_UNDERLINED, FONT_SIZE_LARGE);
    drawText('Hello world', 0, 0);
    repaint;
    delay(1000);
  end.