2월 20일 한빛미디어에서 주관하는 RT:FM 발표자료 준비 중 좋은 내용이 있어 일부내용을 미리 공유합니다.(http://m.onoffmix.com/event/12062)

하버드 대학교 교내신문인 하버드 가젯에 아래와 같은 기사가 2008년도에 실렸었습니다.

"Money spent on others can buy happiness"

(다른사람을 위해 돈을 쓸때 더 행복하다.)

(http://news.harvard.edu/gazette/story/2008/04/money-spent-on-others-can-buy-happiness/)

기사에서는 3번의 실험을 했습니다.

첫번째, 

632명의 미국인을 대상으로 연간수입과 자신을 위한 소비, 타인을 위한 소비(선물, 기부 등)을 조사한 결과 소득에 상관없이 타인을 위한 소비 비율이 높은 사람일 수록 행복 지수가 높았다.

두번째,

16명의 직원을 대상으로 미리 5000$의 보너스를 주고 행복도를 측정했다. 그리곤 다시 3000$, 8000$의 다른 보너스를 직원에게 주고 소비행태에 따른 행복지수를 조사 하였고, 그 결과 타인을 위한 소비 비유이 높은 직원들의 행복지수가 더 높았다.

마지막, 

대학 캠퍼스에서 학생들에게 무작위로 5$, 20$의 지폐가 든 봉투를 나누어 주고 절반의 그룹은 자신을 위해, 나머지는 타인을 위해 선물 구입 또는 기부를 하도록 지시한 후 결과를 조사한 결과 그 날 자신의 돈을 타인을 위해 지출한 사람들은 저녁시간을 행복하게 보낼 수 있었다고 한다. 그리고 그 행복은 금액과는 상관이 없었다고 한다.

위의 조사내용과 비슷한 결과의 강연이 TED에도 있습니다.

(http://www.ted.com/talks/michael_norton_how_to_buy_happiness.html)

위 실험도 다양한 방법으로 소비를 측정하고 자신과 타인을 위한 소비경우 느끼는 행복감을 조사했습니다.

또한, 삶이 여유로운 경우에 국한되지 않고 전세계 다양한 국가에서 동일한 실험을 하고 그 결과를 그래프로 잘 표현했습니다.

대부분이 녹색(타인을 위한 소비에 행복감을 느낌)으로 표시가 되네요. 

즉, 소득과 상관없이 타인을 위한 소비가 자신에게 행복을 준다는 결과를 알 수 있습니다.

만약, 자신이 행복하지 않다고 생각되시거나, 

나는 더 행복하고 싶어라고 생각되시는 분들은

주변을 둘러보고 자신이 좋아하는, 사랑하는 분을 위한 가벼운 선물하고

덤으로 본인은 행복이라는 선물을 받으시는게 어떨까 제안합니다.

기회가 되시어 더 필요한 사람에게 기부를 하면 더큰 행복을 받으실 수 있을 것 같습니다.

감사합니다.

행복하세요.

최근 리더의 조건 다큐멘터리로 이슈가 되기도 했던 착한회사

제니퍼소프트, SAS 등의 회사는 왜 착한데도 성공했을까?

그 궁금증의 해답을 조금더 이해하기 위해 1월 16일 강연회에 가서 받은 책.

공동번역가이신

정지훈, 송인혁, 최형욱님의 주옥같은 강연을 듣고 더욱 보고싶었던 책입니다.

Web2.0(쌍방향 커뮤니케이션) 시대에 왜 회사는 착해야 하는지

그리고 우리(소비자)의 자세는 어때야 하는지를 알려줍니다.

요약하면

우리는 우리가 구매하는 제품, 이용하는 서비스 회사의 행동을 감시하고, 착한회사가 되길 요구할 줄 아는 소비자가 되어야 한다.

"감시해야 할 회사의 행동"은 회사가 직원을 잘 돌보아 우리에게 정당한 서비스가 돌아오는지, 환경적으로 올바른 제품을 만들고 환경에 관심을 갖고 올바른 행동을 하는지, 지역사회를 위해 어떠한 일을 하는지 등.

착하게 자란 회사는 소비자가 지키고, 직원이 지키고, 고객이 믿고 사용하므로 당연하게 성장할 수 있다.

반대로 착하지 않은 회사는 점점 소비자가 멀어지고, 직원은 회사를 믿지 못하므로 차츰 고객이 외면하게 된다.

제게 많은 생각과 고민을 안겨주고 어느정도의 답까지 준 책.

직원으로서의 착한회사, 오너로서의 착한회사를 그리며 어찌 행동해야 할지 큰 길을 알려주네요.

강연에서 액기스만 뽑아 설명해준 것과는 다르게 살짝 반복되는 내용과 지표가 지루하기는 했지만

충분히 필독서의 조건이 된다 생각합니다.

모두들 이 책을 읽고 실천하면 참 행복한 세상이 올것 같네요^^

2월 20일 발표가 잡혔다. 그래서 발표준비를 해야한다. ㅠㅜ

(살짝쿵 홍보 RT:FM 프로그래머로 사는 법

 http://onoffmix.com/event/12062)

난 천상 개발자인가보다 발표보다 개발이 더 좋으니...

문자입력을 어떻게 처리할까 고민하고 참고소스도 들여다 보는데...

음... 예상대로 많이 어렵다.

에디터를 만든다는 것 만만치 않다.

우선 클릭하고 입력하고 선택, 이동만 되게 하고

다음 더블클릭해서 수정되게 하고

다음 여러줄 입력 할 수 있게 하고

나중에 글자별 스타일 적용 시키고~

후후 쉽게 가야지~ 

IME처리가 문제예요~ 영어만하면 입력받아서 문자 그려주면 될 것 같구먼...

아무튼 문자입력은 잠정 보류 입니다.

PS - 미래를 준비하기 위해 딴일도 해야하는뎅 ㅠㅜ 동시에 몇개씩 일을 하니 내가 집중을 못하징(행복한 볼멘소리)

글만쓰면 서운하니까 팁하나!!

GUI와 Unittest입니다.

자세한 내용은 없고 아래 동영상 한번 보시고...

힌트는 "이벤트를 발생"

FIremonkey와 DUnit으로 작업된 Thoth Canvas 테스트입니다.

혹시 자세한 정보(방법, 샘플)를 원하시면 댓글 주세요^^

이 책도 회사의 동료가 선물해 주신 책

이책을 읽으면 파리의 풍경이 머리속에 그려진다.

아무래도 파리의 거리를 제일 잘 아는 택시운전사가 직접 쓴 책이니 그런듯 하다

또한 우리나라의 7~80년대의 시대상도 머릿속에 그려진다.

암울하고 말못할 시대의 피해자이자 망명자인 저자의 이야기가 가슴을 애리게 했다.

관심있는 나라 프랑스 그리고 관심있는 도시 파리

많은 정보와 생각 할 수 있는 기회를 준 책이다.

가벼운 문장으로 가볍지 않은 주제를 재미있게 엮은 책.

그루핑에 대한 작업이 일단락 됐다.

겹치면 그룹화 되는 좀 일반적(파워포인트 등에서는 그룹 메뉴가 있다.)이지 않은 방식이지만 편한 것 같아서 시도해 봤다.

초반에 방향을 잘못잡아 반정도 작업한 것을 완전히 갈아 엎었지만

오히려 갈아 엎으며 코드도 짧고 깨끗해 지고 

내가 모든 것을 구현하지 않고 프레임워크(파이어몽키)의 메소드들을 이용했다.

(DoAddObject, DoRemoveObject)

그리고 Unittest의 도움을 대단히 많이 봤다.(해보니 좋다 TDD)

아직은 어설프지만 리펙토링 및 대규모 코드 갈아 엎기 할때 놓치지 않아서 마음이 편하다.

어쨌든 그루핑을 끝내서 0.4 버전이 완료가 됐고

마음같아서는 다음버전 기능인 문자입력을 들어가고 싶지만 더 큰것을 준비해야 하기에 잠시 멈춰야 겠다.

다음달 20일 발표 준비를 해야겠다.

제목은 "나무를 심는 프로그래머".

글만쓰면 아쉬우니 팁을 가끔 하나씩 넣어야 겠다.

팁이라고 할것 까진 없고 인터페이스를 사용하는 이유중 하나인 implement이다.

구현하다보면 전혀 다른 객체(클래스)인데 동일한 구현이 필요한 경우 사용된다.

예를들면 

드로윙 툴(토트캔버스)에서 

아이템을 캔버스(컨텐츠)에 올릴 수도 있고 아이템위에 아이템을 올릴 수도 있다.

그리고 캔버스에서 아이템으로 부모아이템 간 옮길 수 도 있다.

즉 부모가 어떤 놈인지 구분하기 대단히 어렵다.

위 상황에서 부모(Object.Parent)의 클래스 타입에 따라 분개하는 방법도 있지만

인터페이스를 사용하면 짧고 편리하게 구현이 가능하다.

아래와 같은 구조가 있다고 치자.

아이템과 컨텐츠가 IThItemContainer라는 인터페이스를 상속 받는다.

  IThItemContainer = interface
  ['{76A11805-EA40-40B6-84A1-71B4DF277DCD}']
    procedure ContainChildren(AContainer: TThItem);
  end;

  TThItem = class(TControl, IThItem, IThItemContainer)
  public
    procedure ContainChildren(AContainer: TThItem);
  end;

  TThContents = class(TControl, IThItemContainer)
  private
    procedure ContainChildren(AContainer: TThItem);
  end;

아래와 같이 부모를 찾았는데 FindParent

부모의 타입(Parent는 TFmxObject이다) 과는 상관없이 ContainChildren 메소드를 호출한다.(15번째 줄)

팁은 Supports라는 함수이다. COM을 사용할 때 많이 사용되는 좋은 함수이다.

procedure TThCanvasEditor.MouseUp(Button: TMouseButton; Shift: TShiftState; X,  Y: Single);
var
  ItemContainer: IThItemContainer;
begin
  inherited;

  if IsDrawingItem and Assigned(FDrawItem) then
  begin
    FDrawItem.Selected := True;

    // Set Parent
    FDrawItem.Parent := FContents.FindParent(FDrawItem); // 부모 찾기

    // Contain Children
    if Supports(FDrawItem.Parent, IThItemContainer, ItemContainer) then
      ItemContainer.ContainChildren(FDrawItem);

    if Assigned(FOnItemAdded) then
      FOnItemAdded(FDrawItem);
  end;
end;

인터페이스 사용하면 어렵지만 유용한 놈입니다^^

끝~

회사 동료가 선물해 준 책

감동을 전하는 제품을 만들기 위해서는 제품관리자의 역할이 크다고 한다.

난 솔직히 제품관리자라는 역할을 처음 접했는데 책에서 하고자 하는 말이 맞는 말이긴 하다.

(인터렉션 디자인이란 용어도 처음 접함)

하지만 대상을 너무 관리자 위주의 내용이어서 개발자인 나에게는 괴리감이 들었다.

그래서 중간, 중간은 스킵하며 봤다.

하지만 내 뇌리에 꽃히는 항목도 꽤 있었다.

UX에 대한 강조와 사용성 테스트(프로토타입 구성) 등은 나에게 좋은 아이디어를 제공해 줬다.

전체적으로 떠있지만 중간중간 필요한 내용을 캡쳐(취득)한 책

예전에 사두고 읽지 않았던 책을 다시 꺼내 읽었다.

부모라면 꼭 읽어보라고 권장하고 싶은 책

아이가 왜 그런 행동을 보이는지 알려주고

여러가지 상황에서 부모의 좋은 대처 / 나쁜 대처를 예시로 알려준다.

육아서가 그렇듯 과연 내가 실천할 수 있을까? 하는 의문도 솔직히 들긴 했다.

그래도 읽으며 많은 것을 느꼈다.

2013년 한주에 한권읽기 프로젝트 시작

첨부터 어려운 책을 골랐다.

경제 관련 서적이라 다소 지루했지만 읽다 보면 이해가 되겠지하고 끝까지 읽었다.

이미 발전한 선진국의 사다리 걷어차기(지내들 보호무역으로 발전하고 도상국들은 자유무역이 발전하는 길이다 라는 억지)가 제일 기억에 남는다.

신시장경제주의와 외국인투자의 숨은의도도 대충 이해할 수 있었다.

좀 어렵지만 읽으면 좋을 책

토트캔버스 작업하며 느끼고 배우는 것들을 기록해야 겠다는 생각에 작업일지를 쓴다.

나중에 어떤 생각을 하며 작업했는지 되돌아 보면 재미있을 것 같다.

오늘은 아이템 그루핑 작업을 했다.

그루핑 작업에 대한 테스트케이스만 45개나 된다.

하지만 Zoom과 Rotate기능이 들어가면 또 생기겠지...하하

이제 3가지 항목만 처리하면된다.

TopLeft로 크기 조정 시 예외

중간크기 아이템을 큰아이템 위의 작은아이템이 덮을때 중간아이템에 작은 아이템을 추가하는게 맞을까? 하는 사용성

원의 경우 원의 영역에 아이템이 포함되는지 체크

얼른 그룹핑 끝나고 5단계로 넘어가고 싶다~

산행을 하려 아침일찍 일어나보니 눈이 오네요. 

새해 시작을 예쁜눈과 함께 하니 아름다운 2013년이 될 것 같습니다.

오후에 정리하고자 했던 다짐을 앞당겨 정리합니다.

"세상아 내가 왔다. 나좀 봐줘."

작년을 맞이하며 세상에 외쳤던 말이었습니다.

이제는 세상에 나를 알리고 내가 좋아하는, 내가 하고 싶은 일을 시작하고자 마음을 먹었지요.

작년은 절반의 성공이었습니다.

• 소셜 및 블로그 활동을 시작했고, 
• 하고싶은 일을 찾아 시작하였고,
• 함께할 수 있는 사람을 찾아 팀도 셋업되었으니 말입니다.
• 그리고, 조금이나마 자신을 다스릴 수 있었습니다.

작년의 소회는 마치고

올해의 외침은

"가자!! 새로운 세상으로, 새로운 들판으로..."

작년 한해동안 

"혼자의 힘으로는 많은 것을 할 수 없다"는 것을 경험하고 깨달았습니다.

어쨌든 함깨할 주변사람들이 준비가 되었고

올 한해는 

새로운 사람들을 만나 생각과 가치를 공유하고 같은 방향으로 함께가는 법을 배우고

새로운 장소에서 그동안의 낡은 습관과 나태함을 버리고 새롭게 시작하겠습니다.

그리고 깨달은 한가지

새로운 도전은

• 하기 싫은 것을 하지 않는 것이 아닙니다. 하고 싶은 것을 하는 것입니다.
• 대신 불필요한 것(욕심, 고민...)을 내려 놓고 그 시간에 하고 싶은 것을 해야 합니다.
  (자신이 하지 말아야 할 것이 무엇인지 곰곰히 생각해 보시고 하나하나 고치면 한결 여유로운 삶이지 않을 까 싶네요.)

모두 새해에는 새로운 도전 모두 성공하시어, 1년 후 뿌듯한 마음으로 한해 마무리 할 수 있었으면 좋겠습니다.

2012년 저와 함께해준, 응원해준 모든 사람들과 세상을 의미있게, 행복하게 살고자 하는 모든 분들을 응원합니다.

2013년 시작과 함께, Humphery.

Firemonkey2로 버전업 된 후로 참 많은 것이 변했습니다.

TControl은 말할 것도 없고 TBitmap도 많은 내용이 변했네요.

Unit test에서 특정 Pixel의 색상을 얻어오고자 할때 기존 Bitmap.Pixels이 없어진 것을 확인 후 깜짝 놀랐습니다.

자... 그럼 제가 삽질로 얻어온 내용을 공유하도록 합니다.

var
  Bitmap: TBitmap;
  Map: TBitmapData;
begin
  Bitmap :=  TBitmap.Create(Round(Panel1.Width), Round(Panel1.Height));
  try
    Bitmap.Canvas.BeginScene;

    // Bitmap으로 내보내기
    Bitmap.Assign(Panel1.MakeScreenshot);
 
    // Pixel의 값을 원하실 때는 이렇게
    Bitmap.Map(TMapAccess.maRead, Map);
    //AlphaColor := Map.GetPixel(Round(X), Round(Y));
    Bitmap.Unmap(Map);
    Bitmap.Canvas.EndScene;

    Image1.Bitmap.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;
end;

Panel1의 화면을 Bitmap으로 내보내는 코드 입니다.

특정 좌표의 값은 Map.GetPixel로 얻어오실 수 있구요 반환은 TAlphaColor 입니다.

TBitmapData라는 구조체를 이용하는군요 구글링에도 없는 따끈한 정보입니다. 실은 많이 안찾아 봣습니다. -_-;