Bounce for Sakura v1.0

[faux]

Also bei mir kommen bei 250 Smilies sofort und bei 200 nach ca 2min extrem Viele Fehler....

Ich glaub du hast einen Fehler beim Verteilen der Smiles. Siehe Screenshot.

[MaBuSE]

Zitat von leddl:

Wie lange bist du nochmal gleich dabei?

[equote="im Userprofil steht ( http://www.delphipraxis.net/dpX_showuser.php?u=MaBuSE ):"]23.09.2002 (3 Jahre, 0 Wochen, 0 Tage Mitglied in der DP)[/equote]
Hat das was zu sagen?

Wer hat eigentlich diesen unsinnigen Thread geöffnet?

[leddl]

Zitat von MaBuSE:

Zitat von leddl:

Wie lange bist du nochmal gleich dabei?

[equote="im Userprofil steht ( http://www.delphipraxis.net/dpX_showuser.php?u=MaBuSE ):"]23.09.2002 (3 Jahre, 0 Wochen, 0 Tage Mitglied in der DP)[/equote]
Hat das was zu sagen?

Wer hat eigentlich diesen unsinnigen Thread geöffnet?

Krass, na dann herzlichen Glückstrumpf zum 3-jährigen
Eigentlich meinte ich, daß du die Truppe hier doch inzwischen kennen solltest

[MaBuSE]

Zitat von faux:

Also bei mir kommen bei 250 Smilies sofort und bei 200 nach ca 2min extrem Viele Fehler....

Ich glaube ich beschränke die Anzahl einfach auf 50 oder 100

Wenn der Source veröffentlicht wird, könnt ihr ja mal debuggen

[MaBuSE]

Zitat von leddl:

Zitat von MaBuSE:

Zitat von leddl:

Wie lange bist du nochmal gleich dabei?

[equote="im Userprofil steht ( http://www.delphipraxis.net/dpX_showuser.php?u=MaBuSE ):"]23.09.2002 (3 Jahre, 0 Wochen, 0 Tage Mitglied in der DP)[/equote]
Hat das was zu sagen?

Wer hat eigentlich diesen unsinnigen Thread geöffnet?

Krass, na dann herzlichen Glückstrumpf zum 3-jährigen
Eigentlich meinte ich, daß du die Truppe hier doch inzwischen kennen solltest

Danke, aber ist heite nicht der 22.09.
Da haben wir doch einen Bug in dem userprofil gefunden

[faux]

Zitat von faux:

Kann mir mal kurz wer erklären, wie die Smilies in die EXE eingebunden werden?

[faux]

Zitat von MaBuSE:

Danke, aber ist heite nicht der 22.09.
Da haben wir doch einen Bug in dem userprofil gefunden

2004 war ein Schaltjahr.

[Matze]

Und eine Anzahl von Null oder kleiner (negativ) würde ich verbieten, sonst kann man das Programm nur über'n Taskmanager beenden. Du überprüfst zwar auf einen Integer, aber dennoch würde ich die direkte (c&p kann man nur schwer abfangen) Eingabe von Buchstaben unterbinden.

Von mir auch Glückwunsch, witziger Zufall.
Nachtrag: Doch nicht Glückwunsch, gilt dann für morgen *g*

[MaBuSE]

Zitat von faux:

Kann mir mal kurz wer erklären, wie die Smilies in die EXE eingebunden werden?

Ich habe in der v2 die Grafiken als Resource eingebunden.

Es gibt ein Smileys.rc File mit folgendem Inhalt

Code:

// Hier werden die animierten Gif's als Resource eingebunden
SMILE00  RCData  "c:\TEMP\Bounce\v1.2a\Resources\bounce_fire.gif"
SMILE01  RCData  "c:\TEMP\Bounce\v1.2a\Resources\bounce_green.gif"
SMILE02  RCData  "c:\TEMP\Bounce\v1.2a\Resources\bounce_red.gif"
SMILE03  RCData  "c:\TEMP\Bounce\v1.2a\Resources\cat.gif"
SMILE04  RCData  "c:\TEMP\Bounce\v1.2a\Resources\cmp.gif"
SMILE05  RCData  "c:\TEMP\Bounce\v1.2a\Resources\Witch.gif"
SMILE06  RCData  "c:\TEMP\Bounce\v1.2a\Resources\beerchug.gif"
SMILE07  RCData  "c:\TEMP\Bounce\v1.2a\Resources\corkysm60.gif"
SMILE08  RCData  "c:\TEMP\Bounce\v1.2a\Resources\dance1.gif"
SMILE09  RCData  "c:\TEMP\Bounce\v1.2a\Resources\dance.gif"
SMILE10  RCData  "c:\TEMP\Bounce\v1.2a\Resources\dprules_summer.gif"
SMILE11  RCData  "c:\TEMP\Bounce\v1.2a\Resources\gruebel.gif"
SMILE12  RCData  "c:\TEMP\Bounce\v1.2a\Resources\icon_dance.gif"
SMILE13  RCData  "c:\TEMP\Bounce\v1.2a\Resources\icon_user.gif"
SMILE14  RCData  "c:\TEMP\Bounce\v1.2a\Resources\luxhello.gif"
SMILE15  RCData  "c:\TEMP\Bounce\v1.2a\Resources\rotaeye.gif"
SMILE16  RCData  "c:\TEMP\Bounce\v1.2a\Resources\spin2.gif"
SMILE17  RCData  "c:\TEMP\Bounce\v1.2a\Resources\wall_bash.gif"
SMILE18  RCData  "c:\TEMP\Bounce\v1.2a\Resources\wave.gif"
SMILE19  RCData  "c:\TEMP\Bounce\v1.2a\Resources\znaika.gif"
SMILE20  RCData  "c:\TEMP\Bounce\v1.2a\Resources\zwinkern.gif"

Die bounde2.dpr sieht wie folgt aus:

Delphi-Quellcode:

program bounce2;

{$R 'Smileys.res' 'Smileys.rc'}

uses
  Forms,
  XPMan,
  u_frmSplash in 'u_frmSplash.pas' {frmSplash},
  u_frmOptions in 'u_frmOptions.pas' {frmOptions};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmSplash, frmSplash);
  Application.CreateForm(TfrmOptions, frmOptions);
  Application.Run;
end.

Delphi erzeugt automatisch die Smileys.res Datei und bindet diese ein.

Im Quelltext greife ich dann so auf die Resourcen zu:

Delphi-Quellcode:

...
const
  cAppVersion    = 'v 2.0';
  cAppName       = 'Bounce for Sakura ' + cAppVersion;
  cResCount      = 21; // Anz. der Gif in Smileys.rc
  cRegKey        = '\Software\MaBuSE\BounceForSakura';
...
procedure blabla...
var
  gif: TGifImage;
begin
...
      gif := TGifImage.Create;
      try
        Tag := 5;
        gif.LoadFromResourceName(HInstance, 'SMILE05');
        Picture.Assign(gif); // ist ein TImage.Picture
      finally
        gif.Free;
      end;
...

Ist Deine Frage hiermit beantwortet?

In der v1.2 von turboPASCAL waren die Grafiken im Optionen Dialog fest verdratet.

Aber der Source von v2 wird ja bald veröffentlicht...

[faux]

Aaah.... Ok, danke...
Das wollte ich schon lange wissen wie man sowas macht...
Danke, MaBuSE....