Skip to content

Instantly share code, notes, and snippets.

procedure TSettings_Frm.FormClose(Sender: TObject; var CloseAction: TCloseAction
);
var
XmlDoc: TXMLDocument;
itemLineNodeList: TDOMNodeList;
curNode: TDOMNode;
i: Integer;
begin
try
//ShowMessage('Starting path: ' + GetCurrentDir());
<?xml version="1.0" encoding="utf-8"?>
<channel>
<updates>true</updates>
<rememberSettings>false</rememberSettings>
<action></action>
<file></file>
<scheduleType></scheduleType>
<hour></hour>
<min></min>
<countDownMin></countDownMin>
@nikel
nikel / settings.xml
Created December 12, 2018 20:10
XML Read Data
procedure TSettings_Frm.FormCreate(Sender: TObject);
var
Str:String;
Doc: TXMLDocument;
XMLNode: TDOMNodeList;
CheckForUpdates: Boolean;
RememberSettings: Boolean;
begin
try
; Beş dakika mesaj yazmadığınızda sizi away yapar ve help kanalından çıkar
alias set_away {
if ($me ison #Help) {
away Şu an awayım
part #Help Şu an awayım
echo -sti 7,0Bilgi: 1,0Away olduğunuzdan help kanalından çıkıldı
.timerawayyx 0 10 set_away
}
}
- cell null System.Windows.Forms.DataGridViewCell
+ Static members
lastRowIndex 1 int
- links_dgv.Rows {System.Windows.Forms.DataGridViewRowCollection} System.Windows.Forms.DataGridViewRowCollection
Count 1 int
+ DataGridView {System.Windows.Forms.DataGridView} System.Windows.Forms.DataGridView
+ List Count = 1 System.Collections.ArrayList {System.Windows.Forms.DataGridViewRowCollection.RowArrayList}
+ Non-Public members
+ Results View Expanding the Results View will enumerate the IEnumerable
links_dgv.Rows.Count 1 int
- links_dgv {System.Windows.Forms.DataGridView} System.Windows.Forms.DataGridView
+ AccessibilityObject {ControlAccessibleObject: Owner = System.Windows.Forms.DataGridView} System.Windows.Forms.AccessibleObject {System.Windows.Forms.DataGridView.DataGridViewAccessibleObject}
AccessibleDefaultActionDescription null string
AccessibleDescription null string
AccessibleName null string
AccessibleRole Default System.Windows.Forms.AccessibleRole
+ AdjustedTopLeftHeaderBorderStyle {DataGridViewAdvancedBorderStyle { All=NotSet, Left=OutsetDouble, Right=Outset, Top=OutsetDouble, Bottom=Outset }} System.Windows.Forms.DataGridViewAdvancedBorderStyle
+ AdvancedCellBorderStyle {DataGridViewAdvancedBorderStyle { All=Single, Left=Single, Right=Single, Top=Single, Bottom=Single }} System.Windows.Forms.DataGridViewAdvancedBorderStyle
+ AdvancedColumnHeadersBorderStyle {DataGridViewAdvancedBorderStyle { All=OutsetPartial, Left=OutsetPartial, Right=OutsetPartial, Top=OutsetPartial, Bottom=OutsetPartial }} System.Win
- links_dgv {System.Windows.Forms.DataGridView} System.Windows.Forms.DataGridView
- AccessibilityObject {ControlAccessibleObject: Owner = System.Windows.Forms.DataGridView} System.Windows.Forms.AccessibleObject {System.Windows.Forms.DataGridView.DataGridViewAccessibleObject}
+ Bounds {X = 254 Y = 277 Width = 698 Height = 217} System.Drawing.Rectangle
DefaultAction null string
Description null string
+ Handle {201216} System.IntPtr
Help null string
KeyboardShortcut null string
Name "DataGridView" string
+ Owner {System.Windows.Forms.DataGridView} System.Windows.Forms.Control {System.Windows.Forms.DataGridView}
; Lütfen okuyun
; 9 dakika idle olduğunuzda help kanalından çıkar.
; Remoteyi ekledikten sonra mIRC'ı baştan başlatın.
; Bu remote düzenli olarak kendinize whois çeker.
; Script ayarlarınızdan whois'i ayrı pencerede gösterecek şekilde ayarlayın.
; V0.21 itibari ile çeşitli hatalar giderilmiştir.
on *:CONNECT: {
timerIdle2001 0 10 gidle $me
}
; 9 dakika idle olduğunuzda help kanalından çıkar. Remoteyi ekledikten sonra mIRC'ı baştan başlatın.
; V0.21 itibari ile çeşitli hatalar giderilmiştir.
on *:CONNECT: {
timerIdle2001 0 10 gidle $me
}
alias gidle {
whois $1 $1
set %nick $1
}