창조에서 나오는 그 초록색 배경창 있죠?
그거와 비슷하게 구현했지만...
문제는 그림파일입니다.
환경파일에 저장하도록 하고, 실행할때 꺼내 읽고 그림 표시하게 했는데,
이상하게 기록이 안됩니다.
명령어를 보여드리지요;; 혹시 모르니 초기화, 그 버튼의 액션을 함께 올립니다.
---------초기화 명령어-----------
_프로그램제목 := "Puren Object Admin 2003";
실수: 핸들, 완료;
완료 := 0;
문자: 비번;
핸들 := 환경열어(현재경로+"\pro_option.ini");
비번 := 환경문읽어(핸들, "Object", "pass", "admin");
환경닫아(핸들);
----------창1.버튼2 클릭했을때-----------
만일(파일관리창0.보여(ㅇㅈ열기))
{
실수: 대화결과;
대화결과 := 대화창보여("작업 질문: 적용 여부", "결정하셨으며, 설정을 저장 하시겠습니까?", ㄷㅇ질문, ㄷㅂ예아니오);
만일(대화결과 = ㄷㅊ예)
{
에디트2.문자 := 파일관리창0.파일명;
만일(파일존재여부(현재경로+"\pro_option.ini"))
{}
아니면
{ 파일만들어(현재경로+"\pro_option.ini");}
핸들 := 환경열어(현재경로+"\pro_option.ini");
환경문써(핸들, "Object", "image", 파일관리창0.파일명);
환경닫아(핸들);
}
}
-----------창3 생성할때---------------------
문자: 임시;
핸들 := 환경열어(현재경로+"\pro_option.ini");
임시 := 환경문읽어(핸들, "Object", "image", "");
환경닫아(핸들);
만일(임시 = "")
{ 문자창보여("그림 경로 값이 없습니다.");}
아니면
{ 창2.그림판1.그림.파일읽어(임시);}
-----------환경파일(pro_option.ini)-----------
--------------정상모습
[Object]
pass=admin
image=C:\????.jpg
--------------현재모습
[Object]
pass=admin
--------------------------------------------
참고: 에디트2는 파일명을 보여주는 곳입니다.
이상하게도 재실행하면 그림이 떠야 정상인데, 환경파일에 기록조차 되지 않았습니다. |
|