Yeni Tl Simgemiz

Bay_RC · March 1, 2012

TL SİMGEMİZ:
[img]http://www.tnctr.com/uploads/imgs/pre_1330600192__tlsimge.jpg[/img]
TL SİMGESİ TASARIMCISI (TÜLAY LALE)
[img]http://www.tnctr.com/uploads/imgs/pre_1330602686__capture4.jpg[/img]

PROGRAM
Link: http://hotfile.com/dl/148344522/b0d112a/TLSimge.rar.html
Pass: Türkiye

Rardan çıkan programa çift tıklayın evet deyin bukadar.. Ondan sonra Altgr + T Tşuna basınca ekranınızda.. Türkiyeye hayırlı ve uğurlu olsun..
Kurulum Bilgisi:
Yapmış olduğunuz kurulum, işletim sisteminizin program dosyaları alanına "TCMB" isimli bir klasör yaratmıştır. Bu klasörde, başlangıç menünüzde bir kısayolu da bulunmakta olan "TLSimgeKisayol.exe" programı yer almaktadır.

Bu programı çalıştırıp herhangi bir metin düzenleyicide, "AbakuTLSymSans" yazı tipini seçtiğiniz taktirde AltGr+T ve Ctrl+Alt+T tuş kombinasyonları ile TL simgesini kullanabilirsiniz.

Programı kapatmak için, sistem menüsü alanından TL simgesini sağ tıklayarak "Çıkış" seçeneğini seçmeniz yeterlidir.

Not: Tarafımca test edildi. Sorun yok. Lakin tnctr'de bir mesaj yazarken "¨" şeklinde çıkıyor.

Edited March 1, 2012 by sere

KintaRo · March 1, 2012

[quote]http://www.tcmb.gov.tr/yeni/iletisimgm/TLSimge/kurulum.html[/quote]

burdan indirin tüm işletim sistemleri için.

Mehmet · March 1, 2012

[quote name='KintaRo' date='01 March 2012 - 13:59 ' timestamp='1330603185' post='1163313']
burdan indirin tüm işletim sistemleri için.
[/quote]
AutoIT ile yapılmış bu şaka değil cidden AutoIT

buda kaynak kodları
[codebox]
Func _WINAPI_GETLASTERROR($CURERR = @error, $CUREXT = @extended)
Local $ARESULT = DllCall("kernel32.dll", "dword", "GetLastError")
Return SetError($CURERR, $CUREXT, $ARESULT[0])
EndFunc

Func _WINAPI_SETLASTERROR($IERRCODE, $CURERR = @error, $CUREXT = @extended)
DllCall("kernel32.dll", "none", "SetLastError", "dword", $IERRCODE)
Return SetError($CURERR, $CUREXT)
EndFunc

Global Const $__MISCCONSTANT_CC_ANYCOLOR = 256
Global Const $__MISCCONSTANT_CC_FULLOPEN = 2
Global Const $__MISCCONSTANT_CC_RGBINIT = 1
Global Const $TAGCHOOSECOLOR = "dword Size;hwnd hWndOwnder;handle hInstance;dword rgbResult;ptr CustColors;dword Flags;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName"
Global Const $TAGCHOOSEFONT = "dword Size;hwnd hWndOwner;handle hDC;ptr LogFont;int PointSize;dword Flags;dword rgbColors;lparam CustData;" & "ptr fnHook;ptr TemplateName;handle hInstance;ptr szStyle;word FontType;int SizeMin;int SizeMax"

Func _CHOOSECOLOR($IRETURNTYPE = 0, $ICOLORREF = 0, $IREFTYPE = 0, $HWNDOWNDER = 0)
Local $CUSTCOLORS = "dword[16]"
Local $TCHOOSE = DllStructCreate($TAGCHOOSECOLOR)
Local $TCC = DllStructCreate($CUSTCOLORS)
If $IREFTYPE = 1 Then
$ICOLORREF = Int($ICOLORREF)
ElseIf $IREFTYPE = 2 Then
$ICOLORREF = Hex(String($ICOLORREF), 6)
$ICOLORREF = "0x" & StringMid($ICOLORREF, 5, 2) & StringMid($ICOLORREF, 3, 2) & StringMid($ICOLORREF, 1, 2)
EndIf
DllStructSetData($TCHOOSE, "Size", DllStructGetSize($TCHOOSE))
DllStructSetData($TCHOOSE, "hWndOwnder", $HWNDOWNDER)
DllStructSetData($TCHOOSE, "rgbResult", $ICOLORREF)
DllStructSetData($TCHOOSE, "CustColors", DllStructGetPtr($TCC))
DllStructSetData($TCHOOSE, "Flags", BitOR($__MISCCONSTANT_CC_ANYCOLOR, $__MISCCONSTANT_CC_FULLOPEN, $__MISCCONSTANT_CC_RGBINIT))
Local $ARESULT = DllCall("comdlg32.dll", "bool", "ChooseColor", "struct*", $TCHOOSE)
If @error Then Return SetError(@error, @extended, -1)
If $ARESULT[0] = 0 Then Return SetError(-3, -3, -1)
Local $COLOR_PICKED = DllStructGetData($TCHOOSE, "rgbResult")
If $IRETURNTYPE = 1 Then
Return "0x" & Hex(String($COLOR_PICKED), 6)
ElseIf $IRETURNTYPE = 2 Then
$COLOR_PICKED = Hex(String($COLOR_PICKED), 6)
Return "0x" & StringMid($COLOR_PICKED, 5, 2) & StringMid($COLOR_PICKED, 3, 2) & StringMid($COLOR_PICKED, 1, 2)
ElseIf $IRETURNTYPE = 0 Then
Return $COLOR_PICKED
Else
Return SetError(-4, -4, -1)
EndIf
EndFunc

Func _CHOOSEFONT($SFONTNAME = "Courier New", $IPOINTSIZE = 10, $ICOLORREF = 0, $IFONTWEIGHT = 0, $IITALIC = False, $IUNDERLINE = False, $ISTRIKETHRU = False, $HWNDOWNER = 0)
Local $ITALIC = 0, $UNDERLINE = 0, $STRIKEOUT = 0
Local $LNGDC = __MISC_GETDC(0)
Local $LFHEIGHT = Round(($IPOINTSIZE * __MISC_GETDEVICECAPS($LNGDC, $LOGPIXELSX)) / 72, 0)
__MISC_RELEASEDC(0, $LNGDC)
Local $TCHOOSEFONT = DllStructCreate($TAGCHOOSEFONT)
Local $TLOGFONT = DllStructCreate($TAGLOGFONT)
DllStructSetData($TCHOOSEFONT, "Size", DllStructGetSize($TCHOOSEFONT))
DllStructSetData($TCHOOSEFONT, "hWndOwner", $HWNDOWNER)
DllStructSetData($TCHOOSEFONT, "LogFont", DllStructGetPtr($TLOGFONT))
DllStructSetData($TCHOOSEFONT, "PointSize", $IPOINTSIZE)
DllStructSetData($TCHOOSEFONT, "Flags", BitOR($CF_SCREENFONTS, $CF_PRINTERFONTS, $CF_EFFECTS, $CF_INITTOLOGFONTSTRUCT, $CF_NOSCRIPTSEL))
DllStructSetData($TCHOOSEFONT, "rgbColors", $ICOLORREF)
DllStructSetData($TCHOOSEFONT, "FontType", 0)
DllStructSetData($TLOGFONT, "Height", $LFHEIGHT)
DllStructSetData($TLOGFONT, "Weight", $IFONTWEIGHT)
DllStructSetData($TLOGFONT, "Italic", $IITALIC)
DllStructSetData($TLOGFONT, "Underline", $IUNDERLINE)
DllStructSetData($TLOGFONT, "Strikeout", $ISTRIKETHRU)
DllStructSetData($TLOGFONT, "FaceName", $SFONTNAME)
Local $ARESULT = DllCall("comdlg32.dll", "bool", "ChooseFontW", "struct*", $TCHOOSEFONT)
If @error Then Return SetError(@error, @extended, -1)
If $ARESULT[0] = 0 Then Return SetError(-3, -3, -1)
Local $FONTNAME = DllStructGetData($TLOGFONT, "FaceName")
If StringLen($FONTNAME) = 0 And StringLen($SFONTNAME) > 0 Then $FONTNAME = $SFONTNAME
If DllStructGetData($TLOGFONT, "Italic") Then $ITALIC = 2
If DllStructGetData($TLOGFONT, "Underline") Then $UNDERLINE = 4
If DllStructGetData($TLOGFONT, "Strikeout") Then $STRIKEOUT = 8
Local $ATTRIBUTES = BitOR($ITALIC, $UNDERLINE, $STRIKEOUT)
Local $SIZE = DllStructGetData($TCHOOSEFONT, "PointSize") / 10
Local $COLORREF = DllStructGetData($TCHOOSEFONT, "rgbColors")
Local $WEIGHT = DllStructGetData($TLOGFONT, "Weight")
Local $COLOR_PICKED = Hex(String($COLORREF), 6)
Return StringSplit($ATTRIBUTES & "," & $FONTNAME & "," & $SIZE & "," & $WEIGHT & "," & $COLORREF & "," & "0x" & $COLOR_PICKED & "," & "0x" & StringMid($COLOR_PICKED, 5, 2) & StringMid($COLOR_PICKED, 3, 2) & StringMid($COLOR_PICKED, 1, 2), ",")
EndFunc

Func _CLIPPUTFILE($SFILE, $SSEPARATOR = "|")
Local Const $GMEM_MOVEABLE = 2, $CF_HDROP = 15
$SFILE &= $SSEPARATOR & $SSEPARATOR
Local $NGLOBMEMSIZE = 2 * (StringLen($SFILE) + 20)
Local $ARESULT = DllCall("user32.dll", "bool", "OpenClipboard", "hwnd", 0)
If @error Or $ARESULT[0] = 0 Then Return SetError(1, _WINAPI_GETLASTERROR(), False)
Local $IERROR = 0, $ILASTERROR = 0
$ARESULT = DllCall("user32.dll", "bool", "EmptyClipboard")
If @error Or Not $ARESULT[0] Then
$IERROR = 2
$ILASTERROR = _WINAPI_GETLASTERROR()
Else
$ARESULT = DllCall("kernel32.dll", "handle", "GlobalAlloc", "uint", $GMEM_MOVEABLE, "ulong_ptr", $NGLOBMEMSIZE)
If @error Or Not $ARESULT[0] Then
$IERROR = 3
$ILASTERROR = _WINAPI_GETLASTERROR()
Else
Local $HGLOBAL = $ARESULT[0]
$ARESULT = DllCall("kernel32.dll", "ptr", "GlobalLock", "handle", $HGLOBAL)
If @error Or Not $ARESULT[0] Then
$IERROR = 4
$ILASTERROR = _WINAPI_GETLASTERROR()
Else
Local $HLOCK = $ARESULT[0]
Local $DROPFILES = DllStructCreate("dword pFiles;" & $TAGPOINT & ";bool fNC;bool fWide;wchar[" & StringLen($SFILE) + 1 & "]", $HLOCK)
If @error Then Return SetError(5, 6, False)
Local $TEMPSTRUCT = DllStructCreate("dword;long;long;bool;bool")
DllStructSetData($DROPFILES, "pFiles", DllStructGetSize($TEMPSTRUCT))
DllStructSetData($DROPFILES, "X", 0)
DllStructSetData($DROPFILES, "Y", 0)
DllStructSetData($DROPFILES, "fNC", 0)
DllStructSetData($DROPFILES, "fWide", 1)
DllStructSetData($DROPFILES, 6, $SFILE)
For $I = 1 To StringLen($SFILE)
If DllStructGetData($DROPFILES, 6, $I) = $SSEPARATOR Then DllStructSetData($DROPFILES, 6, Chr(0), $I)
Next
$ARESULT = DllCall("user32.dll", "handle", "SetClipboardData", "uint", $CF_HDROP, "handle", $HGLOBAL)
If @error Or Not $ARESULT[0] Then
$IERROR = 6
$ILASTERROR = _WINAPI_GETLASTERROR()
EndIf
$ARESULT = DllCall("kernel32.dll", "bool", "GlobalUnlock", "handle", $HGLOBAL)
If (@error Or Not $ARESULT[0]) And Not $IERROR And _WINAPI_GETLASTERROR() Then
$IERROR = 8
$ILASTERROR = _WINAPI_GETLASTERROR()
EndIf
EndIf
$ARESULT = DllCall("kernel32.dll", "ptr", "GlobalFree", "handle", $HGLOBAL)
If (@error Or $ARESULT[0]) And Not $IERROR Then
$IERROR = 9
$ILASTERROR = _WINAPI_GETLASTERROR()
EndIf
EndIf
EndIf
$ARESULT = DllCall("user32.dll", "bool", "CloseClipboard")
If (@error Or Not $ARESULT[0]) And Not $IERROR Then Return SetError(7, _WINAPI_GETLASTERROR(), False)
If $IERROR Then Return SetError($IERROR, $ILASTERROR, False)
Return True
EndFunc

Func _IIF($FTEST, $VTRUEVAL, $VFALSEVAL)
If $FTEST Then
Return $VTRUEVAL
Else
Return $VFALSEVAL
EndIf
EndFunc

Func _MOUSETRAP($ILEFT = 0, $ITOP = 0, $IRIGHT = 0, $IBOTTOM = 0)
Local $ARESULT
If @NumParams == 0 Then
$ARESULT = DllCall("user32.dll", "bool", "ClipCursor", "ptr", 0)
If @error Or Not $ARESULT[0] Then Return SetError(1, _WINAPI_GETLASTERROR(), False)
Else
If @NumParams == 2 Then
$IRIGHT = $ILEFT + 1
$IBOTTOM = $ITOP + 1
EndIf
Local $TRECT = DllStructCreate($TAGRECT)
DllStructSetData($TRECT, "Left", $ILEFT)
DllStructSetData($TRECT, "Top", $ITOP)
DllStructSetData($TRECT, "Right", $IRIGHT)
DllStructSetData($TRECT, "Bottom", $IBOTTOM)
$ARESULT = DllCall("user32.dll", "bool", "ClipCursor", "struct*", $TRECT)
If @error Or Not $ARESULT[0] Then Return SetError(2, _WINAPI_GETLASTERROR(), False)
EndIf
Return True
EndFunc

Func _SINGLETON($SOCCURENCENAME, $IFLAG = 0)
Local Const $ERROR_ALREADY_EXISTS = 183
Local Const $SECURITY_DESCRIPTOR_REVISION = 1
Local $TSECURITYATTRIBUTES = 0
If BitAND($IFLAG, 2) Then
Local $TSECURITYDESCRIPTOR = DllStructCreate("byte;byte;word;ptr[4]")
Local $ARET = DllCall("advapi32.dll", "bool", "InitializeSecurityDescriptor", "struct*", $TSECURITYDESCRIPTOR, "dword", $SECURITY_DESCRIPTOR_REVISION)
If @error Then Return SetError(@error, @extended, 0)
If $ARET[0] Then
$ARET = DllCall("advapi32.dll", "bool", "SetSecurityDescriptorDacl", "struct*", $TSECURITYDESCRIPTOR, "bool", 1, "ptr", 0, "bool", 0)
If @error Then Return SetError(@error, @extended, 0)
If $ARET[0] Then
$TSECURITYATTRIBUTES = DllStructCreate($TAGSECURITY_ATTRIBUTES)
DllStructSetData($TSECURITYATTRIBUTES, 1, DllStructGetSize($TSECURITYATTRIBUTES))
DllStructSetData($TSECURITYATTRIBUTES, 2, DllStructGetPtr($TSECURITYDESCRIPTOR))
DllStructSetData($TSECURITYATTRIBUTES, 3, 0)
EndIf
EndIf
EndIf
Local $HANDLE = DllCall("kernel32.dll", "handle", "CreateMutexW", "struct*", $TSECURITYATTRIBUTES, "bool", 1, "wstr", $SOCCURENCENAME)
If @error Then Return SetError(@error, @extended, 0)
Local $LASTERROR = DllCall("kernel32.dll", "dword", "GetLastError")
If @error Then Return SetError(@error, @extended, 0)
If $LASTERROR[0] = $ERROR_ALREADY_EXISTS Then
If BitAND($IFLAG, 1) Then
Return SetError($LASTERROR[0], $LASTERROR[0], 0)
Else
Exit -1
EndIf
EndIf
Return $HANDLE[0]
EndFunc

Func _ISPRESSED($SHEXKEY, $VDLL = "user32.dll")
Local $A_R = DllCall($VDLL, "short", "GetAsyncKeyState", "int", "0x" & $SHEXKEY)
If @error Then Return SetError(@error, @extended, False)
Return BitAND($A_R[0], 32768) <> 0
EndFunc

Func _VERSIONCOMPARE($SVERSION1, $SVERSION2)
If $SVERSION1 = $SVERSION2 Then Return 0
Local $SEP = "."
If StringInStr($SVERSION1, $SEP) = 0 Then $SEP = ","
Local $AVERSION1 = StringSplit($SVERSION1, $SEP)
Local $AVERSION2 = StringSplit($SVERSION2, $SEP)
If UBound($AVERSION1) <> UBound($AVERSION2) Or UBound($AVERSION1) = 0 Then
SetExtended(1)
If $SVERSION1 > $SVERSION2 Then
Return 1
ElseIf $SVERSION1 < $SVERSION2 Then
Return -1
EndIf
Else
For $I = 1 To UBound($AVERSION1) - 1
If StringIsDigit($AVERSION1[$I]) And StringIsDigit($AVERSION2[$I]) Then
If Number($AVERSION1[$I]) > Number($AVERSION2[$I]) Then
Return 1
ElseIf Number($AVERSION1[$I]) < Number($AVERSION2[$I]) Then
Return -1
EndIf
Else
SetExtended(1)
If $AVERSION1[$I] > $AVERSION2[$I] Then
Return 1
ElseIf $AVERSION1[$I] < $AVERSION2[$I] Then
Return -1
EndIf
EndIf
Next
EndIf
Return SetError(2, 0, 0)
EndFunc

Func __MISC_GETDC($HWND)
Local $ARESULT = DllCall("User32.dll", "handle", "GetDC", "hwnd", $HWND)
If @error Or Not $ARESULT[0] Then Return SetError(1, _WINAPI_GETLASTERROR(), 0)
Return $ARESULT[0]
EndFunc

Func __MISC_GETDEVICECAPS($HDC, $IINDEX)
Local $ARESULT = DllCall("GDI32.dll", "int", "GetDeviceCaps", "handle", $HDC, "int", $IINDEX)
If @error Then Return SetError(@error, @extended, 0)
Return $ARESULT[0]
EndFunc

Func __MISC_RELEASEDC($HWND, $HDC)
Local $ARESULT = DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $HWND, "handle", $HDC)
If @error Then Return SetError(@error, @extended, False)
Return $ARESULT[0] <> 0
EndFunc

Func _FILECOUNTLINES($SFILEPATH)
Local $HFILE = FileOpen($SFILEPATH, $FO_READ)
If $HFILE = -1 Then Return SetError(1, 0, 0)
Local $SFILECONTENT = StringStripWS(FileRead($HFILE), 2)
FileClose($HFILE)
Local $ATMP
If StringInStr($SFILECONTENT, @LF) Then
$ATMP = StringSplit(StringStripCR($SFILECONTENT), @LF)
ElseIf StringInStr($SFILECONTENT, @CR) Then
$ATMP = StringSplit($SFILECONTENT, @CR)
Else
If StringLen($SFILECONTENT) Then
Return 1
Else
Return SetError(2, 0, 0)
EndIf
EndIf
Return $ATMP[0]
EndFunc

Func _FILECREATE($SFILEPATH)
Local $HOPENFILE = FileOpen($SFILEPATH, $FO_OVERWRITE)
If $HOPENFILE = -1 Then Return SetError(1, 0, 0)
Local $HWRITEFILE = FileWrite($HOPENFILE, "")
FileClose($HOPENFILE)
If $HWRITEFILE = -1 Then Return SetError(2, 0, 0)
Return 1
EndFunc

Func _FILELISTTOARRAY($SPATH, $SFILTER = "*", $IFLAG = 0)
Local $HSEARCH, $SFILE, $SFILELIST, $SDELIM = "|"
$SPATH = StringRegExpReplace($SPATH, "[\\/]+\z", "") & "\"
If Not FileExists($SPATH) Then Return SetError(1, 1, "")
If StringRegExp($SFILTER, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "")
If Not ($IFLAG = 0 Or $IFLAG = 1 Or $IFLAG = 2) Then Return SetError(3, 3, "")
$HSEARCH = FileFindFirstFile($SPATH & $SFILTER)
If @error Then Return SetError(4, 4, "")
While 1
$SFILE = FileFindNextFile($HSEARCH)
If @error Then ExitLoop
If ($IFLAG + @extended = 2) Then ContinueLoop
$SFILELIST &= $SDELIM & $SFILE
WEnd
FileClose($HSEARCH)
If Not $SFILELIST Then Return SetError(4, 4, "")
Return StringSplit(StringTrimLeft($SFILELIST, 1), "|")
EndFunc

Func _FILEPRINT($S_FILE, $I_SHOW = @SW_HIDE)
Local $A_RET = DllCall("shell32.dll", "int", "ShellExecuteW", "hwnd", 0, "wstr", "print", "wstr", $S_FILE, "wstr", "", "wstr", "", "int", $I_SHOW)
If @error Then Return SetError(@error, @extended, 0)
If $A_RET[0] <= 32 Then Return SetError(10, $A_RET[0], 0)
Return 1
EndFunc

Func _FILEREADTOARRAY($SFILEPATH, ByRef $AARRAY)
Local $HFILE = FileOpen($SFILEPATH, $FO_READ)
If $HFILE = -1 Then Return SetError(1, 0, 0)
Local $AFILE = FileRead($HFILE, FileGetSize($SFILEPATH))
If StringRight($AFILE, 1) = @LF Then $AFILE = StringTrimRight($AFILE, 1)
If StringRight($AFILE, 1) = @CR Then $AFILE = StringTrimRight($AFILE, 1)
FileClose($HFILE)
If StringInStr($AFILE, @LF) Then
$AARRAY = StringSplit(StringStripCR($AFILE), @LF)
ElseIf StringInStr($AFILE, @CR) Then
$AARRAY = StringSplit($AFILE, @CR)
Else
If StringLen($AFILE) Then
Dim $AARRAY[2] = [1, $AFILE]
Else
Return SetError(2, 0, 0)
EndIf
EndIf
Return 1
EndFunc

Func _FILEWRITEFROMARRAY($FILE, $A_ARRAY, $I_BASE = 0, $I_UBOUND = 0, $S_DELIM = "|")
If Not IsArray($A_ARRAY) Then Return SetError(2, 0, 0)
Local $IDIMS = UBound($A_ARRAY, 0)
If $IDIMS > 2 Then Return SetError(4, 0, 0)
Local $LAST = UBound($A_ARRAY) - 1
If $I_UBOUND < 1 Or $I_UBOUND > $LAST Then $I_UBOUND = $LAST
If $I_BASE < 0 Or $I_BASE > $LAST Then $I_BASE = 0
Local $HFILE
If IsString($FILE) Then
$HFILE = FileOpen($FILE, $FO_OVERWRITE)
Else
$HFILE = $FILE
EndIf
If $HFILE = -1 Then Return SetError(1, 0, 0)
Local $ERRORSAV = 0
Switch $IDIMS
Case 1
For $X = $I_BASE To $I_UBOUND
If FileWrite($HFILE, $A_ARRAY[$X] & @CRLF) = 0 Then
$ERRORSAV = 3
ExitLoop
EndIf
Next
Case 2
Local $S_TEMP
For $X = $I_BASE To $I_UBOUND
$S_TEMP = $A_ARRAY[$X][0]
For $Y = 1 To $IDIMS
$S_TEMP &= $S_DELIM & $A_ARRAY[$X][$Y]
Next
If FileWrite($HFILE, $S_TEMP & @CRLF) = 0 Then
$ERRORSAV = 3
ExitLoop
EndIf
Next
EndSwitch
If IsString($FILE) Then FileClose($HFILE)
If $ERRORSAV Then Return SetError($ERRORSAV, 0, 0)
Return 1
EndFunc

Func _FILEWRITELOG($SLOGPATH, $SLOGMSG, $IFLAG = -1)
Local $HOPENFILE = $SLOGPATH, $IOPENMODE = $FO_APPEND
Local $SDATENOW = @YEAR & "-" & @MON & "-" & @MDAY
Local $STIMENOW = @HOUR & ":" & @MIN & ":" & @SEC
Local $SMSG = $SDATENOW & " " & $STIMENOW & " : " & $SLOGMSG
If $IFLAG <> -1 Then
$SMSG &= @CRLF & FileRead($SLOGPATH)
$IOPENMODE = $FO_OVERWRITE
EndIf
If IsString($SLOGPATH) Then
$HOPENFILE = FileOpen($SLOGPATH, $IOPENMODE)
If $HOPENFILE = -1 Then
Return SetError(1, 0, 0)
EndIf
EndIf
Local $IRETURN = FileWriteLine($HOPENFILE, $SMSG)
If IsString($SLOGPATH) Then
$IRETURN = FileClose($HOPENFILE)
EndIf
If $IRETURN <= 0 Then
Return SetError(2, $IRETURN, 0)
EndIf
Return $IRETURN
EndFunc

Func _FILEWRITETOLINE($SFILE, $ILINE, $STEXT, $FOVERWRITE = 0)
If $ILINE <= 0 Then Return SetError(4, 0, 0)
If Not IsString($STEXT) Then
$STEXT = String($STEXT)
If $STEXT = "" Then Return SetError(6, 0, 0)
EndIf
If $FOVERWRITE <> 0 And $FOVERWRITE <> 1 Then Return SetError(5, 0, 0)
If Not FileExists($SFILE) Then Return SetError(2, 0, 0)
Local $SREAD_FILE = FileRead($SFILE)
Local $ASPLIT_FILE = StringSplit(StringStripCR($SREAD_FILE), @LF)
If UBound($ASPLIT_FILE) < $ILINE Then Return SetError(1, 0, 0)
Local $IENCODING = FILEGETENCODING($SFILE)
Local $HFILE = FileOpen($SFILE, $IENCODING + $FO_OVERWRITE)
If $HFILE = -1 Then Return SetError(3, 0, 0)
$SREAD_FILE = ""
For $I = 1 To $ASPLIT_FILE[0]
If $I = $ILINE Then
If $FOVERWRITE = 1 Then
If $STEXT <> "" Then $SREAD_FILE &= $STEXT & @CRLF
Else
$SREAD_FILE &= $STEXT & @CRLF & $ASPLIT_FILE[$I] & @CRLF
EndIf
ElseIf $I < $ASPLIT_FILE[0] Then
$SREAD_FILE &= $ASPLIT_FILE[$I] & @CRLF
ElseIf $I = $ASPLIT_FILE[0] Then
$SREAD_FILE &= $ASPLIT_FILE[$I]
EndIf
Next
FileWrite($HFILE, $SREAD_FILE)
FileClose($HFILE)
Return 1
EndFunc

Func _PATHFULL($SRELATIVEPATH, $SBASEPATH = @WorkingDir)
If Not $SRELATIVEPATH Or $SRELATIVEPATH = "." Then Return $SBASEPATH
Local $SFULLPATH = StringReplace($SRELATIVEPATH, "/", "\")
Local Const $SFULLPATHCONST = $SFULLPATH
Local $SPATH
Local $BROOTONLY = StringLeft($SFULLPATH, 1) = "\" And StringMid($SFULLPATH, 2, 1) <> "\"
For $I = 1 To 2
$SPATH = StringLeft($SFULLPATH, 2)
If $SPATH = "\\" Then
$SFULLPATH = StringTrimLeft($SFULLPATH, 2)
Local $NSERVERLEN = StringInStr($SFULLPATH, "\") - 1
$SPATH = "\\" & StringLeft($SFULLPATH, $NSERVERLEN)
$SFULLPATH = StringTrimLeft($SFULLPATH, $NSERVERLEN)
ExitLoop
ElseIf StringRight($SPATH, 1) = ":" Then
$SFULLPATH = StringTrimLeft($SFULLPATH, 2)
ExitLoop
Else
$SFULLPATH = $SBASEPATH & "\" & $SFULLPATH
EndIf
Next
If $I = 3 Then Return ""
If StringLeft($SFULLPATH, 1) <> "\" Then
If StringLeft($SFULLPATHCONST, 2) = StringLeft($SBASEPATH, 2) Then
$SFULLPATH = $SBASEPATH & "\" & $SFULLPATH
Else
$SFULLPATH = "\" & $SFULLPATH
EndIf
EndIf
Local $ATEMP = StringSplit($SFULLPATH, "\")
Local $APATHPARTS[$ATEMP[0]], $J = 0
For $I = 2 To $ATEMP[0]
If $ATEMP[$I] = ".." Then
If $J Then $J -= 1
ElseIf Not ($ATEMP[$I] = "" And $I <> $ATEMP[0]) And $ATEMP[$I] <> "." Then
$APATHPARTS[$J] = $ATEMP[$I]
$J += 1
EndIf
Next
$SFULLPATH = $SPATH
If Not $BROOTONLY Then
For $I = 0 To $J - 1
$SFULLPATH &= "\" & $APATHPARTS[$I]
Next
Else
$SFULLPATH &= $SFULLPATHCONST
If StringInStr($SFULLPATH, "..") Then $SFULLPATH = _PATHFULL($SFULLPATH)
EndIf
While StringInStr($SFULLPATH, ".\")
$SFULLPATH = StringReplace($SFULLPATH, ".\", "\")
WEnd
Return $SFULLPATH
EndFunc

Func _PATHGETRELATIVE($SFROM, $STO)
If StringRight($SFROM, 1) <> "\" Then $SFROM &= "\"
If StringRight($STO, 1) <> "\" Then $STO &= "\"
If $SFROM = $STO Then Return SetError(1, 0, StringTrimRight($STO, 1))
Local $ASFROM = StringSplit($SFROM, "\")
Local $ASTO = StringSplit($STO, "\")
If $ASFROM[1] <> $ASTO[1] Then Return SetError(2, 0, StringTrimRight($STO, 1))
Local $I = 2
Local $IDIFF = 1
While 1
If $ASFROM[$I] <> $ASTO[$I] Then
$IDIFF = $I
ExitLoop
EndIf
$I += 1
WEnd
$I = 1
Local $SRELPATH = ""
For $J = 1 To $ASTO[0]
If $I >= $IDIFF Then
$SRELPATH &= "\" & $ASTO[$I]
EndIf
$I += 1
Next
$SRELPATH = StringTrimLeft($SRELPATH, 1)
$I = 1
For $J = 1 To $ASFROM[0]
If $I > $IDIFF Then
$SRELPATH = "..\" & $SRELPATH
EndIf
$I += 1
Next
If StringRight($SRELPATH, 1) == "\" Then $SRELPATH = StringTrimRight($SRELPATH, 1)
Return $SRELPATH
EndFunc

Func _PATHMAKE($SZDRIVE, $SZDIR, $SZFNAME, $SZEXT)
If StringLen($SZDRIVE) Then
If Not (StringLeft($SZDRIVE, 2) = "\\") Then $SZDRIVE = StringLeft($SZDRIVE, 1) & ":"
EndIf
If StringLen($SZDIR) Then
If Not (StringRight($SZDIR, 1) = "\") And Not (StringRight($SZDIR, 1) = "/") Then $SZDIR = $SZDIR & "\"
EndIf
If StringLen($SZEXT) Then
If Not (StringLeft($SZEXT, 1) = ".") Then $SZEXT = "." & $SZEXT
EndIf
Return $SZDRIVE & $SZDIR & $SZFNAME & $SZEXT
EndFunc

Func _PATHSPLIT($SZPATH, ByRef $SZDRIVE, ByRef $SZDIR, ByRef $SZFNAME, ByRef $SZEXT)
Local $DRIVE = ""
Local $DIR = ""
Local $FNAME = ""
Local $EXT = ""
Local $POS
Local $ARRAY[5]
$ARRAY[0] = $SZPATH
If StringMid($SZPATH, 2, 1) = ":" Then
$DRIVE = StringLeft($SZPATH, 2)
$SZPATH = StringTrimLeft($SZPATH, 2)
ElseIf StringLeft($SZPATH, 2) = "\\" Then
$SZPATH = StringTrimLeft($SZPATH, 2)
$POS = StringInStr($SZPATH, "\")
If $POS = 0 Then $POS = StringInStr($SZPATH, "/")
If $POS = 0 Then
$DRIVE = "\\" & $SZPATH
$SZPATH = ""
Else
$DRIVE = "\\" & StringLeft($SZPATH, $POS - 1)
$SZPATH = StringTrimLeft($SZPATH, $POS - 1)
EndIf
EndIf
Local $NPOSFORWARD = StringInStr($SZPATH, "/", 0, -1)
Local $NPOSBACKWARD = StringInStr($SZPATH, "\", 0, -1)
If $NPOSFORWARD >= $NPOSBACKWARD Then
$POS = $NPOSFORWARD
Else
$POS = $NPOSBACKWARD
EndIf
$DIR = StringLeft($SZPATH, $POS)
$FNAME = StringRight($SZPATH, StringLen($SZPATH) - $POS)
If StringLen($DIR) = 0 Then $FNAME = $SZPATH
$POS = StringInStr($FNAME, ".", 0, -1)
If $POS Then
$EXT = StringRight($FNAME, StringLen($FNAME) - ($POS - 1))
$FNAME = StringLeft($FNAME, $POS - 1)
EndIf
$SZDRIVE = $DRIVE
$SZDIR = $DIR
$SZFNAME = $FNAME
$SZEXT = $EXT
$ARRAY[1] = $DRIVE
$ARRAY[2] = $DIR
$ARRAY[3] = $FNAME
$ARRAY[4] = $EXT
Return $ARRAY
EndFunc

Func _REPLACESTRINGINFILE($SZFILENAME, $SZSEARCHSTRING, $SZREPLACESTRING, $FCASENESS = 0, $FOCCURANCE = 1)
Local $IRETVAL = 0
Local $NCOUNT, $SENDSWITH
If StringInStr(FileGetAttrib($SZFILENAME), "R") Then Return SetError(6, 0, -1)
Local $HFILE = FileOpen($SZFILENAME, $FO_READ)
If $HFILE = -1 Then Return SetError(1, 0, -1)
Local $S_TOTFILE = FileRead($HFILE, FileGetSize($SZFILENAME))
If StringRight($S_TOTFILE, 2) = @CRLF Then
$SENDSWITH = @CRLF
ElseIf StringRight($S_TOTFILE, 1) = @CR Then
$SENDSWITH = @CR
ElseIf StringRight($S_TOTFILE, 1) = @LF Then
$SENDSWITH = @LF
Else
$SENDSWITH = ""
EndIf
Local $AFILELINES = StringSplit(StringStripCR($S_TOTFILE), @LF)
FileClose($HFILE)
Local $IENCODING = FILEGETENCODING($SZFILENAME)
Local $HWRITEHANDLE = FileOpen($SZFILENAME, $IENCODING + $FO_OVERWRITE)
If $HWRITEHANDLE = -1 Then Return SetError(2, 0, -1)
For $NCOUNT = 1 To $AFILELINES[0]
If StringInStr($AFILELINES[$NCOUNT], $SZSEARCHSTRING, $FCASENESS) Then
$AFILELINES[$NCOUNT] = StringReplace($AFILELINES[$NCOUNT], $SZSEARCHSTRING, $SZREPLACESTRING, 1 - $FOCCURANCE, $FCASENESS)
$IRETVAL = $IRETVAL + 1
If $FOCCURANCE = 0 Then
$IRETVAL = 1
ExitLoop
EndIf
EndIf
Next
For $NCOUNT = 1 To $AFILELINES[0] - 1
If FileWriteLine($HWRITEHANDLE, $AFILELINES[$NCOUNT]) = 0 Then
FileClose($HWRITEHANDLE)
Return SetError(3, 0, -1)
EndIf
Next
If $AFILELINES[$NCOUNT] <> "" Then FileWrite($HWRITEHANDLE, $AFILELINES[$NCOUNT] & $SENDSWITH)
FileClose($HWRITEHANDLE)
Return $IRETVAL
EndFunc

Func _TEMPFILE($S_DIRECTORYNAME = @TempDir, $S_FILEPREFIX = "~", $S_FILEEXTENSION = ".tmp", $I_RANDOMLENGTH = 7)
If IsKeyword($S_FILEPREFIX) Then $S_FILEPREFIX = "~"
If IsKeyword($S_FILEEXTENSION) Then $S_FILEEXTENSION = ".tmp"
If IsKeyword($I_RANDOMLENGTH) Then $I_RANDOMLENGTH = 7
If Not FileExists($S_DIRECTORYNAME) Then $S_DIRECTORYNAME = @TempDir
If Not FileExists($S_DIRECTORYNAME) Then $S_DIRECTORYNAME = @ScriptDir
If StringRight($S_DIRECTORYNAME, 1) <> "\" Then $S_DIRECTORYNAME = $S_DIRECTORYNAME & "\"
Local $S_TEMPNAME
Do
$S_TEMPNAME = ""
While StringLen($S_TEMPNAME) < $I_RANDOMLENGTH
$S_TEMPNAME = $S_TEMPNAME & Chr(Random(97, 122, 1))
WEnd
$S_TEMPNAME = $S_DIRECTORYNAME & $S_FILEPREFIX & $S_TEMPNAME & $S_FILEEXTENSION
Until Not FileExists($S_TEMPNAME)
Return $S_TEMPNAME
EndFunc
#RequireAdmin
Global $HMAIN, $HEDIT, $CLOSEBUTTON, $DIR
Local $ANSWER = MsgBox(4, "TL Simgesi Örnek Kurulumu", "Bu program bilgisayarınıza TL simgesini içeren örnek bir yazı tipi kuracaktır.")
If $ANSWER = 7 Then
Exit
EndIf
$DIR = @ProgramFilesDir & "\TCMB\"
DirCreate($DIR)
DirCreate($DIR & "WebPage")
DirCreate($DIR & "WebPage\css")
DirCreate($DIR & "WebPage\images")
FileInstall("tcmb.ico", $DIR, 1)
FileInstall("SIL Open Font License 1.1.txt", $DIR, 1)
FileInstall("Font\AbakuTLSymSans-Regular.ttf", $DIR, 1)
FileInstall("TLSimgeKisayol.exe", $DIR, 1)
FileInstall("WebPage\index.html", $DIR & "WebPage\", 1)
FileInstall("WebPage\css\buttons.css", $DIR & "WebPage\css\", 1)
FileInstall("WebPage\css\iefont.css", $DIR & "WebPage\css\", 1)
FileInstall("WebPage\css\layout.css", $DIR & "WebPage\css\", 1)
FileInstall("WebPage\css\reset.css", $DIR & "WebPage\css\", 1)
FileInstall("WebPage\css\typography.css", $DIR & "WebPage\css\", 1)
FileInstall("WebPage\images\horizontal.png", $DIR & "WebPage\images\", 1)
FileInstall("WebPage\images\logo.png", $DIR & "WebPage\images\", 1)
FileInstall("WebPage\images\secondary.png", $DIR & "WebPage\images\", 1)
FileInstall("WebPage\images\secondary-newer.png", $DIR & "WebPage\images\", 1)
FileInstall("WebPage\images\vertical-2.png", $DIR & "WebPage\images\", 1)
DirCreate(@StartMenuDir & "\TCMB\")
FileCreateShortcut($DIR & "TLSimgeKisayol.exe", @StartMenuDir & "\TCMB\TL Simgesi Kısayolunu Etkinleştir")
$ICON = $DIR & "tcmb.ico"
TraySetIcon($ICON)
INSTALLFONT($DIR & "AbakuTLSymSans-Regular.ttf")
ShellExecute($DIR & "TLSimgeKisayol.exe")
ShellExecute($DIR & "WebPage\index.html")

Func INSTALLFONT($SSOURCEFILE, $SFONTDESCRIPT = "", $SFONTSPATH = "")
Local Const $HWND_BROADCAST = 65535
Local Const $WM_FONTCHANGE = 29
If $SFONTSPATH = "" Then $SFONTSPATH = @WindowsDir & "\Fonts"
Local $SFONTNAME = StringRegExpReplace($SSOURCEFILE, "^.*\\", "")
If Not FileCopy($SSOURCEFILE, $SFONTSPATH & "\" & $SFONTNAME, 1) Then Return SetError(1, 0, 0)
Local $HSEARCH = FileFindFirstFile($SSOURCEFILE)
Local $IFONTISWILDCARD = StringRegExp($SFONTNAME, "\*|\?")
Local $ARET, $HGDI32_DLLOPEN = DllOpen("gdi32.dll")
If $HSEARCH = -1 Then Return SetError(2, 0, 0)
If $HGDI32_DLLOPEN = -1 Then Return SetError(3, 0, 0)
While $SFONTNAME <> ""
$SFONTNAME = FileFindNextFile($HSEARCH)
If @error Then ExitLoop
If $IFONTISWILDCARD Then $SFONTDESCRIPT = StringRegExpReplace($SFONTNAME, "\.[^\.]*$", "")
$ARET = DllCall($HGDI32_DLLOPEN, "Int", "AddFontResource", "str", $SFONTSPATH & "\" & $SFONTNAME)
If IsArray($ARET) And $ARET[0] > 0 Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", $SFONTDESCRIPT, "REG_SZ", $SFONTSPATH & "\" & $SFONTNAME)
EndIf
WEnd
DllClose($HGDI32_DLLOPEN)
DllCall("user32.dll", "Int", "SendMessage", "hwnd", $HWND_BROADCAST, "int", $WM_FONTCHANGE, "int", 0, "int", 0)
Return 1
EndFunc
[/codebox]

Edited March 1, 2012 by MeHMeTBeN

cemderya · March 1, 2012

bi kişide yazsın şu simgeyi

Bay_RC · March 1, 2012

[quote name='cemderya' date='01 March 2012 - 12:23 ' timestamp='1330604638' post='1163329']
bi kişide yazsın şu simgeyi
[/quote]
dediğim gibi tnctr desteklemiyor. Ama TNCTR ailesi olarak kanaatimce bu programı* biraz geliştirip tnctr'ye de eklenmesini sağlayabiliriz.

Edited March 1, 2012 by sere

El-Arabi · March 1, 2012

Haç işaretine benzemiş

Bay_RC · March 1, 2012

bence güzel olmuş euro'dan bazı be3nzerlikjler var euroda yatay bizde / şeklinde. Ama ben beğendim. Yazması kolay iyi oldu bence.

Mehmet · March 1, 2012

[quote name='cemderya' date='01 March 2012 - 14:23 ' timestamp='1330604638' post='1163329']
bi kişide yazsın şu simgeyi
[/quote]
photoshop ve metin belgesinde rahatlık yapabiliyoruz bak buda örneği
[img]http://i.imgur.com/PfDyL.jpg[/img]
metin belgesi
[img]http://i.imgur.com/h7mYJ.jpg[/img]

KintaRo · March 1, 2012

[img]http://galeri3.uludagsozluk.com/187/tl-simgesi-yar%C4%B1%C5%9Fmas%C4%B1nda-finale-kalan-tasar%C4%B1mlar_227111.jpg[/img]

bu daha guzel bence.

[quote name='MeHMeTBeN' date='01 March 2012 - 14:49 ' timestamp='1330606193' post='1163347']
photoshop ve metin belgesinde rahatlık yapabiliyoruz bak buda örneği
[img]http://i.imgur.com/PfDyL.jpg[/img]
metin belgesi
[img]http://i.imgur.com/h7mYJ.jpg[/img]
[/quote]

lafım sana değil yanlış anlama da, emolara gün doğdu, artık b yerine ß yazdıkları gibi t yerinede bu simgeyi kullanırlar artık.

bozart · March 1, 2012

şemsiye sap ına benziyor :::):))::) logo yu yapanda sap olması gerek herhalde

Edited March 1, 2012 by bozart

cibo34 · March 1, 2012

arkdaşlar başlamışlar hemen hac işaretine benziyor diye ne içiyolarsa nasıl benzetmişler tebrik ederim bence alfabedeki t harfi daha cok benziyor:) ama yazımı zor bence düz olsaydı daha kullanışlı olurdu.

rammstein984 · March 1, 2012

memleketimizin bütün sorunlarını çözdülerde eksik kalan bi tek tl simgesi vardı onuda hallettiler çılgın proje...

vinsanity-10 · March 1, 2012

[b][b]Rammstein kardeş memleketin tüm sorunları çözülsede sen yeni bir sorun bulursun nasılsa bu zihniyetle o yüzden konuya cevap yazarak kendini yormuşsun yazık olmuş [/b][/b]

MasterWoo · March 1, 2012

[img]http://www.gazeteport.com.tr/i/n/133060588469244.jpg[/img]
Ne iş ?

Edited March 1, 2012 by F.unal

muan · March 1, 2012

Yemin ediyorum ne kadar gereksiz mevzu var bizde , şimdi eskisinin neyi yetmedide böyle bir yola başvuruldu, çıkan sonuca bak sen. Neye benziyor çağrışımı nedir çözemedim.

March 1, 2012

Vatana millete hayırlı olsun diyen bir kişi bile çıkmamış yahu Ben diyorum.

bates54 · March 1, 2012

az daha uğraşsalarmış euro ya benzeyecekmiş. €

ama yine de en azından böyle birşey düşünülmüş, bence de bir logomuz olmalıydı

MasterWoo · March 1, 2012

[quote name='&ULTİMATE&' date='01 March 2012 - 15:59 ' timestamp='1330610395' post='1163407']
Vatana millete hayırlı olsun diyen bir kişi bile çıkmamış yahu Ben diyorum.
[/quote]
İş işten geçmiş saten tabikide vatana millete hayırlı olsunda çok ugraşmışlar ama benzetememişler ne euroya nede ermeni para birimine
[quote name='bates54' date='01 March 2012 - 16:04 ' timestamp='1330610668' post='1163415']
az daha uğraşsalarmış euro ya benzeyecekmiş.
ama yine de en azından böyle birşey düşünülmüş, bence de bir logomuz olmalıydı
[/quote]

Bay_RC · March 1, 2012

[quote name='muan' date='01 March 2012 - 14:20 ' timestamp='1330611609' post='1163424']
Komik bir benzetmede Vatan Gazetesi sitesinde zuaaaaa bir millet kendi para birimi ile bu kadar dalga geçiyor ise o para birimi için ne denebilir ki.

[img]http://www.tnctr.com/uploads/imgs/pre_1330611553__tl.jpg[/img]
[/quote]
alem adamsın

arkadaşlar TL Simgesi deneme sayfasında aynen şöyle bir örnek verilmiş.

[img]http://www.tnctr.com/uploads/imgs/pre_1330611788__capture1.jpg[/img]

Yukardakine göre bir tutar yazarken aynen yukarda görüldüğü gibi tl simgesini rakamın başına mı ekleyecez?

arkadaşlar TL Simgesi deneme sayfasında aynen şöyle bir örnek verilmiş.

[img]http://www.tnctr.com/uploads/imgs/pre_1330611788__capture1.jpg[/img]

Yukardakine göre bir tutar yazarken aynen yukarda görüldüğü gibi tl simgesini rakamın başına mı ekleyecez?

ozanaus · March 1, 2012

hayırlı olsun kabullenmekten başka çare yok
ama ermeni simgesini andırıyor gercekten, bu eremenı deıl de başka bır ulke de olabılırdı, bize has daha farklı bişey olabılırdı
ermenı sımgesınden tek farkı; ters ve yamuk olması

bates54 · March 1, 2012

hiçbir para biriminin simgesinin rakam başında yazıldığını görmedim. metin yazarken sonda olur simge

ama internet sitelerinde kurlar gösterilirken kolaylık olsun diye başta gözüküyor simge

ayhankorkmaz · March 1, 2012

Hep boş işlerle uğraşan idarecilerimiz var başta.
sadece göz boyama ve onuda iyi yapıyorlar helal olsun

SimpsoN_Bart · March 1, 2012

[font="Garamond"][size="3"][color="#000000"] Şaka bir yana adamlar programı AutoIt ile yazmış Şaşırdım doğrusu ayrıca kodlara baktım öyle basit fonksiyonlarda değil ama grafikt tasarımdan anlayan biri olarak tasarım hoşuma gitti basit ve sade bize yakışır.Hayırlı olsun..
[/color][/size][/font][size="3"][color="#000000"] [/color][/size]

bates54 · March 1, 2012

bu arada yeni simgenin şifresi çözülmüş arkadaşlar

[img]http://a2.sphotos.ak.fbcdn.net/hphotos-ak-ash4/s320x320/427129_311887212199329_109532732434779_801114_691313499_n.jpg[/img]

muan · March 1, 2012

Türkiye için bu kadar önemli bir konuda, bu kadar benzerlik olması ve hiç kontrol edilmemesini ayıplamamak elde değil. TL hem orjinal hemde eşi benzeri yoktu. HEMDE TÜRKÇE İDİ.

[img]http://www.tnctr.com/uploads/imgs/pre_1330613263__tl_ermeni.jpg[/img]

Sign In

Yeni Tl Simgemiz

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest _ULTIMATE_

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members