سؤال فى Program Unit

[amr50061]

السلام عليكم ورحمة الله
انا عامل كود المفروض يتحط فى 9 ازرار
وعاوز احطه فى
function
احسن ما اكتبه واستدعيه
ومش عارف
هوه فى ازرار اله حاسبة المفرورض ياخد ال
lable
بتاع الزرار وبعدين يحشىه فى الايتم


ازاى اعمله

begin

if :clo.screen is null then
 :clo.screen:=get_item_property(:system.cursor_item,label);
elsif  :clo.screen is not null then
 :clo.screen:=rpad(:clo.screen,length(:clo.screen)+1,get_item_property(:system.cursor_item,label));
else
 null;
end if;
end;

[mustafagamiel]

السلام عليكم
معلشي بس ممكن توضح المطلوب بشكل افضل وياريت لو بمثال