converterunit.pas

skin components for design of your applicastions

   if BitmapIsOpaque(B2) then
    SkinIni.WriteString('DropDown_N','Transparent','0');
   B2.Free;
   SkinIni.WriteString('DropDown_N','Element1','E1,IMAGE');
   SkinIni.WriteString('DropDown_N','E1.Path',SavedShort(_other+'\'+_dropdown+'_n.png',MyName));
   SkinIni.WriteString('_MultiState_DropDown','NStyle','DropDown_N');
  end;
 if Count>=2 then
  begin
   //Highlighted
   B2:=GetSubBitmap(Bitmap,Layout,Count,1);
   SaveBitmap(B2,DirPath+MyName+'\'+_other+'\'+_dropdown+'_h.png',IsTransp,TranspColor);
   if BitmapIsOpaque(B2) then
    SkinIni.WriteString('DropDown_H','Transparent','0');
   B2.Free;
   SkinIni.WriteString('DropDown_H','Element1','E1,IMAGE');
   SkinIni.WriteString('DropDown_H','E1.Path',SavedShort(_other+'\'+_dropdown+'_h.png',MyName));
   SkinIni.WriteString('_MultiState_DropDown','HStyle','DropDown_H');
  end;
 if Count>=3 then
  begin
   //Down
   B2:=GetSubBitmap(Bitmap,Layout,Count,2);
   SaveBitmap(B2,DirPath+MyName+'\'+_other+'\'+_dropdown+'_d.png',IsTransp,TranspColor);
   if BitmapIsOpaque(B2) then
    SkinIni.WriteString('DropDown_D','Transparent','0');
   B2.Free;
   SkinIni.WriteString('DropDown_D','Element1','E1,IMAGE');
   SkinIni.WriteString('DropDown_D','E1.Path',SavedShort(_other+'\'+_dropdown+'_d.png',MyName));
   SkinIni.WriteString('_MultiState_DropDown','DStyle','DropDown_D');
  end;
 if Count>=4 then
  begin
   //Read-only
   B2:=GetSubBitmap(Bitmap,Layout,Count,3);
   SaveBitmap(B2,DirPath+MyName+'\'+_other+'\'+_dropdown+'_r.png',IsTransp,TranspColor);
   if BitmapIsOpaque(B2) then
    SkinIni.WriteString('DropDown_R','Transparent','0');
   B2.Free;
   SkinIni.WriteString('DropDown_R','Element1','E1,IMAGE');
   SkinIni.WriteString('DropDown_R','E1.Path',SavedShort(_other+'\'+_dropdown+'_r.png',MyName));
   SkinIni.WriteString('_MultiState_DropDown','RStyle','DropDown_R');
  end;
 Bitmap.Free;
 if CheckBox7.Checked then
  begin
   SkinIni.WriteString('_Button','HighlightInButtonStepsNum','8');
   SkinIni.WriteString('_Button','HighlightOutButtonStepsNum','4');
   SkinIni.WriteString('_Button','CheckButtonStepsNum','8');
   SkinIni.WriteString('_Button','UncheckButtonStepsNum','6');
   SkinIni.WriteString('_Button','DownButtonStepsNum','4');
   SkinIni.WriteString('_Button','UpButtonStepsNum','2');
   SkinIni.WriteString('_Button','EnableButtonStepsNum','8');
   SkinIni.WriteString('_Button','DisableButtonStepsNum','8');
   SkinIni.WriteString('_Button','FocusButtonStepsNum','8');
   SkinIni.WriteString('_Button','UnfocusButtonStepsNum','4');
   SkinIni.WriteString('_Button','HighlightInGlyphStepsNum','8');
   SkinIni.WriteString('_Button','HighlightOutGlyphStepsNum','4');
   SkinIni.WriteString('_Button','CheckGlyphStepsNum','8');
   SkinIni.WriteString('_Button','UncheckGlyphStepsNum','6');
   SkinIni.WriteString('_Button','DownGlyphStepsNum','4');
   SkinIni.WriteString('_Button','UpGlyphStepsNum','2');
   SkinIni.WriteString('_Button','EnableGlyphStepsNum','8');
   SkinIni.WriteString('_Button','DisableGlyphStepsNum','8');
   SkinIni.WriteString('_Button','FocusGlyphStepsNum','8');
   SkinIni.WriteString('_Button','UnfocusGlyphStepsNum','4');
  end;
end;

procedure TForm1.ProcessCheckBox(const MyName:String;SkinIni,TmpIni:TIniFile);
var    FName:String;
      Bitmap:TBitmap;
          B2:TBitmap;
          S1:String;
      Layout:String;
       Count:Integer;
    IsTransp:Boolean;
 TranspColor:TColor;
begin
 FName:=IniClassProp(TmpIni,'button.checkbox','ImageFile1','');
 if FName<>'' then
  begin
   Bitmap:=LoadBitmap(FName);
   if Bitmap=nil then
    begin
     Memo1.Lines.Add('CHECKBOX image not found!');
     exit;
    end;
   Layout:=IniClassProp(TmpIni,'button.checkbox','imagelayout','');
   Count:=StrToIntDef(IniClassProp(TmpIni,'button.checkbox','imageCount',''),0);
   IsTransp:=SameText(IniClassProp(TmpIni,'button.checkbox','Transparent',''),'true');
   TranspColor:=GetTColor(IniClassProp(TmpIni,'button.checkbox','TransparentColor','255 0 255'));
   if Count>=1 then
    begin
     //Normal Unfocused Unchecked
     B2:=GetSubBitmap(Bitmap,Layout,Count,0);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\nuu.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_NUU','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_NUU','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_NUU','E1.Path',SavedShort(_checkbox+'\nuu.png',MyName));
     SkinIni.WriteString('_CheckBox','NUU_Glyph','CheckBoxGlyph_NUU');
     SkinIni.WriteString('_MultiStateCheck_CheckBox','NUStyle','CheckBoxGlyph_NUU');
    end;
   if Count>=2 then
    begin
     //Highlighted Unfocused Unchecked
     B2:=GetSubBitmap(Bitmap,Layout,Count,1);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\huu.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_HUU','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_HUU','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_HUU','E1.Path',SavedShort(_checkbox+'\huu.png',MyName));
     SkinIni.WriteString('_CheckBox','HUU_Glyph','CheckBoxGlyph_HUU');
     SkinIni.WriteString('_MultiStateCheck_CheckBox','HUStyle','CheckBoxGlyph_HUU');
    end;
   if Count>=3 then
    begin
     //Down Focused Unchecked
     B2:=GetSubBitmap(Bitmap,Layout,Count,2);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\dfu.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_DFU','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_DFU','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_DFU','E1.Path',SavedShort(_checkbox+'\dfu.png',MyName));
     SkinIni.WriteString('_CheckBox','DFU_Glyph','CheckBoxGlyph_DFU');
     SkinIni.WriteString('_MultiStateCheck_CheckBox','DUStyle','CheckBoxGlyph_DFU');
    end;
   if Count>=4 then
    begin
     //Read-only Unfocused Unchecked
     B2:=GetSubBitmap(Bitmap,Layout,Count,3);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\ruu.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_RUU','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_RUU','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_RUU','E1.Path',SavedShort(_checkbox+'\ruu.png',MyName));
     SkinIni.WriteString('_CheckBox','RUU_Glyph','CheckBoxGlyph_RUU');
     SkinIni.WriteString('_MultiStateCheck_CheckBox','RUStyle','CheckBoxGlyph_RUU');
    end;
   //
   if Count>=5 then
    begin
     //Normal Unfocused Checked
     B2:=GetSubBitmap(Bitmap,Layout,Count,4);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\nuc.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_NUC','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_NUC','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_NUC','E1.Path',SavedShort(_checkbox+'\nuc.png',MyName));
     SkinIni.WriteString('_CheckBox','NUC_Glyph','CheckBoxGlyph_NUC');
     SkinIni.WriteString('_MultiStateCheck_CheckBox','NCStyle','CheckBoxGlyph_NUC');
    end;
   if Count>=6 then
    begin
     //Highlighted Unfocused Checked
     B2:=GetSubBitmap(Bitmap,Layout,Count,5);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\huc.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_HUC','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_HUC','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_HUC','E1.Path',SavedShort(_checkbox+'\huc.png',MyName));
     SkinIni.WriteString('_CheckBox','HUC_Glyph','CheckBoxGlyph_HUC');
     SkinIni.WriteString('_MultiStateCheck_CheckBox','HCStyle','CheckBoxGlyph_HUC');
    end;
   if Count>=7 then
    begin
     //Down Focused Checked
     B2:=GetSubBitmap(Bitmap,Layout,Count,6);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\dfc.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_DFC','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_DFC','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_DFC','E1.Path',SavedShort(_checkbox+'\dfc.png',MyName));
     SkinIni.WriteString('_CheckBox','DFC_Glyph','CheckBoxGlyph_DFC');
     SkinIni.WriteString('_MultiStateCheck_CheckBox','DCStyle','CheckBoxGlyph_DFC');
    end;
   if Count>=8 then
    begin
     //Read-only Unfocused Checked
     B2:=GetSubBitmap(Bitmap,Layout,Count,7);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\ruc.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_RUC','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_RUC','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_RUC','E1.Path',SavedShort(_checkbox+'\ruc.png',MyName));
     SkinIni.WriteString('_CheckBox','RUC_Glyph','CheckBoxGlyph_RUC');
     SkinIni.WriteString('_MultiStateCheck_CheckBox','RCStyle','CheckBoxGlyph_RUC');
    end;
   //
   if Count>=9 then
    begin
     //Normal Unfocused Grayed
     B2:=GetSubBitmap(Bitmap,Layout,Count,8);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\nug.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_NUG','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_NUG','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_NUG','E1.Path',SavedShort(_checkbox+'\nug.png',MyName));
     SkinIni.WriteString('_CheckBox','NUG_Glyph','CheckBoxGlyph_NUG');
    end;
   if Count>=10 then
    begin
     //Highlighted Unfocused Grayed
     B2:=GetSubBitmap(Bitmap,Layout,Count,9);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\hug.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_HUG','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_HUG','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_HUG','E1.Path',SavedShort(_checkbox+'\hug.png',MyName));
     SkinIni.WriteString('_CheckBox','HUG_Glyph','CheckBoxGlyph_HUG');
    end;
   if Count>=11 then
    begin
     //Down Focused Grayed
     B2:=GetSubBitmap(Bitmap,Layout,Count,10);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\dfg.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_DFG','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_DFG','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_DFG','E1.Path',SavedShort(_checkbox+'\dfg.png',MyName));
     SkinIni.WriteString('_CheckBox','DFG_Glyph','CheckBoxGlyph_DFG');
    end;
   if Count>=12 then
    begin
     //Read-only Unfocused Grayed
     B2:=GetSubBitmap(Bitmap,Layout,Count,11);
     SaveBitmap(B2,DirPath+MyName+'\'+_checkbox+'\rug.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('CheckBoxGlyph_RUG','Transparent','0');
     B2.Free;
     SkinIni.WriteString('CheckBoxGlyph_RUG','Element1','E1,IMAGE');
     SkinIni.WriteString('CheckBoxGlyph_RUG','E1.Path',SavedShort(_checkbox+'\rug.png',MyName));
     SkinIni.WriteString('_CheckBox','RUG_Glyph','CheckBoxGlyph_RUG');
    end;
   Bitmap.Free;
   //
   SkinIni.WriteString('CheckBox_Focus','Element1','E1,FOCUS_RECT');
   SkinIni.WriteString('CheckBox_Focus','E1.Rect','TL,TT,TR,TB');
   //
   SkinIni.WriteString('_CheckBox','NUU_TextLeftOffset','2');
   SkinIni.WriteString('_CheckBox','NUU_TextTopOffset','2');
   SkinIni.WriteString('_CheckBox','NUU_TextRightOffset','2');
   SkinIni.WriteString('_CheckBox','NUU_TextBottomOffset','2');
   SkinIni.WriteString('_CheckBox','NFU_OverStyle','CheckBox_Focus');
   //
   S1:=IniClassProp(TmpIni,'button.checkbox(uncheckeddisabled)','TextColor','');
   if S1<>'' then
    SkinIni.WriteString('_CheckBox','RUU_FontColor',ConvertColor(S1));
   //
   S1:=IniClassProp(TmpIni,'button.checkbox(checkeddisabled)','TextColor','');
   if S1<>'' then
    SkinIni.WriteString('_CheckBox','RUC_FontColor',ConvertColor(S1));
   //
   S1:=IniClassProp(TmpIni,'button.checkbox(mixeddisabled)','TextColor','');
   if S1<>'' then
    SkinIni.WriteString('_CheckBox','RUG_FontColor',ConvertColor(S1));
  end;
 if CheckBox7.Checked then
  begin
   SkinIni.WriteString('_CheckBox','HighlightInGlyphStepsNum','8');
   SkinIni.WriteString('_CheckBox','HighlightOutGlyphStepsNum','4');
   SkinIni.WriteString('_CheckBox','CheckGlyphStepsNum','8');
   SkinIni.WriteString('_CheckBox','UncheckGlyphStepsNum','6');
   SkinIni.WriteString('_CheckBox','DownGlyphStepsNum','4');
   SkinIni.WriteString('_CheckBox','UpGlyphStepsNum','2');
   SkinIni.WriteString('_CheckBox','EnableGlyphStepsNum','8');
   SkinIni.WriteString('_CheckBox','DisableGlyphStepsNum','8');
  end;
end;

procedure TForm1.ProcessRadioButton(const MyName:String;SkinIni,TmpIni:TIniFile);
var    FName:String;
      Bitmap:TBitmap;
          B2:TBitmap;
          S1:String;
      Layout:String;
       Count:Integer;
    IsTransp:Boolean;
 TranspColor:TColor;
begin
 FName:=IniClassProp(TmpIni,'button.radiobutton','ImageFile1','');
 if FName<>'' then
  begin
   Bitmap:=LoadBitmap(FName);
   if Bitmap=nil then
    begin
     Memo1.Lines.Add('RADIOBUTTON image not found!');
     exit;
    end;
   Layout:=IniClassProp(TmpIni,'button.radiobutton','imagelayout','');
   Count:=StrToIntDef(IniClassProp(TmpIni,'button.radiobutton','imageCount',''),0);
   IsTransp:=SameText(IniClassProp(TmpIni,'button.radiobutton','Transparent',''),'true');
   TranspColor:=GetTColor(IniClassProp(TmpIni,'button.radiobutton','TransparentColor','255 0 255'));
   if Count>=1 then
    begin
     //Normal Unfocused Unchecked
     B2:=GetSubBitmap(Bitmap,Layout,Count,0);
     SaveBitmap(B2,DirPath+MyName+'\'+_radiobutton+'\nuu.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('RadioButtonGlyph_NUU','Transparent','0');
     B2.Free;
     SkinIni.WriteString('RadioButtonGlyph_NUU','Element1','E1,IMAGE');
     SkinIni.WriteString('RadioButtonGlyph_NUU','E1.Path',SavedShort(_radiobutton+'\nuu.png',MyName));
     SkinIni.WriteString('_RadioButton','NUU_Glyph','RadioButtonGlyph_NUU');
     SkinIni.WriteString('_MultiStateCheck_RadioButton','NUStyle','RadioButtonGlyph_NUU');
    end;
   if Count>=2 then
    begin
     //Highlighted Unfocused Unchecked
     B2:=GetSubBitmap(Bitmap,Layout,Count,1);
     SaveBitmap(B2,DirPath+MyName+'\'+_radiobutton+'\huu.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('RadioButtonGlyph_HUU','Transparent','0');
     B2.Free;
     SkinIni.WriteString('RadioButtonGlyph_HUU','Element1','E1,IMAGE');
     SkinIni.WriteString('RadioButtonGlyph_HUU','E1.Path',SavedShort(_radiobutton+'\huu.png',MyName));
     SkinIni.WriteString('_RadioButton','HUU_Glyph','RadioButtonGlyph_HUU');
     SkinIni.WriteString('_MultiStateCheck_RadioButton','HUStyle','RadioButtonGlyph_HUU');
    end;
   if Count>=3 then
    begin
     //Down Focused Unchecked
     B2:=GetSubBitmap(Bitmap,Layout,Count,2);
     SaveBitmap(B2,DirPath+MyName+'\'+_radiobutton+'\dfu.png',IsTransp,TranspColor);
     if BitmapIsOpaque(B2) then
      SkinIni.WriteString('RadioButtonGlyph_DFU','Transparent','0');
     B2.Free;
     SkinIni.WriteString('RadioButtonGlyph_DFU','Element1','E1,IMAGE');
     SkinIni.WriteString('RadioButtonGlyph_DFU','E1.Path',SavedShort(_radiobutton+'\dfu.png',MyName));
     SkinIni.WriteString('_RadioButton','DFU_Glyph','RadioButtonGlyph_DFU');
     SkinIni.WriteString('_MultiStateCheck_RadioButton','DUStyle','RadioButtonGlyph_DFU');
    end;
   if Count>=4 then
    begin
     //Read-only Unfocused Unchecked
     B2:=GetSubBitmap(Bitmap,Layout,Count,3);
     SaveBitmap(B2,DirPath+MyName+'\'+_radiobutton+'\ruu.png',IsTransp,TranspColor);