Entwickler-Ecke
Multimedia / Grafik - Designe von Unit Form Ändern
Naxor - Mi 11.03.09 13:24
Titel: Designe von Unit Form Ändern
Hi ich bins mal wieder
ich habe ein neues problem ich möchte gern das Designe von meiner Form ändern habe auch ein beispiele als Pic gemacht.
1 x Bild mit design
1 x Bild mit Fehlermeldung
Bitte die Adressen manuel im Browser eingeben
(
http://wownaxor.co.cc/images/1.JPG)
(
http://wownaxor.co.cc/images/2.JPG)
die quellcode´s sind richtig er führ auch diese exe aus aber halt nicht mit dem neuem Designe, wie kann ich das design ändern gibt es da extra packages für wenn ja wo bekomme ich diese
Mein Quellcode
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, sButton, sSkinProvider, sSkinManager,
sMemo, ComCtrls, sPageControl, sRichEdit, sLabel, sPanel, acPNG, shellapi;
type
TForm1 = class(TForm)
Image1: TImage;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
sLabel1: TsLabel;
Image2: TImage;
sLabel2: TsLabel;
Image3: TImage;
sLabel3: TsLabel;
Image4: TImage;
sLabel4: TsLabel;
procedure sLabel3Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure sLabel4Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.sLabel3Click(Sender: TObject);
begin
ShellExecute(Handle, 'open',
'http://www.google.de', nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
ShellExecute(Handle, 'open',
'http://www.google.de', nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.sLabel4Click(Sender: TObject);
begin
Form2.ShowModal;
end;
end. |
Ich benutze
Borland Delphi 2007 Enterprise
und
Borland Developer Studio 2006 (Turbo Delphi 2006)
was Braucht ihr noch für infos
PS. hoffe ist jetzt besser
MFG Naxor
Gausi - Mi 11.03.09 13:28
Ähm, was? :gruebel:
Lies dir dein Posting bitte nochmal selbst durch und überlege dann, was andere damit anfangen können. Was für Beispiele und Vorlagen hast du gefunden? Wann kommt die Fehlermeldung? Was hast du probiert, und wie sieht dein Quellcode aus?
Naxor - Mi 11.03.09 14:20
Ok konnte mein Problem selbst lösen musste noch ein package installieren jetzt gehts
PS. Thema kann gelöscht werden
Massiv - Do 12.03.09 15:56
Hallo
geiles design auf deisem bild
http://wownaxor.co.cc/images/1.JPG
Wie hast du das hinbekommen, dass die buttons so geil aussehen beziheungseweise das die rund sind und son vista zeichen haben?
kannst du mir pls auch saagne wie man bilder einfügen kann?
bin newcommer und verwende delphi 7 bitte schrittweise erklären
PS : wäre schön wenns auch ohne komponente gehen würde aweil wci hdas projekt in der schule mache und wir dürfen dort nix runterladen!
Naxor - Mo 16.03.09 15:53
gut da ich die Lösung selbst gefunden hab werd ich hier auch ne Lösung zu schreiben
Die Windows Vista Button sind normale jpeg bilder.
Um das Design so hin zu bekommen braucht mann für delphi einen Tskinmanager
download hier:
http://www.alphaskins.com/sfiles/alite.zip
Die Vista grafig Button gibs hier:
// wird nach getragen muss ich erst hochladen
So jetzt zur erklärung wie mann Bilder einfügt.
Öffne Delphi starte deine Applikation. oben in dem reiter für Komponeten gibs ein feld das Additional heist dort findest du dann Images (ExtCtrls)
füge es in deiner Form ein. jetzt musst du Links da wo du alles einstellungen verändern kannst. Die stelle wo du Picture Findest dort wählt mann sein Image das im Form angezeigt wird.
wenn du diese dann als button verwenden willst dann doppeklick auf das Image.
um das bild als Button zu benutzen füge auch bei (uses) "
shellapi," ein
das ganze müsste dann so ungefähr aussehen bei deiner Unit1.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, shellapi, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Image1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open',
'http://google.de', nil, nil, SW_SHOWNORMAL);
end;
end. |
hier noch ne kleine hilfe zum downloaden
So ich hoffe ich konnte dir ein wenig helfen
mfg Naxor
Massiv - Mo 16.03.09 19:02
Naxor, danke a
aber dein Vista bild ist ja viereckig, stimmts? und wie hast du das hinbekommen das das in delphi rund dargestellt ist?
Naxor - Di 17.03.09 04:10
das was ich in der demo eingefügt habe ist eckig das runde bekommst du mit Photoshop cs3
oder mit der Kostenlosen software paint.net hin musst nur den das weiße bzw das überflüssige dort mit dem radiergummi entfernen und dann speicher dann wird es auch in delphi rund angezeigt werde morgen die runden button als download anbieten
MFG naxor
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!