SubClassed Control

[EWeiss]

Neue Version mit mehreren Komponenten auf der Form hochgeladen.

gruss

[EWeiss]

Nun Open Source!

Viel Spass damit.

gruss

[EWeiss]

Auch wenn da nicht gerade viele Meinungen kommen.
Werde das teil mal um ComboBoxen erweitern und zu Ctrl_Hook umbenennen.

Hab im moment eh nix zu tun.

Muss das Frame und das Bitmap noch Rendern dann passt das schon :)

gruss

[Thom]

Zitat:

Zitat von EWeiss (Beitrag 1109948)

Auch wenn da nicht gerade viele Meinungen kommen.

Ich finde Deine Arbeit toll! Mach' bitte weiter so! Mit Deinem Piano kann ich leider nicht allzuviel anfangen - ich bin nämlich völlkommen unmusikalisch -, aber auch dort bin ich von der Grafik und der gesamten Gestaltung total begeistert. :thumb:

[EWeiss]

Zitat:

Zitat von Thom (Beitrag 1109950)

Zitat:

Zitat von EWeiss (Beitrag 1109948)

Auch wenn da nicht gerade viele Meinungen kommen.

Ich finde Deine Arbeit toll! Mach' bitte weiter so! Mit Deinem Piano kann ich leider nicht allzuviel anfangen - ich bin nämlich völlkommen unmusikalisch -, aber auch dort bin ich von der Grafik und der gesamten Gestaltung total begeistert. :thumb:

Ich bekomme meine Arbeit schon verteilt habe ja auch noch Anhänger im Chinesischen Raum ;)

Sieht jetzt in etwa so aus!

Delphi-Quellcode:

  ScrbMemoHook: IHookedScrollbar;
  ComboHook   : IHookedCombo;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  FilePath: string;
begin

  ScrbMemoHook := HookedScroolBar_Create;
  if assigned(ScrbMemoHook) then
  begin
    FilePath := ExtractFilePath(ParamStr(0));

    // Memo1
    // Vertikale ScrollBar Images
    ScrbMemoHook.VTrack := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\VTrack.png');
    ScrbMemoHook.VBtnUp := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\VBtnUp.png');
    ScrbMemoHook.VThumb := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\VThumb.png');
    ScrbMemoHook.VBtnDown := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\VBtnDown.png');

    // Horizontale ScrollBar Images
    ScrbMemoHook.HTrack := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\HTrack.png');
    ScrbMemoHook.HBtnLeft := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\HBtnLeft.png');
    ScrbMemoHook.HThumb := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\HThumb.png');
    ScrbMemoHook.HBtnRight := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\HBtnRight.png');

    ScrbMemoHook.Sizer := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Sizer.png');

    ScrbMemoHook.SetScrollBarObj(Memo1);
    ScrbMemoHook.Connect;
  end;

  ComboHook := HookedCombo_Create;
  if assigned(ComboHook) then
  begin
    ComboHook.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
    ComboHook.FrameColor := $FCAC65;
    ComboHook.FrameHighLite := $FFE9D6;

    ComboHook.SetComboParentObj(self);
    ComboHook.Connect;
  end;

end;

Kann man dann wie vorher auch mit ComboBox, DriveCombobox usw.. machen.
Nur in diesen Fall erstelle ich eine Collection also enumeriere alle Controls die eine Combo enthalten
und verarbeite die in einem Rutsch.
Deshalb übergebe ich diesmal als Object 'self' das erleichtert mir das parsen.

gruss

[EWeiss]

Neue Version oben ..
Verwendung auf eigene Gefahr!

gruss

[wicht]

Ich finde das Ding auch schick - auch wenn ich nicht denke, dass ich es benutzen werde, gibt einfach nichts von mir wo es reinpassen würde.
Für das Open-Source gibt es übrigens :thumb::thumb::thumb: !

[EWeiss]

Zitat:

Zitat von wicht (Beitrag 1110614)

Ich finde das Ding auch schick - auch wenn ich nicht denke, dass ich es benutzen werde, gibt einfach nichts von mir wo es reinpassen würde.
Für das Open-Source gibt es übrigens :thumb::thumb::thumb: !

Danke ...
Ein paar kleine Sachen werden da wohl noch im argen sein.
Aber das kann ja jeder oder einer selber fixen wenn er was findet.

Bin nur Hobby Schreiber :)

PS:
Auch wenn da Hook steht mit Hook hat es im eigentlichen Sinne nichts zu tun.

gruss

[EWeiss]

ne neue MouseWheel für ScrollBars addiert.
Wenn ich in der nächsten zeit noch Bock hab dann implementiere ich noch die Checkboxen

gruss

[Cylence]

Hallo,

ich hab mir das eben angeschaut, also erstmal ... GEIL :-) echt hammergeil, das such ich eigentlich schon ne ganze weile, ich wollte in meinem Player die Playliste schwarz machen, aber wegen den Scrollbars sieht das sche... aus, aber mit dem hier würde es jetzt endlich gehen. Allerdings hab ich das hier eben unter Win7 64 angesehen und habe auch hier den 1 pixel nach rechts verschoben, aber meine Einstellungen im Windows für die Scrollbars ist auf standart. Gibt es hierzu schon einen fix? Kann man evtl die größe der scrollbar auslesen und die von dir daran anpassen? Auf jeden Fall mal Kompliment, tolle Arbeit!!!


Gruß

tom