עולם הדלפי

שיעור 8: השלמת התכנית

על ידי כך שגרמנו לתכנית EuroCC  להסתכל על המפריד העשרוני של חלונות, הפכנו אותה "לבין-לאומית", כך שהמשתמש לא יקבל הודעת שגיאה אם ידפיס מפריד עשרוני לא נכון. במקרה הצורך פסיק יומר לנקודה וההפך.

דבר אחרון אך לא פחות חשוב, נוסיף תפריט. קצת חריג להוסיף תפריט בסוף ;-)

מתבוננים במפריד העשרוני

 על ידי כך שגורמים לתכנית להסתכל על המפריד העשרוני של חלונות, המשתמש לא יהיה מוטרד מאיזה מפריד עשרוני להקליד. במקרה הצורך פסיק יומר לנקודה ולהפך.

 המקום המתאים לעשות זאת הוא במטפל המאורע OnKeyPress של ה- Edit-box (קופסת העריכה).אז חפש את זה בעורך הקוד והשלם את הקוד שלך כדלהלן:

 

procedure TForm1.InputEditKeyPress(Sender: TObject; var Key: Char); begin // the code for the ENTER key is 13 if Key = #13 then CurrConvert { DecimalSeparator is a GLOBAL variable in Delphi depending from Windows' "Regional Settings" } else if (Key = ',') and (DecimalSeparator = '.') then Key := '.' else if (Key = '.') and (DecimalSeparator = ',') then Key := ','; end;

 המשמעות: כאשר הפוקוס על InputEdit, ומקש (במקלדת) נלחץ:

 אם זהו מקש ה- ENTER, ההמרה מבוצעת.

אם זהו מקש הפסיק וחלונות נקבע לפורמט מספרי "decimal point", הפסיק  יוחלף בנקודה.

אם זהו מקש הנקודה והסימן העשרוני של חלונות נקבע לפסיק, הנקודה תוחלף בפסיק.

[לראש העמוד]

הרחבת EuroCC למטבעות נוספים

הוספת תמיכה למטבעות נוספים היא דבר פשוט: רק צריך להוסיף קבועים גלובליים עבור פקטור ההמרה ולהוסיף קוד לשגרות החישוב והתצוגה. זה יכול להעשות בצורה מסודרת למדי, כיוון שפיצלנו את השגרות קודם לכן.

כמובן,  שגם מאפיין הפריטים של ה radiogroup  של המטבעות צריך לגדול. וגם כמה תוויות (labels) נוספות צריכות להתווסף לטופס (form). אבל כל זה פשוט וקל. פשוט הסתכל בגרסא הסופית של EuroCC, אשר הורדת בשעורינו הראשון.

[לראש העמוד]

 מוסיפים תפריט

 למעשה, תכנית כה פשוטה כ- EuroCC לא זקוקה לתפריט. אבל למען המטרות החינוכיות ובכדי לרצות את ביל ;-) כך שתוכניתנו תקבל אישור על עמידה בדרישות (compliance-certificate) , הבה נוסיף תפריט קטן.

 התפריט יכיל רק פריט נפתח אחד תפריט  "File", עם האופציות הבאות:

הצג שתי ספרות עשרוניות

הצג ארבע ספרות עשרוניות

שורת רווח

יציאה מהתכנית

1.      הוסף רכיב MainMenu לטופס : MainMenu1. ה- icon של רכיב זה יהפך בלתי נראה בזמן ריצה, רק תפריט התוצאה יופיע מיד מתחת לסרגל הכותרת של הטופס (form). לכן, אין זה משנה היכן תמקם את רכיב ה- MainMenu.

2.      לחץ עם העכבר הימני על הרכיב MainMenu1. בתפריט המהיר שנפתח, בחר Menu Designer. או לחילופין, ניתן לפתוח את ה- Menu Designer  על ידי לחיצת עכבר כפולה על הרכיב MainMenu1.

3.      חלון עם הייצוג  הגרפי של התפריט שלך מופיע. ב- Object Inspector, קבעת את המאפיינים של ה- MenuItem  הראשון של MainMenu1:

  Caption: &File

Name: FileMenu  

4.      לחץ איפה שהוא ב- Menu Designer. בייצוג הגרפי של התפריט, מופיע בלוק מתחת ל- File. זהו הייצוג הגרפי של ה- MenuItem  הראשון שיווצר תחת ה  MenuItem : FileMenu. לחץ על בלוק זה.

5.      ב- Object Inspector, קבע את המאפיינים הבאים ב- MenuItem  החדש שלך:

  Caption: &2 decimals

  Checked: True

  Name: File2Decimals

כעת לחץ Enter.

6.      ב- Object Inspector, לחץ על חוצץ ה- Events ולחץ לחיצה כפולה ליד OnClick. תקבל מטפל מאורע  בשם File2DecimalsClick. ב- Code Editor השלם את תבנית 

הדלפי כדלהלן:  

{ Update the check marks of the menu items,
  select the first RADIOBUTTON of DecimalsRadioG
  and execute the conversion routine             }
procedure TForm1.File2DecimalsClick(Sender: TObject);
begin
  File2Decimals.Checked := True;
  File4Decimals.Checked := False;
  DecimalsRadioG.ItemIndex := 0;
  CurrConvert;
end;

7.       פתח שוב את ה- Menu Designer. לחץ במלבן שתחת  File2Decimals MenuItem. ב- Object Inspector קבע את המאפיינים הבאים עבור ה- MenuItem הבא:

  Caption: &4 decimals

  Name: File4Decimals

 לחץ Enter. כעת, צור מטפל מאורע OnClick, כפי שעשית עבור ה- MenuItem  הקודם. בעורך, השלם את File4Decimalsclick:  

{ Update the check marks of the menu items, select the first RADIOBUTTON of DecimalsRadioG and execute the conversion routine } procedure TForm1.File2DecimalsClick(Sender: TObject); begin File2Decimals.Checked := True; File4Decimals.Checked := False; DecimalsRadioG.ItemIndex := 0; CurrConvert; end;

8.       מתחיל להבין את זה? נו, נו… אני יכול לשמוע כמה ממכם מקללים… לחיצה אחת שגויה ונדמה לך שאתה אבוד… בכל מקרה ה- Menu Editor  מרחק לחיצת עכבר אחת…

אוקיי, הוסף את האלמנט הבא לתפריט:

             (כן, זהו רק מקף)Caption: -

            Name: FileSperator1

ולחץ Enter.

אין צורך להקצות מטפל מאורע (event handler), כיוון שזהו תפריט שורת רווח.

9.      הוסף את האלמנט האחרון ל- FileMenu, עם המאפיינים הבאים:

  Caption: &Exit

  Name: FileExit

ולחץ Enter.

מבט חטוף ב- Menu Designer  מראה כמה שצריך להיות לך:

10. לבסוף, צור מטפל מאורע OnClick עבור ה- MenuItem  האחרון והשלם אותו כלדהלן:  

procedure TForm1.FileExitClick(Sender: TObject);
begin
  Close; // this closes Form1
end;

סגירת הטופס (form) "העיקרי" של אפליקציה תסגור באופן אוטומטי את האפליקציה כולה, ומכיוון שלאפליקציה הקטנה שלנו רק טופס אחד…  

ומה מסמן סימן ה- & בכותרות התפריט? כשהסימן מופיע לפני תו, התו הזה יודגש בקו תחתון בתפריט.

  כנראה ש- Form1  שלך נעשה קטן מדי, בגלל שבחלקו העליון נוסף תפריט. תבחין בזאת אם דלפי הוסיפה פסי גלילה (scrollbars) לטופס שלך. המקרה כזה: פשוט שנה את גודל הטופס עד שפסי הגלילה ייעלמו.

ומה הלאה? למה שלא תנסה ליצור "ממיר" נוסף כזה, אך הפעם לא למטבעות אלא למידות: מרחק, משקל, כוח…? ניתן לך כמה רעיונות בשעור 9, אך תחילה נסה זאת בעצמך!