<?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/"
	>

<channel>
	<title>X-pack.org &#187; Components</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/components/feed/" rel="self" type="application/rss+xml" />
	<link>http://home.x-pack.org</link>
	<description>Download all you need here</description>
	<lastBuildDate>Fri, 18 May 2012 11:09:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>[ Delphi ] – Check if a Stringgrid cell is selected</title>
		<link>http://home.x-pack.org/delphi-check-if-a-stringgrid-cell-is-selected/</link>
		<comments>http://home.x-pack.org/delphi-check-if-a-stringgrid-cell-is-selected/#comments</comments>
		<pubDate>Fri, 04 Jun 2010 03:20:18 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=420</guid>
		<description><![CDATA[function IsCellSelected(StringGrid: TStringGrid; X, Y: Longint): Boolean; begin &#160;&#160;Result := False; &#160;&#160;try &#160;&#160;&#160;&#160;if (X &#62;= StringGrid.Selection.Left) and (X &#60;= StringGrid.Selection.Right) and &#160;&#160;&#160;&#160;&#160;&#160;(Y &#62;= StringGrid.Selection.Top) and (Y &#60;= StringGrid.Selection.Bottom) then &#160;&#160;&#160;&#160;&#160;&#160;Result := True; &#160;&#160;except &#160;&#160;end; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;if IsCellSelected(stringgrid1, 2, 2) then &#160;&#160;&#160;&#160;ShowMessage('Cell (2,2) is selected.'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-a-stringgrid-cell-is-selected/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Undo in memo fields</title>
		<link>http://home.x-pack.org/delphi-undo-in-memo-fields/</link>
		<comments>http://home.x-pack.org/delphi-undo-in-memo-fields/#comments</comments>
		<pubDate>Tue, 04 May 2010 03:24:19 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=426</guid>
		<description><![CDATA[Memo1.Perform(EM_UNDO, 0, 0); ButtonUndo.Enabled := Memo1.Perform(EM_CANUNDO, 0, 0); ButtonUndo.Enabled := Memo1.CanUndo; // in Delphi 4 or higher Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0); Memo1.ClearUndo; // in Delphi 4 or higher]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-undo-in-memo-fields/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Delete all selected items of a Listbox</title>
		<link>http://home.x-pack.org/delphi-delete-all-selected-items-of-a-listbox/</link>
		<comments>http://home.x-pack.org/delphi-delete-all-selected-items-of-a-listbox/#comments</comments>
		<pubDate>Tue, 04 May 2010 03:16:49 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=416</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;i: integer; begin &#160;&#160;for i := ListBox1.Items.Count - 1 downto 0 do &#160;&#160;&#160;&#160;if ListBox1.Selected[i] then &#160;&#160;&#160;&#160;&#160;&#160;ListBox1.Items.Delete(i); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-delete-all-selected-items-of-a-listbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if Undo is possible in a TMemo</title>
		<link>http://home.x-pack.org/delphi-check-if-undo-is-possible-in-a-tmemo/</link>
		<comments>http://home.x-pack.org/delphi-check-if-undo-is-possible-in-a-tmemo/#comments</comments>
		<pubDate>Tue, 04 May 2010 01:22:30 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=383</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;if Memo1.Perform(EM_CANUNDO, 0, 0) &#60;&#62; 0 then &#160;&#160;&#160;&#160;ShowMessage('Undo is possible') &#160;&#160;else &#160;&#160;&#160;&#160;ShowMessage('Undo is not possible'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-undo-is-possible-in-a-tmemo/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Create Internet link in Tlabel</title>
		<link>http://home.x-pack.org/delphi-create-internet-link-in-tlabel/</link>
		<comments>http://home.x-pack.org/delphi-create-internet-link-in-tlabel/#comments</comments>
		<pubDate>Tue, 04 May 2010 01:13:08 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=370</guid>
		<description><![CDATA[procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, &#160;&#160;Y: Integer); begin &#160;&#160;Label1.Font.Color:=clBlue; &#160;&#160;Cursor:=crHandPoint; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, &#160;&#160;Y: Integer); begin &#160;&#160;Label1.Font.Color:=clBlack; &#160;&#160;Cursor:=crDefault; end; procedure TForm1.Label1Click(Sender: TObject); begin &#160;&#160;ShellExecute( &#160;&#160;&#160;&#160;Application.Handle, &#160;&#160;&#160;&#160;'open', &#160;&#160;&#160;&#160;'http://www.x-pack.org', &#160;&#160;&#160;&#160;nil, &#160;&#160;&#160;&#160;nil, &#160;&#160;&#160;&#160;0); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-create-internet-link-in-tlabel/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Delete a row in a TStringGrid</title>
		<link>http://home.x-pack.org/delphi-delete-a-row-in-a-tstringgrid/</link>
		<comments>http://home.x-pack.org/delphi-delete-a-row-in-a-tstringgrid/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 03:21:44 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=422</guid>
		<description><![CDATA[procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid); var &#160;&#160;i: Integer; begin &#160;&#160;Grid.Row := RowNumber; &#160;&#160;if (Grid.Row = Grid.RowCount - 1) then &#160;&#160;&#160;&#160;{ On the last row} &#160;&#160;&#160;&#160;Grid.RowCount := Grid.RowCount - 1 &#160;&#160;else &#160;&#160;begin &#160;&#160;&#160;&#160;{ Not the last row} &#160;&#160;&#160;&#160;for i := RowNumber to Grid.RowCount - 1 do &#160;&#160;&#160;&#160;&#160;&#160;Grid.Rows[i] := Grid.Rows[i + 1]; &#160;&#160;&#160;&#160;Grid.RowCount := Grid.RowCount - 1;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-delete-a-row-in-a-tstringgrid/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get all selected items of a TListview</title>
		<link>http://home.x-pack.org/delphi-get-all-selected-items-of-a-tlistview/</link>
		<comments>http://home.x-pack.org/delphi-get-all-selected-items-of-a-tlistview/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 03:15:20 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=413</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;i: integer; begin &#160;&#160;with Listview1 do &#160;&#160;&#160;&#160;for i := 0 to Items.Count - 1 do &#160;&#160;&#160;&#160;&#160;&#160;if Items[i].Selected then &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Items[i].Caption := Items[i].Caption + ' - Selected!'; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-all-selected-items-of-a-tlistview/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Programatically dropdown a TComboBox</title>
		<link>http://home.x-pack.org/delphi-programatically-dropdown-a-tcombobox/</link>
		<comments>http://home.x-pack.org/delphi-programatically-dropdown-a-tcombobox/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 03:10:52 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=403</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;if SendMessage(ComboBox1.Handle, CB_GETDROPPEDSTATE, 0, 0) &#60;&#62; 1 then &#160;&#160;&#160;&#160;SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-programatically-dropdown-a-tcombobox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Force the input in a TEdit</title>
		<link>http://home.x-pack.org/delphi-force-the-input-in-a-tedit/</link>
		<comments>http://home.x-pack.org/delphi-force-the-input-in-a-tedit/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 01:27:27 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=391</guid>
		<description><![CDATA[procedure TForm1.Edit1Exit(Sender: TObject); begin if Edit1.Text = '' then Edit1.SetFocus; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-force-the-input-in-a-tedit/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Move items in a listbox</title>
		<link>http://home.x-pack.org/delphi-move-items-in-a-listbox/</link>
		<comments>http://home.x-pack.org/delphi-move-items-in-a-listbox/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 03:23:04 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=424</guid>
		<description><![CDATA[procedure LbMoveItemUp(AListBox: TListBox); var &#160;&#160;CurrIndex: Integer; begin &#160;&#160;with AListBox do &#160;&#160;&#160;&#160;if ItemIndex &#62; 0 then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;CurrIndex := ItemIndex; &#160;&#160;&#160;&#160;&#160;&#160;Items.Move(ItemIndex, (CurrIndex - 1)); &#160;&#160;&#160;&#160;&#160;&#160;ItemIndex := CurrIndex - 1; &#160;&#160;&#160;&#160;end; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;LbMoveItemUp(ListBox1); end; procedure LbMoveItemDown(AListBox: TListBox); var &#160;&#160;CurrIndex, LastIndex: Integer; begin &#160;&#160;with AListBox do &#160;&#160;begin &#160;&#160;&#160;&#160;CurrIndex := ItemIndex; &#160;&#160;&#160;&#160;LastIndex := Items.Count; &#160;&#160;&#160;&#160;if]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-move-items-in-a-listbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Show a horizontal scrollbar in a Listbox</title>
		<link>http://home.x-pack.org/delphi-show-a-horizontal-scrollbar-in-a-listbox/</link>
		<comments>http://home.x-pack.org/delphi-show-a-horizontal-scrollbar-in-a-listbox/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 03:18:21 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=418</guid>
		<description><![CDATA[procedure HorScrollBar(ListBox: TListBox; MaxWidth: Integer); var &#160;&#160;i, w: Integer; begin &#160;&#160;if MaxWidth = 0 then &#160;&#160;&#160;&#160;SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0) &#160;&#160;else &#160;&#160;begin &#160;&#160;&#160;&#160;{ get largest item } &#160;&#160;&#160;&#160;for i := 0 to ListBox.Items.Count - 1 do &#160;&#160;&#160;&#160;&#160;&#160;with ListBox do &#160;&#160;&#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;w := Canvas.TextWidth(Items[i]); &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;if w &#62; MaxWidth then &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;MaxWidth := w; &#160;&#160;&#160;&#160;&#160;&#160;end; &#160;&#160;&#160;&#160;SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, &#160;&#160;&#160;&#160;&#160;&#160;MaxWidth +]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-show-a-horizontal-scrollbar-in-a-listbox/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Sort a StringGrid</title>
		<link>http://home.x-pack.org/delphi-sort-a-stringgrid/</link>
		<comments>http://home.x-pack.org/delphi-sort-a-stringgrid/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 03:13:34 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=410</guid>
		<description><![CDATA[procedure SortStringGrid(var GenStrGrid: TStringGrid; ThatCol: Integer); const &#160;&#160;TheSeparator = '@'; var &#160;&#160;CountItem, I, J, K, ThePosition: integer; &#160;&#160;MyList: TStringList; &#160;&#160;MyString, TempString: string; begin &#160;&#160;CountItem := GenStrGrid.RowCount; &#160;&#160;MyList&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;:= TStringList.Create; &#160;&#160;MyList.Sorted := False; &#160;&#160;try &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;for I := 1 to (CountItem - 1) do &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;MyList.Add(GenStrGrid.Rows[I].Strings[ThatCol] + TheSeparator + &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;GenStrGrid.Rows[I].Text); &#160;&#160;&#160;&#160;&#160;&#160;Mylist.Sort; &#160;&#160;&#160;&#160;&#160;&#160;for K := 1 to Mylist.Count do]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-sort-a-stringgrid/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] –  Change the color of a TProgressBar</title>
		<link>http://home.x-pack.org/delphi-change-the-color-of-a-tprogressbar/</link>
		<comments>http://home.x-pack.org/delphi-change-the-color-of-a-tprogressbar/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 01:33:47 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=398</guid>
		<description><![CDATA[uses &#160;&#160;CommCtrl; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;Progressbar1.Brush.Color := clTeal; &#160;&#160;SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-change-the-color-of-a-tprogressbar/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Set the tabulator width in a TMemo</title>
		<link>http://home.x-pack.org/delphi-set-the-tabulator-width-in-a-tmemo/</link>
		<comments>http://home.x-pack.org/delphi-set-the-tabulator-width-in-a-tmemo/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 01:23:50 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=385</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var FTabWidth: Integer; begin Memo1.WantTabs := True; FTabWidth := 4; SendMessage(Memo1.Handle, EM_SETTABSTOPS, 1, Longint(@FTabWidth)); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-set-the-tabulator-width-in-a-tmemo/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Create colored rows in a TListView</title>
		<link>http://home.x-pack.org/delphi-create-colored-rows-in-a-tlistview/</link>
		<comments>http://home.x-pack.org/delphi-create-colored-rows-in-a-tlistview/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 01:21:02 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=381</guid>
		<description><![CDATA[procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin with ListView1.Canvas.Brush do begin case Item.Index of 0: Color := clYellow; 1: Color := clGreen; 2: Color := clRed; end; end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-create-colored-rows-in-a-tlistview/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced
Database Caching 35/89 queries in 0.074 seconds using disk: basic
Object Caching 809/925 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 04:57:33 -->
