This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version="1.0"?> | |
<CONFIG> | |
<Lazarus> | |
<ColorSchemes Version="9"> | |
<Names Count="1"> | |
<Item1 Value="MyLazarusCodeTyphonColorScheme"/> | |
</Names> | |
<Globals Version="9"> | |
<SchemeMyLazarusCodeTyphonColorScheme> | |
<ahaGutter Background="clBtnFace"/> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
DWordToHTMLColorString = | |
function(a) | |
{ | |
var red = a & 0x00FF0000; | |
var green = a & 0x0000FF00; | |
var blue = a & 0x000000FF; | |
var result = 'rgb(' + red + ', ' + green + ', ' + blue + ')'; | |
return result; | |
}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$scriptDir = [System.IO.Path]::GetDirectoryName($myInvocation.MyCommand.Definition); | |
. $scriptDir\AnotherUnit.ps1 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function ExceptionCallStackToStrings: TStringDynArray; | |
var | |
i: Integer; | |
frames: PPointer; | |
begin | |
SetLength(result, 1 + ExceptFrameCount); | |
frames := ExceptFrames; | |
result[0] := BackTraceStrFunc(ExceptAddr); | |
for i := 0 to ExceptFrameCount - 1 do | |
result[i + 1] := BackTraceStrFunc(frames[i]); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use std::io::File; | |
use std::sync::Arc; | |
use std::io::stdio::println; | |
use std::iter::AdditiveIterator; | |
static function_headers_marker: &'static str = "{$region functions_header}"; | |
static function_headers_end_marker: &'static str = "{$endRegion functions_header}"; | |
fn write_line(string: String) { | |
let string = string.as_slice(); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
If you use Cygwin and SSH and you are frustrated because you lose server connection after some time, then this could help you: | |
create the file cygwin/etc/ssh_config | |
place the following text: | |
KeepAlive yes | |
ServerAliveInterval 60 | |
restart cygwin shell |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program Project1; | |
{$appType console} | |
uses | |
FastMM4, SysUtils; | |
type | |
TFoo = object | |
s, ss: string; // these fields are released |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
These settings should be changed to prevent Firefox for Android from releasing tabs | |
browser.tabs.expireTime = seconds; 0 is never | |
toolkit.browser.contentViewExpire = seconds; 0 is never | |
:multi-process: | |
browser.tabs.remote.autostart true,false | |
browser.tabs.remote.force-enable true,false | |
dom.ipc.processCount 1...any |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package main | |
import ( | |
"os" | |
"os/signal" | |
"syscall" | |
) | |
func InstallShutdownReceiver(receiver func()) { | |
c := make(chan os.Signal, 1) |
OlderNewer