<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	xmlns:georss="http://www.georss.org/georss" xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#" xmlns:media="http://search.yahoo.com/mrss/"
	>

<channel>
	<title>Arif widiyanto &#187; Graphic</title>
	<atom:link href="http://arifw.wordpress.com/tag/graphic/feed/" rel="self" type="application/rss+xml" />
	<link>http://arifw.wordpress.com</link>
	<description>mind, passions, spirit and hopes</description>
	<lastBuildDate>Tue, 10 Feb 2009 21:54:16 +0000</lastBuildDate>
	<generator>http://wordpress.com/</generator>
	<language>id</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<cloud domain='arifw.wordpress.com' port='80' path='/?rsscloud=notify' registerProcedure='' protocol='http-post' />
<image>
		<url>http://www.gravatar.com/blavatar/d382bbfd951e4023fa2574e327371f53?s=96&#038;d=http://s.wordpress.com/i/buttonw-com.png</url>
		<title>Arif widiyanto &#187; Graphic</title>
		<link>http://arifw.wordpress.com</link>
	</image>
	<atom:link rel="search" type="application/opensearchdescription+xml" href="http://arifw.wordpress.com/osd.xml" title="Arif widiyanto" />
		<item>
		<title>Delphi Mengkonversi bitmap ke sepia atau greyscale</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-mengkonversi-bitmap-ke-sepia-atau-greyscale/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-mengkonversi-bitmap-ke-sepia-atau-greyscale/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 19:45:21 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Graphic]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-mengkonversi-bitmap-ke-sepia-atau-greyscale/</guid>
		<description><![CDATA[

Function bmptosepia(const bmp: TBitmap; depth: Integer): Boolean;
var
color,color2:longint;
r,g,b,rr,gg:byte;
h,w:integer;
begin
  for h := 0 to bmp.height do
  begin
    for w := 0 to bmp.width do
    begin
    color:=colortorgb(bmp.Canvas.pixels[w,h]);
    r:=getrvalue(color);
    g:=getgvalue(color);
    b:=getbvalue(color);
    color2:=(r+g+b) div 3;
   [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=24&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-mengkonversi-bitmap-ke-sepia-atau-greyscale/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://softexpressions.com/software/misc/PhtXpr/PX3h.jpg" medium="image" />
	</item>
		<item>
		<title>Delphi Bergerak pada canvas untuk menampilkan nilai X/Y</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-bergerak-pada-canvas-untuk-menampilkan-nilai-xy/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-bergerak-pada-canvas-untuk-menampilkan-nilai-xy/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 19:42:49 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Graphic]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-bergerak-pada-canvas-untuk-menampilkan-nilai-xy/</guid>
		<description><![CDATA[
private
   BmpH, BmpV : TBitmap;
   OldX, OldY: Integer;
end;
var
  RectSaved : boolean = false;
procedure TFormMain.FormCreate(Sender: TObject);
begin
  PanelImage.DoubleBuffered := true; // This prevents that the image is blinking
  LabelHint.Transparent := true;
  LabelHint.Font.Color := clNave;
end;
procedure TFormMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Cross(X, Y);
end;
procedure TFormMain.Cross(X, Y: Integer);
begin
  [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=23&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-bergerak-pada-canvas-untuk-menampilkan-nilai-xy/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://www.oreilly.com/catalog/flashhks/figs/I_5_tt230.png" medium="image" />
	</item>
		<item>
		<title>Delphi &#8211; Menggambar langsung pada Desktop</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-menggambar-langsung-pada-desktop/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-menggambar-langsung-pada-desktop/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 19:37:48 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Graphic]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-menggambar-langsung-pada-desktop/</guid>
		<description><![CDATA[
var
  Form1: TForm1;
  Canv: TCanvas;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Canv := TCanvas.Create;
  Canv.Handle := GetWindowDC(0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Canv.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canv.pen.Color := clred;
  Canv.pen.Width := 20;
  Canv.moveto(Screen.Width, 2);
  Canv.lineto(2, 2);
  Canv.lineto(2, Screen.Height);
  Canv.lineto(Screen.Width, Screen.Height);
  Canv.lineto(Screen.Width, 2);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Canv.Font.Name   := &#8216;Arial&#8217;;
 [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=22&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-menggambar-langsung-pada-desktop/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>
	</item>
	</channel>
</rss>