Beogradsko programiranje: VLC komande

Prečice na tastaturi koje će vam olakšati i ubrzati rad sa VLC Media Player-om

na Windows operativnom sistemu.

Reprodukcija

Space - Pauza ili nastavak reprodukcije
S - Stop
+ - Brža reprodukcija
- - Sporija reprodukcija
= - Normalna brzina reprodukcije
Shift + leva strelica - Nazad 3 sekunde
Shift + desna strelica - Napred 3 sekunde
Alt + leva strelica - Nazad 10 sekundi
Alt + desna strelica - Napred 10 sekundi
Control + leva strelica - Nazad 1 minut
Control + desna strelica - Napred 1 minut
Control + Alt + leva strelica - Nazad 5 minuta
Control + Alt + desna strelica - Napred 5 minuta
N - Sledeće
P - Prethodno
T - Pozicija / vreme
L - Normalno / ponovi sve /ponovi jednu datoteku
E - Sledeći frejm
Shift + M - Meni DVD-a
Shift + O - Prethodni naslov
Shift + B - Sledeći naslov
Shift + P - Prošlo poglavlje
Shift + N - Sledeće poglavlje
Ctrl + Q - Izlaz

Zvuk

J - Smanjenje kašnjenja zvuka
B - Promena zvučne pozadine
Shift + A - Promena izvora
Ctrl + Strelica gore - Pojačavanje zvuka
Ctrl + Strelica dole - Stišavanje zvuka
M - Sasvim utišajte zvuk

Ekran

I - Prikaz kontrola na celom ekranu
Z - Zumiranje slike
Shift + Z - Resetovanje zuma
F - Aktiviranje ili deaktiviranje prikaza na celom ekranu
Escape - Izazak iz prikaza preko celog ekran / menija
Page Up - Smanjenje prozora
Page Down - Proširivanje prozora

Liste reprodukcije

Ctrl + F1 - F10 - Postavljanje oznaku od 1 do 10
F1 - F10 - Reprodukcija od oznake 1 do 10
Ctrl + W - Čišćenje liste reprodukcije
Ctrl + Y - Snimanje liste reprodukcije

Titlovi

Ctrl + 0 - Resetovanje veličinu titlova
Ctrl + točkić miša na gore - Povećavanje veličine titlova
Ctrl + točkić miša na dolje - Smanjenje veličine titlova
G - Smanjenje kašnjenja titlova
H - Povećanje kašnjenja titlova
Shift + H - Sinhronizovanje titlova
V - Menjanje titlova
Shift + V - Aktiviranje / deaktiviranje prikaza titlova

Meni i podešavanja

Ctrl + B - Oznake
Ctrl + C - Otvaranje uređaja za snimanje
Ctrl + D - Otvaranje diska
Ctrl + E - Prošireni meni
Ctrl + F - Otvaranje mape
Ctrl + H - Prikaz / sakrivanje menija
Ctrl + I - Informacija o medijima
Ctrl + J - Informacija o kodecima
Ctrl + L - Prikaz / sakrivanje spiska za reprodukciju
Ctrl + M - Poruke
Ctrl + N - Otvaranje strima na mreži
Ctrl + O - Otvaranje datoteke
Ctrl + P - Meni
Ctrl + R - Konvertovanje
Ctrl + S - Striming
Ctrl + T - Pomeranje na neko vreme reprodukcije
Ctrl + V - Obeležavanje lokacije
Ctrl + Shift + W - VLM konfigurator
Alt + A - Audio meni
Alt + H - Meni za pomoć
Alt + L - Meni za reprodukciju
Alt + M - Meni za medije
Alt + S - Meni za alate
Alt + T - Meni za titlove
Shift + S - Izrada skirnšota
Shift + R - Snimanje

https://stackoverflow.com/questions/10516968/delphi-how-add-text-to-an-image-and-save-the-new-image

uses

PNGImage;

procedure TForm1.Button1Click(Sender: TObject);

var

PNGImage: TPNGImage;

BlobStream: TMemoryStream;

begin

// create the PNG image instance

PNGImage := TPNGImage.Create;

try

// assuming you have in the BlobStream variable the image from a DB loaded

PNGImage.LoadFromStream(BlobStream);

// setup the text background to be transparent

PNGImage.Canvas.Brush.Style := bsClear;

// optionally configure the font

PNGImage.Canvas.Font.Size := 11;

PNGImage.Canvas.Font.Color := clRed;

PNGImage.Canvas.Font.Style := [fsBold];

// and render it to the image's canvas

PNGImage.Canvas.TextOut(5, 5, 'SomeText');

// save this modified image to the file

PNGImage.SaveToFile('c:\picture.png');

finally

// and finally free the PNG image instance

PNGImage.Free;

end;

//------------------

uses

GraphUtil, PNGImage;

procedure CreateCard(const AFileFile: string; AImage: TPNGImage;

const AName, ASurname: string);

begin

with TPNGImage.CreateBlank(COLOR_RGB, 8, 330, 160) do

try

GradientFillCanvas(Canvas, clWhite, $000080FF,

Canvas.ClipRect, gdVertical);

Canvas.StretchDraw(Rect(18, 18, 108, 108), AImage);

Canvas.Pen.Width := 2;

Canvas.Brush.Style := bsClear;

Canvas.Rectangle(5, 5, Width - 4, Height - 4);

Canvas.Font.Size := 12;

Canvas.Font.Style := [fsBold];

Canvas.TextOut(110, 30, 'Form: ' + AName + ' :.');

Canvas.TextOut(125, 60, 'Genus: ' + ASurname + ' :.');

SaveToFile(AFileFile);

finally

Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

PNGImage: TPNGImage;

begin

PNGImage := TPNGImage.Create;

try

// here you will load the image blob (by using LoadFromStream)

// instead of LoadFromFile

PNGImage.LoadFromFile('d:\llamas.png');

CreateCard('d:\visit-card.png', PNGImage, 'Alpaca', 'Lama');

finally

PNGImage.Free;

end;

//-----------------------------------

// Second

// https://www.swissdelphicenter.ch/en/showcode.php?id=601

//-----------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Image1.Picture.Bitmap.Canvas do
  begin
    Font.Color  := clBlue;
    Brush.Style := bsclear;
    Font.Size   := 13;
    TextOut(10, 10, 'Transparent Text!!');
  end;
end;

{**** Or / Oder ****}

procedure TForm1.Button1Click(Sender: TObject);
var
  OldBkMode: integer;
begin
  with Image1.Picture.Bitmap do
  begin
    Canvas.Font.Color := clBlue;
    OldBkMode         := SetBkMode(Canvas.Handle, Ord(TRANSPARENT));
    Canvas.Font.Size  := 13;
    Canvas.TextOut(10, 10, 'Transparent Text!!');
    SetBkMode(Canvas.Handle, OldBkMode);
  end;
end;

Beogradsko programiranje