델파이 [Delphi]

[델파이] Color 예제

반주부 2009. 2. 9. 16:29
반응형


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, Forms, Graphics;

type
CColor = class(TObject)
  r, g, b:byte;
  function getColor():TColor;
end;

type
SColor = record
  g, r, b:byte;
end;

var
mainForm:TForm;
myCol:CColor;
col:TColor;
PCol:^SColor;

function CColor.getColor():TColor;
var
col:TColor;
PCol:^byte;
begin
  PCol := @col;
  PCol^ := self.r;
  Inc(PCol, 1);
  PCol^ := self.g;
  Inc(PCol, 1);
  PCol^ := self.b;
  Result := col;
end;

begin
  mainForm := TForm.CreateNew(nil);
  mainForm.Show();

  myCol := CColor.Create();
  myCol.r := $FF;
  myCol.g := $FF;
  myCol.b := $00;

  PCol := @col;
  PCol^.r := $FF;
  PCol^.g := $00;
  PCol^.b := $00;

  mainForm.Color := myCol.getColor();
  //mainForm.Color := col;
  mainForm.Repaint;

  readln;
end.

류종택님의 책 예제 중 TColor부분을 클래스로 작성해 보았습니다..
위 코드에는 구조체와 클래스 형태가 들어 있습니다..








반응형