abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
dnes 00:22 | Nová verze

Byla vydána verze 1.0 svobodné multiplatformní závodní hry SuperTuxKart (STK). Přehled novinek v příspěvku na blogu. Zdůraznit lze především víceuživatelský mód umožňující hrát hru po síti. Videoprezentace nejnovější verze na YouTube.

Ladislav Hagara | Komentářů: 3
včera 15:55 | Komunita

Ke zhlédnutí jsou videozáznamy grafických rozhraní telefonů, zatím jenom vývojových desek, Librem 5 a PinePhone. Librem 5 za 649 dolarů by měl být aktuálně k dispozici ve třetím čtvrtletí 2019. Při spuštění kampaně se mluvilo o lednu 2019. PinePhone za 150 dolarů by měl být odesílán ve čtvrtém čtvrtletí 2019.

Ladislav Hagara | Komentářů: 0
19.4. 20:22 | Nová verze

Po dvou měsících vývoje od vydání verze 6.0.0 byla oficiálně vydána nová verze 6.1.0 správce digitálních fotografií a nově i videí digiKam (digiKam Software Collection, Wikipedie). Přehled novinek i s náhledy v oficiálním oznámení. Vývojáři zdůrazňují nové API pro rozšíření DPlugins nahrazující KIPI. Ke stažení je také balíček ve formátu AppImage. Stačí jej stáhnout, nastavit právo ke spuštění a spustit.

Ladislav Hagara | Komentářů: 0
19.4. 19:55 | Nová verze

Byla vydána verze 1.16.0, tj. první stabilní verze nové řady 1.16, multiplatformního multimediálního frameworku GStreamer (Wikipedie). Z novinek lze zdůraznit vylepšení podpory WebRTC nebo AV1. Podrobnosti v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
19.4. 11:55 | Nová verze

Po více než 3 letech od vydání verze 1.3.0 byla vydána nová stabilní verze 1.4 multimediálního přehrávače MPlayer (Wikipedie). Nejnovější verze přináší kompatibilitu s verzí 4.1 a také s aktuální vývojovou verzí multiplatformní multimediální knihovny FFmpeg (Wikipedie).

Ladislav Hagara | Komentářů: 15
18.4. 23:55 | Komunita

Mozilla oznámila, že projekt Things byl přejmenován na WebThings. Nové jméno by mělo zdůraznit, že se nejedná pouze o projekt IoT (Internet věcí), ale o WoT (Web věcí). Současně byla vydána WebThings Gateway (GitHub) ve verzi 0.8 pro Raspberry Pi.

Ladislav Hagara | Komentářů: 0
18.4. 21:11 | Nová verze

Byl vydán balík KDE Aplikace ve verzi 19.04. Shrnuje práce za poslední čtyři měsíce: opravy chyb, mj. ve správci souborů Dolphin, prohlížeči dokumentů (nejen PDF) Okular nebo prohlížeči obrázků Gwenview – tyto dostaly např. lepší podporu dotykových obrazovek. Významného přepracování se dočkal editor videa Kdenlive.

Fluttershy, yay! | Komentářů: 3
18.4. 16:22 | Nová verze

Byla vydána verze 19.04 linuxové distribuce Ubuntu a oficiálních odnoží Ubuntu Budgie, Kubuntu, Lubuntu, Ubuntu Kylin, Ubuntu MATE, Ubuntu Studio a Xubuntu. Kódový název Ubuntu 19.04 je Disco Dingo. Přehled novinek a odkazy ke stažení v poznámkách k vydání. Ubuntu 19.04 bude podporováno 9 měsíců, tj. do ledna 2020.

Ladislav Hagara | Komentářů: 10
18.4. 09:55 | Nová verze

Byla vydána verze 8.0 sady aplikací pro SSH komunikaci OpenSSH. Řešena je bezpečnostní chyba CVE-2019-6111 v scp. Přidána byla experimentální podpora výměny klíčů, která je odolná vůči kvantovým počítačům (Streamlined NTRU Prime 4591^761 a X25519). Výchozí délka nově generovaných RSA klíčů je 3072 bitů.

Ladislav Hagara | Komentářů: 0
17.4. 22:44 | Komunita

Zend Framework, open source objektově orientovaný webový aplikační framework implementovaný v PHP, byl předán neziskovému technologickému konsorciu Linux Foundation. Framework se pod novým názvem Laminas v průběhu několika měsíců stane oficiálním projektem konsorcia.

Ladislav Hagara | Komentářů: 4
Používáte headset pro virtuální realitu?
 (1%)
 (3%)
 (1%)
 (19%)
 (0%)
 (75%)
Celkem 216 hlasů
 Komentářů: 12, poslední 18.4. 01:19
Rozcestník

OpenOffice Impress - škálování obrázku na velikost slidu

11.3.2009 12:14 | Přečteno: 1106× | OpenOffice | poslední úprava: 11.3.2009 12:47

Funkce uveřejněného makra: Vybraný obrázek (či jiný objekt) zvětší tak, aby se právě vešel na velikost slidu. Přitom ponechá původní poměr stran.

Podotýkám, že nikdy nebylo mým přáním studovat dokumentaci k OpenOffice Basic. A ani v tomto směru nehodlám směřovat svůj osud. Nicméně když jsem se ocitl před problémem, který bez napsání vlastního makra vyřešit nešel, co mi zbývalo.

Dostal jsem do ruky powerpointovou prezentaci (mimochodem ve výsledku úspěšnou), která kromě textových slidů obsahovala velké množství samostatných fotografií. Nicméně autor je ponechal tak, jak je vložil, tudíž v závislosti na rozlišení značně rozsah slidu přesahovaly či ho naopak nezakrývaly celý. Půl hodiny jsem trávil hledáním řešení přes standardní funkce OO, nicméně k výsledku jsem se nedobral. Ani google mi v tomto nepomohl (nenabídl ani makro). Než manuálně (a nepřesně) měnit roztahovat desítky obrázků, rozhodl jsem se sáhnout k systémovějšímu řešení.

Výsledkem je makro CenterScaledObject, které přesně plní zadání: je-li v OpenOffice Impress (či OpenOffice Draw) vybraný právě jeden objekt, po spuštění makra jej zvětší na velikost slidu, zachová poměr velikostí a umístí jej do středu. Je-li vybráno více objektů nebo žádný, ohlásí chybu.

Uveřejňuji zde makro v dobré víře, že by někomu mohlo být užitečné, případně že někdo v něm najde mušky, které by stály za opravení nebo vylepšení (např. je možné, aby různé slidy v prezentaci měly různou velikost => má smysl se ptát po slidu, na kterém obrázek je?).

'Scales selected object so that it just fits into the slide while keeping the aspect ratio.
Sub CenterScaledObject
	'Get selection
	oSelection = ThisComponent.CurrentSelection

	'Check for errors - either there is nothing selected or there are too many objects
	If isNull(oSelection) Then
		MsgBox("No object selected.")
	ElseIf oSelection.count <> 1 Then
		MsgBox("Too many objects selected - select just one.")
	'Now there should be only one object selected    	
	Else
		'The selected object will be represented by selected
		selected = oSelection.getByIndex(0)
		
		'Select the page so that we know to which to scale	
		page = ThisComponent.drawPages(0)
		'***TODO: Possibly there are slides of different sizes?
		'***However we take the size of the first one

		'Get actual size of the object
		w = selected.Size.Width
		h = selected.Size.Height
		
		Dim size As New com.sun.star.awt.Size    'New size
		Dim point As New com.sun.star.awt.Point   'New position
		
		'Default values - only one will change
		point.x = 0
		point.y = 0
		
		'Calculate the position and size
		If (w / h) > (page.Width / page.Height) Then
			size.Width = page.Width
			size.Height = Int(page.Width * h / w)
			point.y = Int((page.Height - size.Height) / 2)
		Else
			size.Height = page.Height
			size.Width = Int(page.Height * w / h)
			point.x = Int((page.Width - size.Width) / 2)
		End If
		
		'Resize
		selected.setSize(size)
		'And move to the center
		selected.Position = point
		'DONE
	End if
End Sub
       

Hodnocení: 100 %

        špatnédobré        

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

Komentáře

Vložit další komentář

ISSN 1214-1267   www.czech-server.cz
© 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.